エクセル２００３でフォームを作成しています(2)

質問

エクセル２００３でフォームを作成しています(2)

ネットワーク上にある社員名簿.xlsの情報を使って、フォーム上で
ぶっちゃけて言えばお金を使い過ぎていないかのチェックをします。

エクセルのワークシート上でやればいいと思うかも知れませんが
社員名簿.xlsは専用端末からおとしたいくつかのcsvを加工した
ものから作成するので、ファイル名だけは常に同じですが、ボタン
などは設置出来ないので、フォームを作成してデータだけを
ひっぱってくることにしました。

詳細画面フォーム上の検索ボタンを押すと、
社員名簿.xlsのデータを元に作成したリストボックスの貼り付いた
別フォームが開き、該当者をクリックすると別フォームは閉じられ、
詳細画面フォームに社員名簿の情報がそれぞれのテキストボックスに
反映される、ということがまずやりたいのです。
別フォームにリストボックスを貼り付けたのは、それしかやり方を
知らないからです。
※コンボボックスで作成していましたが、変更しました。

判定額というのは、ここまではOKという金額が総計を元に計算される
仕組みになっています（これからします）。
その下の小さなテキストボックスには判定額と総計を比べてOKか否か
の何かを出すようになっています（これもこれからします）。

回答No.1

MackyNo1 · ベストアンサー

>詳細画面フォーム上の検索ボタンを押すと、
社員名簿.xlsのデータを元に作成したリストボックスの貼り付いた
別フォームが開き、該当者をクリックすると別フォームは閉じられ、
詳細画面フォームに社員名簿の情報がそれぞれのテキストボックスに
反映される、ということがまずやりたいのです。

上記の説明文のどの部分がわからないのでしょうか？

他ブック（ｃｓｖファイル）から特定の値に対するデータをリストから検索し、テキストボックスに表示する部分がわからないということなら、単純に詳細画面フォームのあるブックの隠しシートにＶＬＯOKUP関数で値を引っ張ってきてこの値をテキストボックスに代入するのが、ファイルを開くことなく実行できるので実行速度の観点からもお勧めです。

ちなみに、シート内の文字を検索するマクロなら、以下のページが参考になると思います。

http://home.att.ne.jp/zeta/gen/excel/c04p42.htm

補足

>>詳細画面フォーム上の検索ボタンを押すと、
>>社員名簿.xlsのデータを元に作成したリストボックスの貼り付いた
>>別フォームが開き、該当者をクリックすると別フォームは閉じられ、
>>詳細画面フォームに社員名簿の情報がそれぞれのテキストボックスに
>>反映される、ということがまずやりたいのです。

>上記の説明文のどの部分がわからないのでしょうか？

リストボックスの貼りついたフォームの該当者をクリックしたときの
該当者の社員番号を詳細画面フォームの番号のところに持ってきたい
のですが、やり方がわからないのです。
社員番号の入った変数を別のフォームで使用する書き方が分かりません。
違うかもしれませんが、今社員番号が
----------------------
Sub リスト選択_Click()

Dim i As Byte
Dim SCode As String

For i = 1 To 1
ListBox1.TextColumn = i
SCode = S & ListBox1.Text
Next i

End Sub
----------------
SCodeの中にいるようなのですが…

回答No.2

MackyNo1

>リストボックスの貼りついたフォームの該当者をクリックしたときの
該当者の社員番号を詳細画面フォームの番号のところに持ってきたい

名前と社員番号のリストがあるなら、単純に名前から社員番号を検索するだけで良いと思うのですが・・・

このようなケースでは、VBAコードだけですべての処理をするのではなく、たとえば非表示の作業用シートを作成して、ワークシート関数などエクセルの機能を有効活用するほうが、VBAコードを簡略化でき、マクロ実行時のパフォーマンスもあげられると思います。

お礼

わかりました。
非表示のシートを作成して関数を使った処理をしてみます。
ありがとうございました。