Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41896 / 76736

←次へ　｜　前へ→


	【39915】検索フォームの作り方

初心者3 - 06/7/4(火) 10:48 -


	引用なし

	パスワード

いつも大変お世話になっております。

フォームを使って検索し、検索データを修正した後
登録を行うコードをいろいろな方のコードを参考に
作っています。
以下のように書きましたが、シート上では検索
出来ましたが、フォーム上に表示されません。

どこの部分を修正すれば、反映されますでしょうか？

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

0 hits

▼

【39915】検索フォームの作り方 初心者3 06/7/4(火) 10:48

≪