日期控件的 VBA代码

来源：百度知道 编辑：UC知道 时间：2024/06/24 11:13:12
请教高手，想实现功能，当放在单元格的第5列 和 第7列时，出现日期控件。 以下是我只懂第5列出现，不懂如何增加第7列的 VBA代码！请高手赐教！

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 5 Then
Calendar1.Visible = False
Else
Calendar1.Top = Target.Top
Calendar1.Left = Target.Left + Target.Width
Calendar1.Visible = True
End If
End Sub

If Target.Column <> 5 and Target.Column <>7 then

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 7 Then
Calendar1.Visible = False
Else
Calendar1.Top = Target.Top
Calendar1.Left = Target.Left + Target.Width
Calendar1.Visible = True
End If
End Sub

把5改成7就可以了！
A列就是1，B列就是2，，，，，，依此类推

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 or Target.Column=7 Then
Calendar1.Top = Target.Top
Calendar1.Left = Target.Left + Target.Width
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub