居家小常識,婚姻男女版,生活旅遊記,八卦娛樂網

【VBA】Excel Vba Date Time Picker 簡易使用方法

Excel Vba Date Time Picker 簡易使用方法  (How to use DateTimePicker)

 

1.新增表單(form)

先插入一個自訂表單form,然後再控制項工具箱選擇 DateTimePicker 物件

1.png

 

2.若控制項中沒有該  DateTimePicker 物件 則 在控制項按右鍵新增

DateTimePicker

 

3.往下拉 尋找一個 Microsoft Date And Time Picker Control 6.0  並點選 打勾按確定

DateTimePicker

 

4.再來就會看到選項多了一個 DateTimePicker 物件,將之拖曳到 表單form 上

vba

 

5. 使用起來就會像是下拉式選單一樣(dropdown list 或 combobox 差不多)

excel

 

6. 如果要取得該值的話 

Range("A1").Value = DTPicker1.Value '將值顯示在A1欄位上

 

7. 若要新增多一天在Range("A2") 上,可以使用 公式的方法。

Range("A2").Formula = "=A1+1"

6.png

 

8.若要客製化日期格式可以使用

DTPicker1.CustomFormat = "dd/MM/yyyy" '欲顯示的日期格式
DTPicker1.Format = dtpCustom '選擇使用客製化格式

8.png

也可以在屬性欄直接打上

7.png

 

加上星期的格式

DTPicker1.CustomFormat = "yyyy-MM-dd (ddd)" 

9.png

 

9.取得該日的星期

若星期日、一、二、三、四、五、六

該值依序為 1.2、3、4、5、6、7

Weekday(DTPicker1.Value)

 

也可以自訂哪一天為1

此例為自訂星期四所得數值為1

msgbox Weekday(DTPicker1.Value,5)

10.png

 

有其他問題歡迎留言