Excel VBA質問箱 IV

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

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


58863 / 76738 ←次へ | 前へ→

【22597】Re:テキストボックスから検索したいです。
発言  Jaka  - 05/2/24(木) 17:00 -

引用なし
パスワード
   こんにちは。

取得したいデータの列は、固定されているみたいですから、行番号が解れば何とかなるんじゃないかと思います。
名前データが1列目(A)に記入されているとして、下記コードで同じ名前が何行目にあるか解ります。

Sub fnmfm()
  Dim ScNo As Variant
  ScNo = Application.Match(TextBox1.Value, Sheets("Sheet1").Columns(1), 0)
  If IsError(ScNo) Then
    MsgBox "名前が見つかりません。
    Exit sub
  Else
    MsgBox ScNo & "行目にありました。"
  End If
End Sub

取得した行番号を使って、

TextBox2.Value = Sheets("Sheet1").Cells(ScNo,取得したい列番号).Value

で、テキストボックスに入れる。
テキストボックスの値をセルに入れるなら、右辺左辺を入れ替えるだけです。
0 hits

【22595】テキストボックスから検索したいです。 じん 05/2/24(木) 15:41 質問
【22597】Re:テキストボックスから検索したいです。 Jaka 05/2/24(木) 17:00 発言
【22600】Re:テキストボックスから検索したいです。 じん 05/2/24(木) 17:30 発言
【22640】Re:テキストボックスから検索したいです。 Jaka 05/2/25(金) 9:53 回答
【22666】Re:テキストボックスから検索したいです。 じん 05/2/26(土) 0:51 お礼

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