Excel VBA質問箱 IV

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

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


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

69788 / 76807

←次へ　｜　前へ→


	【11535】Re:データの書き換えについて

IROC - 04/3/11(木) 9:42 -


	引用なし

	パスワード

会員NoがＡ列にあり、会員NoをTEXTBOX1に入力するとして
検索させて行を特定できます。（重複する会員Noがないものとする）

そしてＢ列に名前があるとし、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