A. 如何使用vba,用代碼編寫在打開工作表時創建命令按鈕,關閉時刪除按鈕,謝謝各位高手!!
打開VBA編輯器,在 thisworkbook一欄里加入一下代碼:
打開時建按鈕,按鈕名和大小可在程序里修改。
Private Sub Workbook_Open()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=100.5, Top:=162, Width:=97.5, Height:= _
61.5).Select
End Sub
關閉時刪掉按鈕,按鈕名可在程序里修改
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
End Sub
B. inputbox 對話框 點擊「確定」 「取消」,vba怎麼寫
dim ans As Variant
ans = MsgBox(輸入你要顯示的內容, vbOKCancel + vbDefaultButton2)
If ans = vbOK Then
....... 點確認執行的代碼
Else
....... 點取消執行的代碼
End If
如果是inputbox的話本身就自帶確定和取消的,例如:
dim aaa as string
aaa=inputbox(輸入你要顯示的語句)
這樣就可以了
C. VBA 詢問 確定或取消命令
If MsgBox("繼續?", vbYesNo) = vbYes Then
Else
End
End If
D. VBA 如何清除 excel中的各種按鈕
假設要清楚Sheet1中的各種按鈕,在VBA中復制如下語句,運行即可:
Sub
main()
Sheet1.DrawingObjects.Delete
end
sub
關於此例中用到的DrawingObjects的相關知識:
VBA中圖形對象一般使用Shapes,但Shapes不支持Select方法,只支持Selectall,也不支持Delete方法,所以在對圖形對象進行刪除時,就要用到圖形對象集合的另外一個稱呼——DrawingObjects對象,以下代碼為選擇活動工作表中的所有圖形對象:
Activesheet.DrawingObjects.Select
當然除了支持Select方法,DrawingObjects還支持Delete方法,所以對於圖形對象進行刪除時,就可以用上述例子中的語句來實現,即:
Activesheet.DrawingObjects.Delete
E. vba取消窗體關閉按鈕
彈出窗體2後在窗體1里判斷窗體2是否還在Visible狀態、只有Visible=false時才往下跑、不然就在下面不斷判斷。窗體2.showdo if 窗體2.visible=false then exit dodoeventsloop這里開始寫窗體2關掉後要執行的代碼。
F. VBA中列表框中的選中項取消選中
建兩個控制項,如圖:
PrivateSubCommandButton1_Click()
Dimx
Forx=1ToListBox1.ListCount
IfListBox1.Selected(x)=TrueThenListBox1.Selected(x)=False
Nextx
EndSubPrivateSubUserForm_Activate()
ListBox1.List=Range("a1:a5").Value
EndSub
G. Excel 請問用VBA如何刪除窗體上的命令按鈕
假設你要關閉的窗口名稱屬性為:UserForm1
1、如果你是要卸載窗口(釋放內存),就在你的按鈕的單擊過程中使用下面的語句:
Unload
UserForm1
2、如果你只是要隱藏窗口(駐留在內存中),就在你的按鈕的單擊過程中使用下面的語句:
UserForm1.Hide
H. 我用VBA在WORD工具欄ADD了一個命令按鈕,怎樣刪掉呢~
打開「工具」--「自定義」,在工具欄中右擊你要刪除的按鈕,選刪除。