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了一个命令按钮,怎样删掉呢~
打开“工具”--“自定义”,在工具栏中右击你要删除的按钮,选删除。