VBA - 数据验证空单元格

Question

我在 excel 中创建了命名范围，范围的命名基于 sheet2 上的键值。 现在我在另一个 sheet1 上创建了下拉列表，使用公式 - INDIRECT，再次基于 key，在 sheet1 上。如何在下拉列表中添加空白/特殊符号？我无法在工作表上的已排序项目之间添加空单元格。 表2：

我有 2 个基于 MAT/AE 列的命名范围，第一个是 C2:C4 的范围，下一个是 C5:C6。

我有 Sheet1，我使用数据验证，使用公式 INDIRECT 连接 MAT1&AE11，并且我的值基于 Sheet2 的范围。

所以我的问题是，如何在此列表中添加空白/特殊字符？

范围代码：

    Sub Start()

lf_index_row = 1
lf_name_space_row = 2

gf_namespace = ""

Do

lf_index_row = lf_index_row + 1

lf_material = Sheets(gc_data).Cells(lf_index_row, 1)
lf_location = Sheets(gc_data).Cells(lf_index_row, 2)

gf_new_namespace = "X" & lf_material & lf_location

If gf_new_namespace = "X" Then
 If gf_namespace = "" Then
    End
 Else
    'create namespace
    Set lf_range = Range(Cells(lf_start_number, 3), Cells(lf_end_number, 3))
    lf_range.Select
    Range(Cells(lf_start_number, 3), Cells(lf_end_number, 3)).Select
    ActiveWorkbook.Names.Add Name:=gf_namespace, RefersTo:=lf_range
    End
 End If
End If
If gf_namespace <> gf_new_namespace Then
    If gf_namespace = "" Then
        'initialize newnamespace
        gf_namespace = gf_new_namespace
        lf_start_number = lf_index_row
        lf_end_number = lf_index_row
    Else
        'create namespace
        Set lf_range = Range(Cells(lf_start_number, 3), Cells(lf_end_number, 3))
        lf_range.Select
        Range(Cells(lf_start_number, 3), Cells(lf_end_number, 3)).Select
        ActiveWorkbook.Names.Add Name:=gf_namespace, RefersTo:=lf_range
        'initialize newnamespace
        gf_namespace = gf_new_namespace
        lf_start_number = lf_index_row
        lf_end_number = lf_index_row
    End If
Else
    lf_end_number = lf_index_row
End If

Loop

End Sub

间接公式：

第一个命名范围的定义：

Answer 1

如果列表在Range("A1:A10")，这是如何实现只有一个空位置的验证列表：

使用以下代码：

Sub TestMe()

    Dim list1               As Range
    Dim validationFormula   As String

    Set list1 = Range("A1:A10")

    Dim myCell As Range
    For Each myCell In list1
        If Not IsEmpty(myCell) Then
            validationFormula = validationFormula & myCell.Value2 & ","
        End If
    Next

    validationFormula = validationFormula & Chr(160)

    With Range("B5").Validation
        .Delete
        .Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=validationFormula
        .IgnoreBlank = False
        .InCellDropdown = True
    End With

End Sub

---

代码的想法是什么？通过连接所有Not IsEmpty() 的单元格，验证字符串在validationFormula 中生成。一旦validationFormula 准备就绪，就会将Chr(160) 添加到其中，以确保我们也有可用的空单元格。

甚至可以这样添加：validationFormula = Chr(160) & "," & validationFormula，如果您需要将它放在第一个位置：

一旦准备好validationFormula 字符串，我们就可以让自己写.IgnoreBlank = True，只要列表中只有一个空白——我们需要的那个。

感谢这个人的循环想法 - https://superuser.com/questions/1254754/data-validation-from-2-lists-excel-2010

Answer 2

使用以下内容检查行值 = 3 和列值 = 4 的单元格是否为空白：

Set objExcel = CreateObject("Excel.Application")
Set excelInput = objExcel.Workbooks.Open("myfile")
If excelInput.Sheets("Sheet1").Cells(3, 4) <> vbNullString Then
    'do the thing
End If

上面的代码是 VBScript，但它应该可以工作。如果不是，它在 VBA 中几乎相同。