VBA：使用下拉列表检测单元格中的值

Question

我在使用下拉列表检测单元格中的值时遇到了一些问题。

当我运行下面的代码时，它只给了我在列I列中的值0。柱H包含若干Dropdown lists（由数据验证制造），该值可以是Yes或No：

Sub DropDownlistValue() 

Dim Holidays As Worksheet 

Dim Checkbox_RowCount As Long 
Dim HolidayCount As Long 

Set Holidays = ThisWorkbook.Sheets("Visning") 

Checkbox_RowCount = Holidays.Cells(Holidays.Rows.Count, "H").End(xlUp).Row 

For HolidayCount = 2 To Checkbox_RowCount 
    If Not IsEmpty(Holidays.Range("H" & HolidayCount)) Then 

     Holidays.Activate 
     Holidays.Range("H" & HolidayCount).Select 

     If ActiveCell = "YES" Then 
      ActiveCell.Offset(0, 1) = 1 
     Else 
      ActiveCell.Offset(0, 1) = 0 
     End If 
    End If 
Next HolidayCount 

End Sub 

预先感谢。

Answer 1

什么，你可能需要的是在这条线的变化：

If ActiveCell = "YES" Then 

到

If Ucase(ActiveCell) = "YES" Then 

还有一个提示 - 移动这条线：前

Holidays.Activate 

/你的外循环。