|
▼kanabun さん:
Rangeオブジェクトのつかいかたが解っていませんで失礼しました。
また、わたしの持っているレベルの教本にはIntersectは載っていませんでした。
大変助かりました。ネットでIntersectの使い方を確かめておきます。
最終的に以下のようにさせていただきました。
ありがとうございました。
Sub Macro1()
Dim MyBranch(1) As String
Dim myRange As Range
Dim n As Long
MyBranch(0) = "北海道店.xls"
MyBranch(1) = "東北店.xls"
For i = 0 To 1
Workbooks.Open Filename:="U:\" & MyBranch(i)
With ActiveSheet
Set myRange = Intersect(.UsedRange, _
.UsedRange.Offset(2), .Columns("R:S"))
'MsgBox myRange.Address(0, 0)
n = WorksheetFunction.CountBlank(myRange)
If n > 0 Then
MsgBox MyBranch(i) & " に空白セルが " & n & "個あります"
Else
ActiveWorkbook.Close True
End If
End With
Next i
End Sub
|
|