列と印刷の値の空のセルをVBAで確認してください

Question

親愛なるスーパーマ！

列Jには、チェックされた値などの空の行と行があります。

空のセルがある場合は「未チェック」を出力するvbaコードを書き込もうとしましたが、これは動作しますが、値がチェックされているセルにヒットした場合は停止します。おそらく、完全には満たされていないにもかかわらず何も印刷しないが、それでもまだその数式が含まれているセルに数式があるため、次のセルに移動することはありません。私の場合は、J7まで空のセルがあり、その後J15で再び開始されます。これはソースデータに関して時々変更される可能性があります。

私がこれを好きな理由は、beacuseです。すでにいくつかの値を印刷している列Jの式と、異なる列の他の値をチェックし、列Jに印刷するVBAコードがあります。フィルタのマスター列の並べ替え。だから、これは私がそれを行う必要がある方法です。セルは、この場合、式ウィッヒが含まれている場合

私のコード右今、

Sub DoIfNotEmpty() 
    Dim ra As Range, re As Range 

    With ThisWorkbook.Worksheets("Sheet1") 
     Set ra = .Range("J:j25") 
     For Each re In ra 
      If IsEmpty(re.Value) Then 
       re.Value = "unchecked" 
      End If 
     Next re 
    End With 
End Sub 

iは、空のセルに印刷することができ満たされていないif文を持っていますか？

Answer 1

を書くことができポイントはそれが.Range("J1:j25")であるはずです。私は細胞が空に見えますが、それはそうではないと思います。

空の文字列を含むセル""はもう空ではありませんが、そのように見えます。あなたはこのようにそれをテストすることができます。

1. を新しいワークシートの書き込みではA1に：=""は（間にスペースがない！）
2. コピーA1とA1で特殊なペースト値を。 A1は空に見えます。
3. VBAでDebug.Print IsEmpty(Range("A1").Value)を実行すると、FALSEとなります。

セルA1に空の文字列が含まれているため、セルA1はもう空ではありません。

あなたは何ができますか？

Sub DoIfNotEmpty() 
    Dim ra As Range, re As Range 

    With ThisWorkbook.Worksheets("Sheet1") 
    Set ra = .Range("J1:J25") 
     For Each re In ra 
      If IsEmpty(re.Value) or re.Value = vbNullString Then 
       re.Value = "unchecked" 
      End If 
     Next re 
    End With 
End Sub 

これは疑似空のセルも「未チェック」とマークします。しかし、空文字列""という結果になる数式も削除されることに注意してください。

Answer 2

あなたは空白を返す数式を持っている場合、Rangeオブジェクト

Sub DoIfNotEmpty()  
    ThisWorkbook.Worksheets("Sheet1").Range("J1:J25").SpecialCells(xlCellTypeBlanks).Value = "unchecked" 
End Sub 

か、のSpecialcells()方法を悪用し、その後AutoFilter()「ブランク」細胞と@Maximeポルトのから除き、それらに

Sub DoIfNotEmpty() 
    With ThisWorkbook.Worksheets("Sheeet1").Range("J1:J25") '<--| reference your range (first row must be a "header") 
     .AutoFilter Field:=1, Criteria1:="" '<--| filter its empty cells 
     If Application.WorksheetFunction.Subtotal(103, .cells) > 1 Then .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Value = "unchecked" '<--| if any cell filtered other than headers then write "unchecked" in them 
     .Parent.AutoFilterMode = False 
    End With 
End Sub