こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

【Excel VBA 2010】空白セルの検索

ある範囲の中から書式設定も文字も入っていないセルを選んできて、
それらには何も入力がされていないという警告を出そうと考えています。

Dim k As Integer
Dim msg As String
Dim 空欄() As Variant

k = 0
msg = " "

For i = 1 To 10
For j = 1 To 10

If Cells(i , j) = Cells(i , j).SpecialCells(xlCellTypeBlanks) Then
ReDim Preserve 空欄(k) As Variant
空欄(k) = Cells(i , j).Address
k = k + 1
End If

Next
Next

If 空欄(k) <> " " Then

For i = 0 To k - 1
msg = 空欄(i) & vbCrLf
Next

MsgBox (msg & "が入力されていません。")

Else





と続くのですが、上記のコードでエラー(型が一致しない)が起きます。
素人のため原因がわからないので、どなたか修正をお願いいたします。

投稿日時 - 2012-11-30 09:22:22

QNo.7822610

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

>SpecialCells(xlCellTypeBlanks)
 ⇒このコードでは空白がないと実行エラーになります。
  又、空欄と" "(スペース文字)では意味合いが相違しませんか。
  
一例です。
Dim r As Range
Dim msg As String
On Error GoTo ex
For Each r In Range("a1:j10").SpecialCells(xlCellTypeBlanks)
msg = msg & r.Address & vbCrLf
Next
MsgBox (msg & "が入力されていません。")
ex:

投稿日時 - 2012-11-30 10:21:02

あなたにオススメの質問