エクセルVBA 呼出し

質問

エクセルVBA　呼出し
FormをひらいてTextBox31に数字（ID番号）が入り
それをSheet”計”のＦ４に入れます！
そのＦ４を他のブックの WSName = "DATA.xls"にて
ＩＤを検索して、名前や色々なものをSheet”計”に写します。

それを再度、FromのそれぞれのTextBoxに入れます。
しかし、SH1.Cells(lngNumber, 2) = Worksheets("計").Range("B2").Value '名前
が上手くできません！！エラー表示などはないのですが…
DATA.xlsにはID番号があるのですが、それを入力しても値が入りません
どこの部分が間違っているのか？
すいません、教えてください

WSName = "DATA.xls"を呼出す記述は省略！！
'DATA.xlsとSheet1をセットする。
Set WS = Workbooks(WSName)
Set SH1 = WS.Worksheets("Sheet1")
'ブックが存在していないのであればメッセージを出し処理を抜ける。
Else
MsgBox WDName & "が存在していません。設置してください。", vbExclamation, "確認してください"
Exit Sub
End If
flag = False
For lng = 1 To lngYcnt_K
'計のF4と同じ値を見つけてテキストボックスの値を入力。
If CStr(Worksheets("計").Range("F4").Value) = CStr(SH1.Cells(lng, 1)) Then
flag = True
lngNumber = lng
Exit For
End If
Next lng
If flag = True Then
SH1.Cells(lngNumber, 2) = Worksheets("計").Range("B2").Value '名前

With Worksheets("計")
’計のSheetの値を開いているFromのTextBox４に再度値を入れる
TextBox4.Value = .Range("B2").Value '計のSheetからTextBox１の値の名前’
End With

MsgBox " 記録を呼び戻しました"
Else
TextBox31.Value = "確認必要"
End If

回答No.1

keithin · ベストアンサー

エラーにならず意図した結果が出ないという事は，マクロの間違いじゃなく「実際のデータ」に問題があります。
勿論マクロが実際のデータに合っていないというイミで間違っているのは確かですが，少なくともマクロだけ見ていても（あるいはご質問として示されても），どこをミスっているのかを判断することは出来ません。

関連する「実データ」は，
○シートに記入されているデータ
○テキストボックスに入れたデータ
の２つです。

マクロの途中にstop命令を入れて（あるいはブレイクポイントを設置して）マクロの実行中に動作を一端中断させ，その後Ｆ８キーを連打してマクロの実行を１行ずつ進めて行き，たとえば「このデータならこのIf Then Elseでこっちに行かないとイケナイはずなのに違う挙動をしている」部分をご自分の手と目を使って発見してください。

そういった作業（デバッグ）をきちんと行ってみると，たとえば
＞FormをひらいてTextBox31に数字（ID番号）が入り
＞それをSheet”計”のＦ４に入れます！

といった動作を行っているマクロがどこにもない？といった間違いも，見つけられるかもしれません。

お礼

遅くなりました
そうですよね、私自身が間違っています。流れをもう一度確認します。