Excel VBA質問箱 IV

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

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


41892 / 76732 ←次へ | 前へ→

【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 質問
【39916】Re:検索フォームの作り方 ハチ 06/7/4(火) 11:14 発言
【39917】Re:検索フォームの作り方 初心者3 06/7/4(火) 11:29 質問
【39920】Re:検索フォームの作り方 Jaka 06/7/4(火) 11:47 発言
【39921】Re:検索フォームの作り方 初心者3 06/7/4(火) 12:21 質問
【39922】Re:検索フォームの作り方 neptune 06/7/4(火) 12:51 回答
【39923】Re:検索フォームの作り方 初心者3 06/7/4(火) 13:05 質問
【39928】Re:検索フォームの作り方 ハト 06/7/4(火) 13:33 発言
【39930】Re:検索フォームの作り方 Jaka 06/7/4(火) 13:45 発言
【39934】Re:検索フォームの作り方 neptune 06/7/4(火) 14:25 発言
【39935】Re:検索フォームの作り方 Jaka 06/7/4(火) 14:28 発言
【39943】Re:検索フォームの作り方 neptune 06/7/4(火) 15:45 発言
【39957】Re:検索フォームの作り方 初心者3 06/7/4(火) 16:27 お礼
【39944】Re:検索フォームの作り方 初心者3 06/7/4(火) 15:46 お礼

41892 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free