'这个工作簿.工作表Sheet1.单元格A1.选择 '等同于: With ThisWorkbook.Sheets("Sheet1").Parent.Activate '这个对象的父对象即ThisWorkbook.激活.Select '这个对象即ThisWorkbook.Sheets("Sheet1").选择.Range("A1").Select '这个对象的子对象Range("A1").选择 'Range("A1")也可以写成[A1]End With 'With就...
Sub WithTest2() With ThisWorkbook.Worksheets(1).Range("A1") .Clear .Value = "Excel Home" With .Font .Name = "宋体" .Size = 16 .Bold = True .ColorIndex = 3 End With End With End Sub 6. 7. 8. 9. 10. 11. 12.
应用条件格式时,你注意到条件格式设置不正确。例如,使用在 Excel 工作表中包含 VBA 代码的程序(类似于以下代码):遇到此问题:VB 复制 Sub Example() ThisWorkbook.Worksheets(1).Range("A1").Select With ThisWorkbook.Worksheets(1).Range("B1") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression...
Set ws = ThisWorkbook.Sheets("明细表")Set ws = ThisWorkbook.Worksheets("明细表")这种方法的好处是比较直观，我们可以清楚地看到引用的工作表的名称；不好（也不应该说是不好吧？）的地方就是如果工作表的名称被改了，那么代码就得修改，否则肯定会出错；当然，我们在写代码之前，应该把一些基础表格确定下来，...
一、批量获取文件夹下的文件名和修改日期_效果图 二、批量获取文件夹下的文件名和修改日期_代码 Sub FileTest() '获取文件名和修改日期 Dim path, file, i path = Application.ThisWorkbook.path & "\" '只是文件名 不是文件对象 file = Dir(path & "*.*") With ThisWorkbook.Worksheets(1) .Cells(1,...
Sub RunVBAOnMultipleWorksheets() Dim ws As Worksheet ' 使用With语句设置工作表对象引用 With ThisWorkbook ' 在Sheet1上执行操作 Set ws = .Worksheets("Sheet1") ' 在ws变量下执行多个操作 With ws ' 在此执行Sheet1上的操作 .Range("A1").Value = "Hello, Sheet1!" ' ... End With ' 在Sheet2...
With ThisWorkbook.Worksheets("2of2") For i = 3 To 8 arr = Application.Transpose(Application.Transpose(.Range("A" & i).Resize(1, .Range("IV" & i).End(xlToLeft).Column))) ThisWorkbook.Sheets(arr).Copy Next End With End Sub
ThisWorkbook属性返回运行Visual Basic代码的工作簿。当Visual Basic代码是加载宏的组成部分时,返回加载宏的工作簿,而非调用该加载宏的工作簿。 使用Workbooks(index)(其中 index 是工作簿名称或索引号)可返回一个 Workbook 对象。index指创建或打开工作簿的顺序。Workbooks(1) 是创建的第一个工作簿,而 Workbooks(Workb...
(1)通过工作表的名称(Name)引用工作表 Set ws = ThisWorkbook.Sheets("明细表") Set ws = ThisWorkbook.Worksheets("明细表") 这种方法的好处是比较直观,我们可以清楚地看到引用的工作表的名称; 不好(也不应该说是不好吧?)的地方就是如果工作表的名称被改了,那么代码就得修改,否则肯定会出错; 当然,我们在写...
ThisWorkbook.Worksheets("sheet2").Range(Cells(2, 1), Cells(Rows.Count, 7)).ClearFor n = 2 To k + 1For x = 1 To 6y = Application.WorksheetFunction.RandBetween(1, 33)g = Application.WorksheetFunction.CountIf(Range(Cells(n, x), Cells(n, x + 5)), y)If g = 0 ThenCells(n, x...