仅用于选择性单元的日历VBA代码

Question

我将以下代码与A列中的财务电子表格中的日历一起使用，以避免在A以外的列中意外输入数据。我现在已经更改了工作表以在列中包含日期＆＃34; O＆＃34;所以我希望它包括列＆＃34; A和O＆＃34;在代码中。请问这可能吗？

log

Answer 1

如果我的问题正确，解决方案是Or运营商：

Private Sub Calendar1_Click()
Columnchk = Mid(ActiveCell.Address, 2, 1)
' set value only if active column = A or O
If Columnchk = "A" Or Columnchk = "O" Then ActiveCell.Value = Me.Calendar1.Value
End Sub