Excel plus VBA Tip 2: DateTimePicker控件和User Form的返回值

虽然一直想得很美好，把技术相关的Blog放到CSDN上（Write Ideas Down, Together With Skills），把随笔等文章放在个人网站上。然而，事实总是很残酷，总有些想法在一边起了个头，却在另外一边掺了一腿。这里说的是，我先是写了一篇Excel plus VBA Tip 1: Using Table in Data Validation，又写了一篇[Office] VBA Practice，然后，当我想写第三篇的时候，我凌乱了，伴随着我这些天感冒的涕零。

所以，这篇纯粹是CSDN上那篇文字的翻版，以为统一。

使用DateTimePicker控件

VBA中默认的User Form的Toolbox中的控件并不包含DateTimePicker，是接受时间相关数据的输入，在Toolbox上右击“Additional Controls”，在弹出的对话框中选择“Microsoft Date and Time Picker Control 6.0”

Setting

User Form的返回值

默认情况下，User Form并没有返回值（有意思的是，MsgBox倒是有返回值），那如何判断弹出的对话框是被点击了OK按钮还是Cancel按钮呢？

一个简单的方法是，

(1) 在User Form的Module中定义全局变量

Public ClickedByOK As Boolean

(2) 在对应的按钮响应方法中设置该变量

Private Sub btnCancel_Click()

    ClickedByOK = False

    Me.Hide

End Sub

Private Sub btnOK_Click()

    ClickedByOK = True

    Me.Hide

End Sub

(3) 在窗口结束后判断该变量的值

<Dim dlg As New dlgRememberItem

dlg.Show

If dlg.ClickedByOK = False Then

    Exit Sub

End If

处理时间相关数据

因为VBA只提供了一个简单的Date 数据类型，这无疑给时间相关数据的处理带来了复杂度；

一个非常好的VBA中处理时间数据的资源： http://dmcritchie.mvps.org/excel/datetime.htm

是为之记。 Alva Chien 2013.12.11于CSDN 2013.12.17