asobe の回答履歴

"230","60,000","12,800" 等の文字列があります。 これを 「230」と「60000」と「12800」に分けたいのですが Solit(文字列,",")とすると 「230」「"60」「000"」「"12」「800"」 となってしまいます。 数字の個数や桁数はバラバラです。 うまく分ける方法に関してどうかご助言をいただけないでしょうか？ どうぞよろしくお願いいたします。

関数から２つの値を返したいと思っています。 ByRefで以下のようにすれば変数STRの内容を書き換えられると思ったのですが、エラーにはならないものの値は変わらないようです。 このような使い方はできないのでしょうか？ STR = "STR" TEST(STR) Msgbox STR Sub TEST(ByRef STR) STR = "TEST" End Sub

テキストファイルをExcelファイルとして読み込む事が多く、その量に加えデータの並び方が特殊な為困っております。 テキストファイルのデータの並びをExcelで上下逆順に読み込ませるにはどのようにすればいいでしょうか？ また、まとめて複数のテキストファイルを上記の状態で自動的にシートごとに分けて出力させたりしたいのですが。 (例-１行目は無視) ---テキストデータ(タブ区切り)--- 0　0 10　02　11 05　02　15 01　20　25 12　15　10 ---Excelシートデータ--- 0　0 12　15　10 01　20　25 05　02　15 10　02　11

テキストファイルをExcelファイルとして読み込む事が多く、その量に加えデータの並び方が特殊な為困っております。 テキストファイルのデータの並びをExcelで上下逆順に読み込ませるにはどのようにすればいいでしょうか？ また、まとめて複数のテキストファイルを上記の状態で自動的にシートごとに分けて出力させたりしたいのですが。 (例-１行目は無視) ---テキストデータ(タブ区切り)--- 0　0 10　02　11 05　02　15 01　20　25 12　15　10 ---Excelシートデータ--- 0　0 12　15　10 01　20　25 05　02　15 10　02　11

Visual Stadio で Visual Source Safe を使いソース管理をしています。 プロジェクトを開くと、VSSへのログインダイアログが表示されます。 毎回ユーザ名とパスワードを入れるのが煩わしいのですが、 自動的にログインするようにできますでしょうか。

ＩＭＥを使用しています。私の富士通のデスクトップでは”かな”とか”半角・全角”というボタンがあり、それを押せばかなや半角英数字に変換できるのですが、主人のノートではキーボードが日本仕様になっていませんので、そのようなボタンがありません。ですので、いちいちタスクバーにあるアイコンをマウスでクリックしている次第です。ですが、その中にたとえば”ひらがな（Ｈ）”とあるのでシフトキーとＨを押せば変わるのかなと思ったんですが、変わりません。なんとかマウスを使わずに”かな”と”英数字”の切り替えをしたいのです。どなたか教えてください。

ＩＭＥを使用しています。私の富士通のデスクトップでは”かな”とか”半角・全角”というボタンがあり、それを押せばかなや半角英数字に変換できるのですが、主人のノートではキーボードが日本仕様になっていませんので、そのようなボタンがありません。ですので、いちいちタスクバーにあるアイコンをマウスでクリックしている次第です。ですが、その中にたとえば”ひらがな（Ｈ）”とあるのでシフトキーとＨを押せば変わるのかなと思ったんですが、変わりません。なんとかマウスを使わずに”かな”と”英数字”の切り替えをしたいのです。どなたか教えてください。

シート上の任意のセルにカーソルがいたとして、マクロを実行するとテキストボックス１の事前の内容を全部消去してそのままそのテキストボックスの最初から入力可能な状態にするマクロを教えてください。

Visual Stadio で Visual Source Safe を使いソース管理をしています。 プロジェクトを開くと、VSSへのログインダイアログが表示されます。 毎回ユーザ名とパスワードを入れるのが煩わしいのですが、 自動的にログインするようにできますでしょうか。

Visual Stadio で Visual Source Safe を使いソース管理をしています。 プロジェクトを開くと、VSSへのログインダイアログが表示されます。 毎回ユーザ名とパスワードを入れるのが煩わしいのですが、 自動的にログインするようにできますでしょうか。

Visual Stadio で Visual Source Safe を使いソース管理をしています。 プロジェクトを開くと、VSSへのログインダイアログが表示されます。 毎回ユーザ名とパスワードを入れるのが煩わしいのですが、 自動的にログインするようにできますでしょうか。

こんにちわ。 VB6.0SP5で開発していますが， 実行ファイル(.exe)のアイコンを Windowsのステータスバーに表示したり， Alt+Tabでアプリを切り替えるときにも選択できるようにしたいのですが，どのようにすれば良いでしょうか？ 教えてください。お願いします。

C言語の組み込みマクロの__FILE__ __LINE__ のような、ファイル名や行数が取得できるマクロが VB6.0にありますでしょうか。

ある、自作のOCXを読み込もうとすると読み込めません… ・ノートPC(VAIO PCG-Z1T/P WinXpPro sp2) ・DeskTop(ドスパラ WinXpPro sp1) 上記のPCでは読み込めるのですが、 ・DeskTop(aopen WinXpPro sp1) では読み込めません… どうして読み込めないのか原因がわかりません。 マザーボードの種類などで読み込みが出来ないということはありえるのでしょうか？ 何に原因があるのでしょうか？ 説明不足で申し訳ないのですがどなたかアドバイスをよろしくお願いします。

VB6.0でコマンドラインからの引数をテキストファイルに出力して終了させるプログラムを作りたいのですが、フォームなど特に画面に表示することなく内部で処理をしたら勝手に終了させるにはどうしたらよいのでしょうか？ 初心者の間の抜けた質問で申し訳ありませんが、どなたかアドバイスをお願いします。

縦軸で、－１～５の数値を扱っているグラフがあります。横の目盛線の線種を点線に設定しますが、０のラインだけ実線にする方法はありますか？ すみません、急ぎです！あと２時間弱で締め切りが来てしまいます。よろしくお願いします！

RSQ関数を使って寄与率を計算したいのですが、 =RSQ(A1:A30,{1,2,3,4・・・30}) と、横軸の1～30の部分が非常に冗長になってしまいます。 この部分をもっと簡潔に記述する方法はありますか？ 横軸は常に1から順に始まる30までの整数です。 よろしくお願いします。

現在、以下のようなマクロを組んでいます。 --------------------------------------- Dim 利用制限時間 As Integer Private Sub Workbook_Open() If Not ThisWorkbook.ReadOnly Then 利用制限時間 = 10 '分 + 起動時刻:Now 警告時刻 = Now + 10 * TimeValue("00:01:00") '分に変換 Application.OnTime 警告時刻, "ThisWorkbook.利用制限ご注意" End If End Sub Private Sub 利用制限ご注意() 警告文 = "共有ファイルを開いて" + CStr(利用制限時間) + "分経過しました。" + vbCrLf 警告文 = 警告文 + "使用しない場合は終了してください。" MsgBox 警告文, vbCritical, "共有ファイルの利用について" Workbooks("共有ファイル.xls").Close End Sub --------------------------------------- しかし、10分たたずにブックのみ終了し、エクセルのみの起動をしていても10分後には、「共有ファイルを開いて10分経過しました」と出てきます。 エクセルを終了させればよいのでしょうが、ブックを終了させただけでマクロも同時に終了できないでしょうか？

現在、以下のようなマクロを組んでいます。 --------------------------------------- Dim 利用制限時間 As Integer Private Sub Workbook_Open() If Not ThisWorkbook.ReadOnly Then 利用制限時間 = 10 '分 + 起動時刻:Now 警告時刻 = Now + 10 * TimeValue("00:01:00") '分に変換 Application.OnTime 警告時刻, "ThisWorkbook.利用制限ご注意" End If End Sub Private Sub 利用制限ご注意() 警告文 = "共有ファイルを開いて" + CStr(利用制限時間) + "分経過しました。" + vbCrLf 警告文 = 警告文 + "使用しない場合は終了してください。" MsgBox 警告文, vbCritical, "共有ファイルの利用について" Workbooks("共有ファイル.xls").Close End Sub --------------------------------------- しかし、10分たたずにブックのみ終了し、エクセルのみの起動をしていても10分後には、「共有ファイルを開いて10分経過しました」と出てきます。 エクセルを終了させればよいのでしょうが、ブックを終了させただけでマクロも同時に終了できないでしょうか？

テキストボックスで複数行入力可能にしたのですが、1行づつセルへの抜き出しは出来るのでしょうか？ 初心者なので、簡単に出来る方法を探しています。