自制仿Win7日期窗口的日期选择器

mzbao

看了很多前辈的关于类模块的教程和实例，一直似懂非懂，看得不是太明白。为了加深理解，自己尝试做了一个制仿Win7日期窗口的日期选择器，做完后，虽然感觉类模块代码用的有点生硬，但总算是实现了预期的效果。不过最后关于选择器给单元格和窗体其它控件赋值的方式，我感觉我的方式好像不太好，应该还有更加直接的方式，但我还没学会。关于窗体随单元格位置变化的API相关代码，是找前辈们的代码拼凑的。

02761752696

xubo_eddy

兄弟，你好，能否给代买价格注释呢，谢谢了。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        Set DP_inRng = Target
        Call FmDateCL.ShowFrmAndMoveWithRange(Target)
    Else
        FmDateCL.Hide
    End If
End Sub

xubo_eddy

觉的挺好的，我是新人，指定哪一列是看懂了，但是请问请教三个问题，谢谢：

1.如何写去指定第一列和第二列同时有这个日期选择器？
2.如何指定的多个列有这个日期选择器？
3.如何是从列的哪个单元格开始到哪个单元格为止，有这个功能？

mzbao

xubo_eddy 发表于 2021-2-21 21:21
觉的挺好的，我是新人，指定哪一列是看懂了，但是请问请教三个问题，谢谢：

1.如何写去指定第一列和第二 ...

你的这些问题和这个日期选择器关系不大，只要改一下Sheet里的Worksheet_SelectionChange()事件里的条件就可以了。比如你第1和3个问题，你可以把我下面的“A:B”地址改成你需要的，第2个也差不多。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Union(Target, Range("A:B")).Address(0, 0) = "A:B" Then
        Set DP_inRng = Target
        Call FmDateCL.ShowFrmAndMoveWithRange(Target)
    Else
        FmDateCL.Hide
    End If
End Sub
现在的代码是满足里第1个问题的要求。

aman1516

xubo_eddy 发表于 2021-2-21 21:21
觉的挺好的，我是新人，指定哪一列是看懂了，但是请问请教三个问题，谢谢：

1.如何写去指定第一列和第二 ...

谢谢楼主分享，学习精神可嘉

个人觉得，日期控件主要适用于不便于手工输入的界面，或对格式有严格要求的地方
单元格中操作么，调出控件再去点击和选择的时间，键盘侠早输入完了

hqlin65

如果弹出的窗体在这各状态下，红圈中的选择键能循环增加或减少月份就完美了。目前在这个状态下点红圈中的选择键就出错。

hqlin65

感谢分享！！如能完善上面的问题就更好了

mzbao

hqlin65 发表于 2021-2-22 17:38
如果弹出的窗体在这各状态下，红圈中的选择键能循环增加或减少月份就完美了。目前在这个状态下点红圈中 ...

我这里显示可以的啊。你看上面的动图。你点一下调试看看哪个过程有问题。

hqlin65

mzbao 发表于 2021-2-22 22:16
我这里显示可以的啊。你看上面的动图。你点一下调试看看哪个过程有问题。

感谢您的分享！很奇怪，我今天在单位的电脑上试了，都会出错，刚才回家，在家里的电脑上运行却没有问题。再次感谢你的分享