VBA入门到进阶常用知识代码总结61

第61集 日期和进度条
295、 注意事项
注意：64位office无法加载该控件，32位可以运行。
296、 常用的日期控件
有2个，一个是DTPicker，另一个是Calendar。附加控件中选择Microsoft Dtae and Time Picker Control和日历控件 12.0。

DTPicker设置日期格式是，月份要大写。如：yyyy-MM-dd
297、 注册日历控件
Sub 自动注册日期控件()
Dim k
FileCopy ThisWorkbook.path & “/MSCOMCT2.OCX”, “C:\Windows\system32\MSCOMCT3.OCX”
k = Shell(“regsvr32 MSCOMCT2.OCX”)
End Sub
298、 进度条
① 通过TextBox和Label控件组合，实现进度显示的效果。

Private Sub CommandButton1_Click()
Dim x, w, k, n
w = TextBox1.Width
n = 40000
'ProgressBar1.Max = n
'ProgressBar1.Min = 0
'ProgressBar1.Scrolling = ccScrollingSmo