pen_pen_pen の回答履歴

テキストファイルからデータを１行ずつ読み取り、 その中にファイルパスがあれば他のファイルに書き出すというロジックを考えています。 文字列は 例えば 　include ROOT_PATH."/class/test.txt"; という文字列で、この中から 　/class/test.txt という文字列だけを取得したいのです。 現在、拡張子から１文字ずつ前の文字列をチェックしていって、「”」が見つかったらその間の文字列を ファイルパスとしようとしています。 これを１発で行ってくれるような関数等ははないでしょうか？ 　 良いお知恵がありましたらご教授お願いします。

現在フォームからコマンドボタンよりもう一つフォームを呼び出すような制御をしています。 そこで呼び出したフォームから確定、キャンセルを選び元のフォームへ戻るようにしているのですが、戻ったときにキャンセルを押した場合は呼び出したフォームのみをUnloadして、確定の場合は二つのフォームをUnloadになるように制御をかけたいのですがうまくいきません＞＜ どのような制御をかければうまくいきますか？？

RichTextBoxの文字列の中の太字にした文字列や、斜体にした文字列などを検索したいのですが、InStrでできますか？ もしくは他にやり方があったら教えてください。お願いします。ちなみにVB6.0です。

RichTextBoxの文字列の中の太字にした文字列や、斜体にした文字列などを検索したいのですが、InStrでできますか？ もしくは他にやり方があったら教えてください。お願いします。ちなみにVB6.0です。

エクセルシートで任意に選択されたセルの個数を VBAのUserFormのTextBoxに表示されるのは どのようにしたらよいのでしょうか？ 例）エクセルシートで、B2～D2をマウスで選択すると、 　　UserFormのTextBoxに３と表示されるようにする。 任意に選択されたセルの個数を求めるのは 以下のようにしました↓↓↓ ********************************* * Sub GetAreaValue() * 　　Dim CELLNUM As Integer * 　　CELLNUM = Selection.Count * End Sub *********************************

質問させていただきます VBAで計算した結果を、外部プログラムでグラフを書き、計算するたびにグラフを更新したいと考えています。 Call Shell("開くプログラム名　開くファイル名", vbNormalFocus) hwnd = FindWindow("クラス名", vbNullString) 計算をする 計算したファイルの出力 postmessageでグラフを更新する命令の出力 （最後の3行を繰り返す） そこで、HandleXというソフトを使いクラス名を取得しようと考えましたが、[classname]という所が毎回変化してしまい、取得できませんでした。 対処法があれば教えてください。お願いします。

A列1行目から、2行目3行目・・・に「今日は」「とても」「天気です。」の様な文章が入っていて、「とても」「天気です。」は文字色が白になっています。 B列1行目に「今日は」と入力を完了したら、A2の「とても」が指定秒だけ黒色になりその後白色に戻ります。 B列2行目に「とても」を入力すると、A3の「天気です。」が指定秒だけ黒色になりその後白色に戻ります。 というようにしたいのですが、このようなマクロのコーディング例が欲しいのです。 何に使うかというと、もちろんキーボードレッスンです。 宜しくお願いします。

フォルダの参照ダイアログボックスを使用して ファイルを選択できるようにしています。 プログラムでcsv形式で保存し、そのcsv形式ファイルを指定して開くという動作を目的としています。 そのファイル選択を固定でなく可変で選択したいと思っています。 Dim ShellApp As Object Dim oFolder As Object Set ShellApp = CreateObject("Shell.Application") Set oFolder = ShellApp.BrowseForFolder(0, "ファイル選択", &H4000,"C:\test") msgbox(oFolder) このような感じで、フォルダのみではなくファイルを指定することに成功しました。 しかし、このフォルダ参照ダイアログが表示されたときに、何も選択せずに キャンセルボタンをクリックするとエラーが出て止まってしまいます。 目的とする動作はできてはいるのですが、キャンセルするとエラーになるので、この原因がわからず困っています。 キャンセルボタンに関することを記述する必要があるのでしょうか？ また、この他にファイルを指定するのに適した方法がありましたら教えてください。 参照するフォルダを指定しているのでパスの取得は必要ありません。 ファイルが選択できたらOKです。 フォルダのパス取得のプログラムはよくサンプルを見かけるのですが、 ファイル選択のサンプルはあまり見かけないです(-_-;) また、この方法ではC:\と絶対パスで指定していますが、exeファイルが存在する場所からの相対パスでの指定はできないのでしょうか？ csvで保存する時は"./test/test.csv"などと記述して書き込みできていたのですが、 このようなパスを書くとエラーとなりファイルを見つけられないといわれてしまいます。

エクセルでこんなことしたいんです。特定のセルをクリックすると、 そのセルだけ色が変わるような操作って、できますでしょうか？ 今、エクセルでアンケート表を作っていまして、例えば「はい」と記載されたセルをクリックするとそのセルの色だけが青に変わる・・・みたいなイメージです。 ご存知の方、どうかお力を貸していただけませんでしょうか？ よろしくお願い致します。

エクセルで列の自動削除をしたいと考えています。 たとえば、100列の表があるとします。その表を、 ある特定のセルに入力した数字(0<N<100)の数だけの表(列)をつくりたいと考えています。 (N+1)列目から100列目までを削除すればいいのですが、 何かいいマクロはありますでしょうか？ OFFSET関数を使おうと思っていたのですが、 引数にどう記述していいものか・・・ OFFSETを使わなくても結構です。なにかいい記述があったら教えてください。 お願いします。

下記のようなマクロがかかれているのですが 記述の意味がわかりません。 教えてください。 Dim h On Error Resume Next Sheets("滞留在庫表").Select With Application.WorksheetFunction For h = 2 To Range("C9999").End(xlUp).Row Cells(h, "V") = "****" Cells(h, "V") = .VLookup(.Replace(String(18, "?"), 8, 1, Mid(Cells(h, "C"), 8, 1)), _ Sheets("表示再設定マスタ").Range("A5:B22"), 2, False) Next h End With

ＶＢでのシステム開発でＩＥを起動するのに２重起動を抑止するようにしなければなりません。また、そのボタンから起動されたＩＥのみ２重起動抑止の対象とし、それ以外の場所から起動されたＩＥが上がっていてた場合はボタンを押せばＩＥが起動するといった方法がどうしたらいいのかわかりません。ご存知の方がいたら教えてください。よろしくお願いします。

VB6で定数を定義する場合は次の通りです。 　　Const strTest As String = "TEST" では、定数配列を定義する場合はどのように書けばいいのでしょう？ 　　Const astrTest() As String = Array("A", "B", "C")　　　　　　'→NG 　　Const astrTest(0 To 2) As String = Array("A", "B", "C")　　'→NG いろいろな書き方を試して見たのですが、上記のような書き方でも文法的にエラーになるようです。 どのように書けばいいのでしょうか？ それとも定数を配列で定義するのは無理なんでしょうか？

VBA超初心者です。 Excel2000を使っているのですが、 定数で大量のデータを格納する時、どのように構文を書いたらいいでしょうか。 例えば001、002、003・・・500までの連番、などです。 よろしくお願い致しますm(_ _)m

サンプルプログラムを参考にしてプロジェクトにくっついているクラスモジュールをすべてパスをくっつけました。が、そのクラスモジュールの変数を宣言しようとするとできないです。正確にはコントロールスペースでツールチップみたい一覧が表示されるところに取得してきたクラスモジュールが存在しなく、ベタで書いてエラーにはならないのですが、イベントが１つもないということでした。 Dim WithEvents sample as clsCti なお、サンプルプログラムではイベントを参照できます。プロジェクトのパスにつなげるだけじゃ見れないのでしょうか？ 非常にわかりにくい説明になってしまいましたm(_ _)mが、 どなたかアドバイスお願いします。

OS:windowsXP(windows update 未処理) VB:VB6.0sp5 首記のエラーが発生しシステムが正常に動作いたしません ただ、windows update 済みの端末では動作いたしました 問題の端末にて、windows updateすれば解決できることではございますが、問題の端末自体がインターネット(外部)に接続できる状態にありません windows update以外の方法で解決できる方法をご教示くださいます様よろしくお願いいたします

カレンダーコントロールの初期値を本日の日付に設定したいのですがどこで記入すればいいかわかりません。 calendar1.year、month、dayを利用するのでしょうか

カレンダーコントロールの初期値を本日の日付に設定したいのですがどこで記入すればいいかわかりません。 calendar1.year、month、dayを利用するのでしょうか

いつもお世話になっています。 タイトルの通り、ListViewについて２つ質問があります。 (1)ListViewにDBから検索したデータを代入してますが、動きが遅いんです。 　各項目ごとで色を変更したりするためだと思いますが、ListViewの表示を速くする方法はなにかありませんか？ 　ちなみに今は、ListViewを２枚使って、データをセットしている間は、VisibleをFalseにして、 　データセットが完了した時点で、Trueに切り替えています。 (2)(1)の動きで、ListViewを使っているところ、今表示されているListView（Iとします）で 　クリックしたデータを次に表示させるListView（IIとします）に引き継がせたいです。 　Iで、選択している行をIIで選択状態にすることはできたのですが、 　Iで選択している行がスクロールして下にあった場合、IIでもスクロールした場所に 　ListViewを移動させたいのですが、その方法が分かりません。 何かご存知の方がいましたら、教えてください。 よろしくお願いいたします。

Excelで、範囲(B7～T8：関数によって既に文字(0～9)が入っている)内のセルについて、それぞれ文字(0～9)に応じて網掛け(10色)＆文字の色(0：黒、それ以外は白)を変えたいのですが可能でしょうか？ 【例】 0894567123384511700 1587321184318154115 並びに規則性はありません。 OS→WindowsXP アプリケーション→office2000professionalのExcel です。どなたかご返答お願いいたします。