Excel VBA質問箱 IV

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

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


6168 / 76735 ←次へ | 前へ→

【76169】フォルダー内の複数のエクセルのD列に『2-』があるか否かチェックしたい
質問  ペンネーム船長  - 14/10/8(水) 11:44 -

引用なし
パスワード
   【質問】
デスクトップの『test』フォルダーの中に複数のエクセルがあり、それらエクセルには全て『あ』シートがあります。
それらエクセルのシート『あ』のD列に『2-』があるか否か調べたいのですが、下記のコードでは上手く行きません。
Targetの列の指定がまずいのかも知れませんし、Findの検索対象にExecuteExcel4Macro(Target)が使えないのかも知れません。
宜しくご教授お願いします。

Private Sub CommandButton1_Click()

  Dim buf As String, Target As String
  Const Path = "C:\Users\○●\Desktop\test\"
  buf = Dir(Path & "*.xls")

  Do While buf <> ""
    Target = "'" & Path & "[" & buf & "]あ'!R4"  'D列
   '*****シート『あ』のD列をチェックする*****
    Dim f As Range
    Set f = ExecuteExcel4Macro(Target).Find("2-", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False, matchbyte:=False)

    If Not f Is Nothing Then 'もしもあったら
     MsgBox "『2-』が見つかりました"
   Else
     MsgBox "このシートに不備を見つけました(『2-』が見当たらない)"
   End If
     buf = Dir()
  Loop

End Sub

0 hits

【76169】フォルダー内の複数のエクセルのD列に『2-』があるか否かチェックしたい ペンネーム船長 14/10/8(水) 11:44 質問
【76173】Re:フォルダー内の複数のエクセルのD列に... γ 14/10/8(水) 19:12 発言
【76176】Re:フォルダー内の複数のエクセルのD列に... ペンネーム船長 14/10/8(水) 22:37 お礼

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