isemptyおよび範囲内の変数

Question

このコードは常にセルを返しますが空ではありません。どうしてこれなの？私の範囲は間違っていますか？このコードは別のシートのコマンドボタンにあります。私は行番号をforループで実行するつもりですが、このコードを処理する前に正しく動作させる必要があります。列の住所、番号、手紙がありますのでご注意ください。

すべてのヘルプappreciated-おかげ ジェリー

columnletterstart = "A" 
columnletterend = "D" 

Let therange = columnletterstart & "20" & ":" & columnletterend & "20" 
Cells(6, 6) = therange 
If IsEmpty(Worksheets("Vacation Schedule").Range(therange)) = False Then 
    'Cell A2 is not blank 
    MsgBox "Cell is not empty" 
Else 
    'Cell A2 is blank 
    MsgBox "Cell is empty" 
End If 

Answer 1

あなたは多細胞範囲IsEmptyを渡している：空ではないそれは2D Variant配列として解釈（A20 D20）を、空のバリアントの初期化された配列であるためです。 IsEmptyは、数式を含まない単一セル範囲で動作します。

のisEmpty、単一細胞の例：

If IsEmpty(Worksheets("Example").Cells(1, 1).Value2) Then ... 

に@SJRで述べたように、複数のセルをカバーする範囲の虚しさをチェックするために、あなたはCOUNTAを見てみたい：

If Application.WorksheetFunction.CountA(Worksheets("Vacation Schedule").Range(therange)) > 0 Then 

編集

繰り返し問題は、ゼロレン文字列が空であるとして; Application.WorksheetFunction.CountAは、それらが定数（例えば、'）または""をもたらす式を含むかどうかにかかわらず、そのような細胞を計数する。範囲の空虚を考慮する際

次の関数は、必要に応じて長さゼロの文字列をスキップ：

Public Function IsRangeEmpty(ByVal prngTest As Excel.Range, pbZeroLengthStringIsEmpty As Boolean) As Boolean 
    IsRangeEmpty = prngTest.Find("*", LookIn:=IIf(pbZeroLengthStringIsEmpty, xlValues, xlFormulas), LookAt:=xlPart, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False) Is Nothing 
End Function 

Answer 2

私は今週、同じ問題のようなものを持っていた正直に言うと。

IsEmptyと​​は、私は私自身の方法を書いてしまった正しい結果を返しませんでしたので：D20：

Dim columnletterstart As String 
Dim columnletterend As String 
Dim concatenateString As String 

Dim testRange As range 

columnletterstart = "A" 
columnletterend = "D" 
concatenateString = columnletterstart & "20" & ":" & columnletterend & "20" 

Set testRange = range(concatenateString) 

If CheckRange(testRange) Then 
    MsgBox "empty" 
Else 
    MsgBox "not empty" 
End If