Excel VBA質問箱 IV

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

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


6161 / 76735 ←次へ | 前へ→

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

引用なし
パスワード
   γさま

ご指摘有難う御座います。
列で検索するのをあきらめ、D列のひとつひとつのセルをチェックする方法にしました。
1000行もチェック出来れば十分だったのでこの方法でやることにしました。
不備が見つかったエクセルはシート『調査結果』に書き出すようにしました。

Private Sub CommandButton1_Click()

  Dim buf As String, Target As String, i As Integer, n As Integer, nn As Integer
  Const Path = "C:\Users\○●\Desktop\test\"
  buf = Dir(Path & "*.xls")
  
  Do While buf <> ""
    For i = 1 To 1000
    n = 0
    nn = 0
    Target = "'" & Path & "[" & buf & "]あ'!R" & i & "C4" ’D列(1行〜1000行)をチェック対象とする
     If ExecuteExcel4Macro(Target) = "2-" Then
       MsgBox buf & "の" & "セルD" & i & "に『2-』がありました"
       nn = n + 1 'セルに『2-』があったときに1を加える
       Exit For
     End If
    Next i
     If nn = 0 Then '合計が0のとき、そのエクセルの名前を書き出す
       MsgBox "このシートに不備を見つけました(『2-』が見当たらない)"
        Worksheets("調査結果").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = buf
     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 お礼

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