名前と空白の値に特定の文字を持つ名前付きセルをすべて検索します。

Question

名前が_で終わる各名前付きセルを検索しようとしていますが、セルの値は空白です。これは私が無駄に使用しているコードです。 （msgboxは、それがどれだけ見つかるか分かりやすくするためです）_は、セルを必要とすることです。一度に1つずつ行う必要はありません。ありがとう！

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