人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

外部エクセルファイルに存在するシートから"ABCDE"と記載されている
文字を検索し座標を特定する方法を教えてください。
検索する列は一列のみです。

●質問者: harunoharuno
●カテゴリ:コンピュータ
✍キーワード:エクセル ファイル 存在 検索
○ 状態 :終了
└ 回答数 : 1/2件

▽最新の回答へ

1 ● Mook
●60ポイント

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


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

'★★★ 検索を行う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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ