|
いつも大変お世話になっております。
フォームを使って検索し、検索データを修正した後
登録を行うコードをいろいろな方のコードを参考に
作っています。
以下のように書きましたが、シート上では検索
出来ましたが、フォーム上に表示されません。
どこの部分を修正すれば、反映されますでしょうか?
Private Sub CommandButton1_Click() '[検索]ボタン
Dim myDname As String
Dim c As Range
strSimei = Me.simei.Value
'エラートラップを設定する
On Error GoTo errHandler
'テキストボックスの文字列を検索する
With Sheets("編集用シート").Columns("A")
Set c = .Find(What:=Me.TextBox1.Text, After:=Range("A2"), LookIn:=xlValues, lookat:=xlPart).Activate
Me.simei.value = c.value
Me.furigana.Value = c.Offset(, 1).Value
Me.tel1.Value = c.Offset(, 2).Value
Me.tel2.Value = c.Offset(, 3).Value
Me.tel3.Value = c.Offset(, 4).Value
Me.mail1.Value = c.Offset(, 5).Value
Me.mail2.Value = c.Offset(, 6).Value
Me.mail3.Value = c.Offset(, 7).Value
Me.memo.Value = c.Offset(, 8).Value
End With
'エラートラップを解除する
On Error GoTo 0
'サブルーチンを抜ける
Exit Sub
'エラートラップ用ラベル
errHandler:
'メッセージボックスを表示する
MsgBox "該当なし"
'エラーを無視して次のステートメントを実行する
Resume Next
End Sub
|
|