Excel VBA質問箱 IV

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

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


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

19493 / 76732

←次へ　｜　前へ→


	【62670】空白セルの有無を調べるには

にしもり - 09/8/20(木) 18:52 -


	引用なし

	パスワード

こんにちは。
店別のファイルの「R3：S列の最終行」の範囲に空白セルが少なくとも1個あるときMsgを出したいです。
A列の最終行がS列の最終行であります。
以下のロジックをくみましたがエラーがでます。
また、或る範囲に空白セルが少なくとも1個あるか無いかを調べる関数があるでしょうか？
ご教示よろしくお願いいたします。

なお空白セルがあったら手入力するので、当該ファイルは閉じません。

Sub Macro1()

　Dim MyBranch(1) As String
　Dim i As Long
　Dim r As Long
　
　　MyBranch(0) = "北海道店.xls"
　　MyBranch(1) = "東北店.xls"
　'実際は店はもっとあります

For i = 0 To 1

　　Workbooks.Open Filename:="U:\" & MyBranch(i)

　　Range("A3").Select
　　r = .Row.Count
　　'↑ここでエラーがでます。

　　If Range("R3:S" & r) = Empty Then
　　　　MsgBox (MyBranch(i) & "には空白セルが" & Chr(13) & "少なくとも1個あります")
　　　　vbOKOnly

　　Else
　　　　
　　　　ActiveWorkbook.Close True

　　End If

Next i
　　　
End Sub

0 hits

▼

【62670】空白セルの有無を調べるには にしもり 09/8/20(木) 18:52

≪