本帖最后由 fangniuji 于 2016-3-3 12:17 编辑
- Option Explicit
- Private Sub Calendar1_Click()
- With Calendar1
- ActiveCell = .Value '赋值给激活单元格
- .Visible = False '隐藏日历控件
- End With
- End Sub
- '
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- With Calendar1
- If Target.Column = 1 Then '如果选择A列
- .Top = Target.Offset(0, 1).Top '设置位置
- .Left = Target.Offset(0, 1).Left
- .Visible = True '显示日历控件
- Else
- .Visible = False '隐藏日历控件
- End If
- End With
- End Sub
复制代码帮我有日期的插件范围在A3到A20,目前在A列谢谢。
If Target.Column = 1 Then
将第12句改成
if target.column=1 and target.row>2 and target.row<21 then
|