VBA自學應用（14） 使用DTP控制項輸入日期

首先我們找到開發工具欄下的activex控制項——其他控制項，如圖所示。

然後找到我們需要的控制項

最後用**控制dtp控制項的位置和輸入。

private

sub worksheet_selectionchange(
byval target as range)
with
me.dtpicker1
if target.address = range(
"a2"
).address then
.visible =
true
.top = selection.top
.left
= selection.left
.height = selection.height
.width = selection.width
if target.cells(1,
1)<>
""then
.value = target.cells(1,
1).value
else
.value =
date
endif
else
.visible =
false
endif
endwith
endsub

private

sub worksheet_change(
byval target as range)
if target.address = range(
"a2"
).address then
if target.cells(1,
1).value =
""then
me.dtpicker1.visible =
false
endif
endif
endsub

private

sub dtpicker1_closeup(
)    activecell.value =
me.dtpicker1.value
me.dtpicker1.visible =
false
endsub

VBA自學應用（17） TreeView控制項

資料圖如所示 首先找到我們的treeview控制項插入 然後鍵入如下 private sub userform initialize dim i as integer dim j as integer dim arr arr sheet3.range b3 currentregion with me...

JS自學教程14

var d new date console.log d var d new date 12 23 2019 11 30 00 console.log d var date d.getdate console.log date var day d.getday console.log date va...

VBA應用例項

在這裡我記錄了常用的技巧。1 常用引用excel物件的方法 不完整，不斷新增 sheets 指定 名 activesheet 當前焦點的 activeworkbook 當前焦點的工作簿，即excel檔案 下面兩行用於引用指定 dim ws as excel.worksheet set ws shee...