Календарь Код VBA только для выборочных ячеек

Question

Я использую следующий код с календарем в финансовой таблице в столбце A, чтобы избежать случайного ввода данных в столбцах, отличных от A. Я теперь изменил лист, чтобы включить даты в столбце «O «поэтому я хотел бы, чтобы он включил в код столбцы« A и O ». Это возможно?

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

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