vba - 如何根据其他单元格的值获取单元格中的真/假值？

Question

我在 A1 中有一个带有“Y”和“N”的下拉列表。我想在单元格 B1 中编写代码，如果 A1 为“Y”，则获取值“True”，如果 A1 为“N”，则获取值“False”。

Sub YCheck()

Dim CellCheck As Boolean

Set Worksheets("Sheet1").Range("B1").Value = CellCheck

If Worksheets("Sheet1").Range("A1").Value = Y Then
CellCheck = True

ElseIf Worksheets("Sheet1").Range("A1").Value = N Then
CellCheck = False

End If
End Sub

它似乎不起作用。任何人都可以帮助我吗？谢谢!

Answer 1

对于初学者，Y 和 N 应该有引号。我假设它们不是 undefined variable ...您设置 B1 的行应该在末尾，而不是开头，并且您不应该使用 Set当你处理值(value)观时，Set仅用于 Object类型变量。

Sub YCheck()
  Dim CellCheck As Boolean

  If Worksheets("Sheet1").Range("A1").Value = "Y" Then CellCheck = True
  Worksheets("Sheet1").Range("B1").Value = CellCheck
End Sub