关于点击单元格选择日期的问题

cg001

老师好，在网上找到一个日历控件，是.xlam的，需要加载。
这个控件不方便的地方是，每次输入日期，需要先点击单元格，然后再点击右边的图标再选择日期，这个很不方便 ，能否请老师帮忙实现点击单元格后就跳出窗体选择日期，而不用两步才完成选择，谢谢。

这个是控件下载地址
http://samradapps.com/datepicker

这个是中文加载方法
https://gitcode.csdn.net/65eed48d1a836825ed79f2b6.html?dp_token=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpZCI6NjYyNjIxNywiZXhwIjoxNzI1MDI2OTg2LCJpYXQiOjE3MjQ0MjIxODYsInVzZXJuYW1lIjoiY2djZzAwMSJ9.D8lDqW8ZuPHfUlC39iDTcZ7zpX2J23DNbrCbdgnJ9Rk

cidanji

如果是需要二次点击图标，应该是为了点击非日期单元格时不造成干扰

cg001

cidanji 发表于 2024-11-2 17:52
如果是需要二次点击图标，应该是为了点击非日期单元格时不造成干扰

如果设置固定单元格点击呢，比如我设置在A1单元格点时就出现，不需要二次点击，能否实现呢？

cg001

cidanji 发表于 2024-11-2 17:52
如果是需要二次点击图标，应该是为了点击非日期单元格时不造成干扰

如果设置固定单元格点击呢，比如我设置在A1单元格点时就出现，不需要二次点击，能否实现呢？

赵桢0611

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Count = 1 Then
       With 小键盘 '改成你的输入窗体
            .Show 0
                 End With
    Else  '否则
        Unload 小键盘  '退出日历窗体
    End If
End Sub
代码放在表内

cg001

cidanji 发表于 2024-11-2 17:52
如果是需要二次点击图标，应该是为了点击非日期单元格时不造成干扰

https://club.excelhome.net/threa ... tml?_dsign=97a8b1ad
看到老师写的这个日历了，很漂亮，想请教下这个显示位置如何跟随单元格而改变呢，我试了好象都是在屏幕中的

赵桢0611

试试这个，我从我电脑中找的