'这个工作簿.工作表Sheet1.单元格A1.选择 '等同于: With ThisWorkbook.Sheets("Sheet1").Parent.Activate '这个对象的父对象即ThisWorkbook.激活.Select '这个对象即ThisWorkbook.Sheets("Sheet1").选择.Range("A1").Select '这个对象的子对象Range("A1").选择 'Range("A1")也可以写成[A1]End With 'With就...
1、编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏;双击Sheet1,对整个sheet编写宏; 或者创建模块,在模块里,编写、调试代码。 打开VBA的方法见第一讲,结合常用窗口进行编写、调试。 2、部分对象有提示,如Dim a As,敲击空格后有提示。 3、所有宏要运行,必须启动宏。(2007版启动宏,点击表格左上角 “exce...
With ThisWorkbook.Sheets("Sheet1").Parent.Activate'这个对象的父对象即ThisWorkbook.激活 .Select '这个对象即ThisWorkbook.Sheets("Sheet1").选择.Range("A1").Select'这个对象的子对象Range("A1").选择 'Range("A1")也可以写成[A1]End With 'With就是为了把点前相同的内容写在一个位置方便修改与阅读 End ...
With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close End With End If End Sub 在模块中输入上述代码，然后在thisworkbook下，设置以下文件打开事件，每次打开文件时，自动判断是否到达日期，如果到期，自动删除文件： Private Sub Workbook_Open() Call 工作薄自杀 End Sub 想了解...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path&"\小龙女.xlsx"ActiveWorkbook.Close SaveChanges:=True End Sub '方法二:复制工作表为新的工作表,写入数据,再移动工作表另存为新的工作簿 SubMoveSaveAs()wsh_num=Worksheets.CountWorksheets("模板").Copy After:=Worksheets(wsh_num)withWorksheets(wsh_num+1)...
ThisWorkbook.Close SaveChanges:=False End Sub Private Sub btnOK_Click() Dim iFoundPass As Integer On Error Resume Next With Sheets("用户中心").Range("UserName") iFoundPass = .Find(What:=txtUserName, After:=.Cells(1, 1),LookIn:=xlValues...
With Nowbook For i = 1 To 4 With .Sheets(i).Name = ShName(i - 1).Range("B1").Resize(1, UBound(Arr) + 1) = Arr .Range("A2") = "品名"End With Next .SaveAs Filename:=ThisWorkbook.Path & "\" & "库存.xls".Close Savechanges:=True End With Set Nowbook = Nothing Applicatio...
ThisWorkbook 总是返回宏执行时它所在的工作簿。 例如，可以使用下列代码激活加载宏工作簿中存储的对话框工作表。 ThisWorkbook.DialogSheets(1).Show 本属性仅可在 Microsoft Excel 内使用。不能使用此属性访问任何其它应用程序的工作簿。 示例 本示例关闭包含示例代码的工作簿，不保存对工作簿的任何改动。
属性可能失效。ThisWorkbook 总是返回宏执行时它所在的工作簿。例如，可以使用下列代码激活加载宏工作簿中存储的对话框工作表。ThisWorkbook.DialogSheets(1).Show 本属性仅可在 Microsoft Excel 内使用。不能使用此属性访问任何其它应用程序的工作簿。示例 本示例关闭包含示例代码的工作簿，不保存对工作簿的...
VBE即VBA的编辑环境。通常有两种方式可以进入 菜单栏 -> 开发工具 -> Visual Basic 快捷键:Alt + F11 3. 第一个VBA程序 进入VBE后,在菜单栏依次选择“插入”->“模块”,然后光标会自动定位到代码窗口中,VBA中的代码即在此编写。 VBA常使用“过程”来组织代码(另一种方式是“函数”,后面会介绍)。过程用 ...