'commandbutton的屬性
sub attribute1()
'可用性：false不可用， true可用
sheet2.commandbutton1.enabled = true
end sub
sub attribute2()
'標題sheet3.commandbutton1.caption = "按鈕"
end sub
sub attribute3()
'可見性：false隱藏，true顯示
sheet2.commandbutton1.visible = true
end sub
sub size()
'大小with sheet2
.commandbutton1.width = 100
'.commandbutton1.height = 28
end with
end sub
sub move1()
'移動with sheet3
.commandbutton1.top = .commandbutton1.top + .commandbutton1.height
.commandbutton1.caption = "來追我啊，大傻子"
end with
end sub
sub move2()
'移動with sheet3
.commandbutton1.left = .commandbutton1.left + .commandbutton1.width
.commandbutton1.caption = "來追我啊，大傻子"
end with
end sub
'commandbutton事件
private sub commandbutton1_click()
msgbox ("**不會點**喲！")
end sub
private sub commandbutton1_mousemove(byval button as integer, byval shift as integer, byval x as single, byval y as single)
call move2
end sub
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...
01 命名規範 非控制項
命名規範 雖然程式語言中只要使用識別符號命名即可滿足程式執行要求，但實際開發會出現變 量名 類名 方法名等。為了讓開發人員能更快地讀懂 區分每個名字所指代的內容，就要求每乙個名字都是有意義 符合規範的。本節將介紹些基本的命名規範。1.中的命名不應該使用中文，否則轉移到字符集不同的環境中時會出現亂碼，...
VBA自學應用（14） 使用DTP控制項輸入日期
首先我們找到開發工具欄下的activex控制項 其他控制項，如圖所示。然後找到我們需要的控制項 最後用 控制dtp控制項的位置和輸入。private sub worksheet selectionchange byval target as range with me.dtpicker1 if ta...