外部エクセルファイルに存在するシートから"ABCDE"と記載されている

文字を検索し座標を特定する方法を教えてください。
検索する列は一列のみです。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:
  • 終了:2009/01/04 17:50:02
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答2件)

id:Mook No.1

回答回数1314ベストアンサー獲得回数393

ポイント60pt

下記の例で参考になるでしょうか。


不明な点はコメントで補足するので有効にお願いします。

'★★★ 検索を行うExcel ファイル名
Const filePath = "C:\data.xls"
'★★★ 検索を行うシート名
Const sheetName = "Sheet1"

Sub searchWord()
    Dim sWB As Workbook
    Set sWB = Workbooks.Open(filePath)

    Dim sWS As Worksheet
    Set sWS = sWB.Worksheets(sheetName)
    
    Dim sRange As Range
'★★★ A 列から 「ABCD」を検索する例
    Set sRange = sWS.Columns("A").Find(what:="ABCD", lookat:=xlWhole)

    If sRange Is Nothing Then
        MsgBox "検索は見つかりませんでした。"
    Else
        MsgBox "位置は[" & sRange.Address & "]です。"
    End If
    sWB.Close
End Sub

http://excelvba.pc-users.net/fol7/7_1.html

質問者が未読の回答一覧

 回答者回答受取ベストアンサー回答時間
1 pahoo 5960 5695 633 2008-12-28 18:40:15
  • id:Mook
    実際に使用されなかったようで心苦しいですが、ポイントありがとうございました。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません