Excel VBA質問箱 IV

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

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


6342 / 13646 ツリー ←次へ | 前へ→

【45802】文字列の検索について。 教えてください!! 07/1/14(日) 21:35 質問[未読]
【45804】Re:文字列の検索について。 Kein 07/1/14(日) 21:44 回答[未読]
【45806】Re:文字列の検索について。 KAI 07/1/14(日) 21:59 お礼[未読]

【45802】文字列の検索について。
質問  教えてください!!  - 07/1/14(日) 21:35 -

引用なし
パスワード
   Sheet1のCellのどこかに「出席番号」その横のCellに「名前」と書かれていたとします。
そのときに、出席番号という文字列を検索し、その横の名前をSheet2のCell(A1)に入れたいのですが…
どのようにしたらよいのでしょうか?教えてください。

【45804】Re:文字列の検索について。
回答  Kein  - 07/1/14(日) 21:44 -

引用なし
パスワード
   Dim FR As Range

Set FR = Sheets("Sheet1").Cells.Find("出席番号", , xlValues)
If FR Is Nothing Then
  MsgBox "「出席番号」の文字が見つかりません", 48
Else
  Sheets("Sheet2").Cells(1).Value = FR.Offset(, 1).Value
  Set FR = Nothing
End If

てな感じです。 

【45806】Re:文字列の検索について。
お礼  KAI  - 07/1/14(日) 21:59 -

引用なし
パスワード
   ▼Kein さん:
早い回答ありがとうございます。
できました!!!本当にありがとうございます。

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