查找名稱中包含特定字符的所有命名單元格和空白值

Question

我試圖找到名稱以_結尾並且單元格的值爲空的每個命名單元格。這是我使用的代碼無濟於事。 （msgbox只是爲了幫助我看看它找到了多少）。如果你知道一個更好的方法（不必每次都做一個），請讓我知道。謝謝！

namedrange = 0 

For Each cell In ActiveWorkbook.Names 
If Right(cell.Name, 1) = "_" And cell.Value = "" Then 
cell.Interior.ColorIndex = 3 
namedrange = namedrange + 1 
End If 
Next cell 

MsgBox namedrange 

Answer 1

解決方案：

requiredmissing = 0 

Dim RangeName As Name 
Dim namedrange As Long 

For Each RangeName In ActiveWorkbook.Names 
    If Right(RangeName.Name, 1) <> "_" Then GoTo skipthisone 

     If Range(RangeName.Name).Value = "" Then 
     Range(RangeName.Name).Interior.ColorIndex = 6 
     requiredmissing = requiredmissing + 1 
     Else 
     Range(RangeName.Name).Interior.ColorIndex = 0 
     End If 

    all = all + 1 
skipthisone: 
Next RangeName 

Answer 2

試試這個：

Sub test() 
    Dim RangeName As Name 
    Dim namedrange As Long 
    namedrange = 0 

    For Each RangeName In ActiveWorkbook.Names 
     If Right(RangeName.Name, 1) = "_" And Range(RangeName).Value = "" Then 
     Range(RangeName).Interior.ColorIndex = 3 
     namedrange = namedrange + 1 
     End If 
     all = all + 1 
    Next RangeName 

    MsgBox namedrange 
End Sub