Excel VBA質問箱 IV

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

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


69719 / 76738 ←次へ | 前へ→

【11535】Re:データの書き換えについて
回答  IROC  - 04/3/11(木) 9:42 -

引用なし
パスワード
   会員NoがA列にあり、会員NoをTEXTBOX1に入力するとして
検索させて行を特定できます。(重複する会員Noがないものとする)

そしてB列に名前があるとし、Textbox2 に表示する場合。

textbox1 に入力後、CommandButton1 で実行するなら

Private Sub CommandButton1_Click()
Dim FindData As Range
Dim KeyWord As String

with Worksheets("Sheet1")

KeyWord = TextBox1.text
  Set FindData = .Range("A:A"). _
         Find(KeyWord, LookIn:=xlValues, LookAt:=xlWhole)

  If FindData is Nothing then
    Msgbox "見つかりませんでした。"
    Exit Sub
  End If

  TextBox2.text = .Cells(FindData.Row , 2).Value

End with
end sub
0 hits

【11533】データの書き換えについて くーさん 04/3/11(木) 1:26 質問
【11535】Re:データの書き換えについて IROC 04/3/11(木) 9:42 回答
【11563】Re:データの書き換えについて くーさん 04/3/11(木) 15:28 質問
【11565】Re:データの書き換えについて Jaka 04/3/11(木) 16:03 回答
【11573】Re:データの書き換えについて くーさん 04/3/11(木) 17:20 お礼

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