Excel VBA質問箱 IV

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

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


41895 / 76736 ←次へ | 前へ→

【39916】Re:検索フォームの作り方
発言  ハチ  - 06/7/4(火) 11:14 -

引用なし
パスワード
   ▼初心者3 さん:
>いつも大変お世話になっております。
>
>フォームを使って検索し、検索データを修正した後
>登録を行うコードをいろいろな方のコードを参考に
>作っています。
>以下のように書きましたが、シート上では検索
>出来ましたが、フォーム上に表示されません。
>
>どこの部分を修正すれば、反映されますでしょうか?
>
>
>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

Me.tel1.Value ←このあたりのコントロールはなんですか?
TextBoxですか?
Label だとしたら、.Captionだと思います。

On Error GoTo errHandler をコメントアウトして
どうなるのか明記してください。

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 お礼

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