4.宏里调用并控制窗体以及窗体上的各种控件 1 Sub Criterion_Check() 2 If Workbooks.count = 0 Then '如果当前没有打开的工作薄的话需要发出警告 3 MsgBox "工作簿未创建,请先创建一个工作簿,或打开一个工作簿." 4 Exit Sub 5 End If 6 CriterionCheckDlg.Show (vbModeless) '调用对话框进行规则检查,放到static_check函数下,在按钮CommandButtonOk的响
2.1 数据类型 数据类型 所占字节 Byte 1 Boolean 2 Integer 2 Long 4 Single 4 Double 8 Currency 8 Decimal 14 Date 8 Object 4 String 10 Variant 16 实例 Sub test() Dim sums as long, cell as range, I as integer, mystr as string For each cell in range(“A1:A10”) If vba.isn
Workbook事件用于响应对Workbook对象所进行的操作. [BeforeClose事件] BforeClose事件用于响应窗口关闭的操作 在工程资源器中,双击“ThisWorkbook”对象,弹出"ThisWorkbook"窗口,并且选择Workbook,BeforeClose 并在窗口中写下如下代码:[代码区域] Private Sub Workbook_BeforeClose(Cancel As Boolean) If ThisWorkbook.Saved = False
使用自定义数据类型存储输入数据,并通过弹出窗口展示 [代码区域] Type lianxiren ' name As String Sex As String End Type Sub aa() Dim record As lianxiren '声明一个lianxiren类型的变量 record.name = InputBox("请输入名称", "记录联系人信息") record.Sex = InputBox("请输入性别", "记录联系
VBA的知识比较零散,因此开一贴记录一下使用VBA时的一些方法和心得.主要针对Excel,参考在这里 1. Collection Class 大部分情况下,Collection Class是比数组(Array)更好的一个选择,使用也十分简单: Sub test() 'Create Dim names As New Collection names.Add "Jack" names.Add "Rose" 'Or Dim phones As Collection Set