使用For Each...Next语句遍历工作簿中所有的工作表，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub ShCount2() #002 Dim Sh As Worksheet #003 Dim s As String #004 For Each Sh In Worksheets #005 s = s Sh.Name Chr(13) #006 Next #007 MsgBox 工作簿中含有以下工...

使用For...Next 语句遍历工作簿中所有的工作表，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub ShCount1() #002 Dim c As Integer #003 Dim i As Integer #004 Dim s As String #005 c = Worksheets.Count #006 For i = 1 To c #007 s = s Worksheets(i).Name Chr(13)...

在VBA中使用Add方法新建工作簿，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub AddNowbook() #002 Dim Nowbook As Workbook #003 Dim ShName As Variant #004 Dim Arr As Variant #005 Dim i As Integer #006 Dim myNewWorkbook As Integer #007 myNewWorkbook = Appli...

使用ActiveWorkbook代表活动窗口（最上面的窗口）的工作簿，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub WbQuote_5() #002 MsgBox 当前活动工作簿名字为： ActiveWorkbook.Name #003End Sub 代码解析： WbQuote_5过程显示活动工作簿的名称，ActiveWorkbook属性返回一...

使用ThisWorkbook属性返回当前宏代码运行的工作簿，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub WbQuote_4() #002 ThisWorkbook.Save #003End Sub 代码解析： WbQuote_4过程使用Save方法保存当前宏代码运行的工作簿所做的更改。 ThisWorkbook属性返回一个Workbook对...

工作簿索引号是指工作簿打开的顺序，Excel根据工作簿打开的顺序以1开始进行编号。下面的代码显示应用程序打开的第一个工作簿的名称。 复制内容到剪贴板 代码: #001Sub WbQuote_2() #002 MsgBox 第一个打开的工作簿名字为： Workbooks(1).Name #003End Sub 代码解析： WbQuote...

VBA中，在不同的工作簿之间转换需要指定引用的工作簿，通常有下面几种方法。 40-1 使用工作簿的名称 工作簿名称是指Excel文件的文件名，可以使用Workbooks集合引用方式来引用工作簿，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub WbQuote_1() #002 MsgBox 路径为： Wo...

OFFSET引用函数应用精讲下载 /uploads/soft/200905/2_24084304.rar...

excel vba实现禁止鼠标右键代码详解 Sub 右键无效() Application.CommandBars(toolbar list).Enabled = False '菜单栏右键 '以下为工作表中右键 Dim myBar As CommandBar For Each myBar In CommandBars If myBar.Type = msoBarTypePopup Then myBar.Enabled = False End If...

在实际操作中，经常需要复制指定的单元格区域到另外一个单元格区域。要复制指定单元格区域到其他位置，使用Range对象的Copy方法，如下面的代码所示。 复制内容到剪贴板 代码: #001Sub RangeCopy() #002 Application.DisplayAlerts = False #003 Sheet1.Range(A1).CurrentRegi...