Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6160 / 76734

←次へ　｜　前へ→


	【76176】Re:フォルダー内の複数のエクセルのＤ列に『2-』があるか否かチェックしたい

ペンネーム船長 - 14/10/8(水) 22:37 -


	引用なし

	パスワード

γさま

ご指摘有難う御座います。
列で検索するのをあきらめ、Ｄ列のひとつひとつのセルをチェックする方法にしました。
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"　’Ｄ列（1行～1000行）をチェック対象とする
　　　　　If ExecuteExcel4Macro(Target) = "2-" Then
　　　　　　　MsgBox buf & "の" & "セルＤ" & 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

3 hits

▼

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