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