|
如何在 B到G 列每个单元格中加入日期选择器,
任意点这几列中的任意单元格,都能出现日期选择器提示框,
虽然论坛上有很多答案,可是一到我的表格上,就出现错误,
麻烦各位大侠帮忙,感激涕零
- 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 And Target.Column < 8 Then
- .Top = Target.Offset(0, 1).Top '设置位置
- .Left = Target.Offset(0, 1).Left
- .Visible = True '显示日历控件
- Else
- .Visible = False '隐藏日历控件
- End If
- End With
- End Sub
复制代码
日期选择器2.rar
(26.69 KB, 下载次数: 298)
|
|