VBA Excelのループごとにダブル

Question

私は、「Releves」と「Observations」と呼ばれる2枚のシートをExcelで使用しています。 Observations Sheetsの列のセルの内容に基づいて、Relevesシートの列に色を付ける必要があります。

文は、この1のようになります。

my_column_observations_sheetのセルが空でない場合は、my_column_releves_sheetに黄色 色を置きます。

ループごとに2倍にしましたが、動作しません。私は、スクリプトを実行すると、my_column_releves_sheetのすべてのセルはmy_column_observations_sheetのセルが空であっても、着色している​​...ここで

は私のスクリプトです：

Sub condition() 

Dim espece As Range 
Dim num_releve As Range 

ThisWorkbook.Sheets("Relevé").Activate 
Set num_releve = ActiveSheet.Range("G3:G6") 

ThisWorkbook.Sheets("Observations").Activate 
Set espece = ActiveSheet.Range("B3:B6") 

    For Each i In espece 
     For Each j In num_releve 
     If Not IsNull(i.Value) Then j.Interior.ColorIndex = 6 
     Next 
    Next 
End Sub 

Answer 1

For Each i In espece 
    For Each j In num_releve 
     If Not IsNull(i.Value) Then j.Interior.ColorIndex = 6 
    Next 
Next 

IsNullこのように使用することはできません。空のセルの値は、空のであり、ではなく、ではありません。代わりにIsEmptyを使用してください：非空のセルとして、空の文字列を返す式を有するセルを扱います

For Each i In espece 
    For Each j In num_releve 
     If Not IsEmpty(i.Value) Then j.Interior.ColorIndex = 6 
    Next 
Next 

。 `のIsNull（任意のセル値）が常に起こって`されているためです

For Each i In espece 
    For Each j In num_releve 
     If Not IsError(i.Value) Then 
      If CStr(i.Value) <> vbNullString Then j.Interior.ColorIndex = 6 
     End If 
    Next 
Next