68手游网

如果要用VBA创建新的工作簿，可以使用Add方法，如下面的代码。Excel自动将该工作簿命名为BookN，其中N是下一个可用的数字，同时新工作簿将成为活动工作簿。 Sub AddOne() Workbooks.Add End Sub 另外，创建新工作簿更好的方法是将其分配给一个对象变量。例如下例中，由Add方法返回的Workbook对象分配给了对象变量NewBook。...

如图所示，在Excel工作表的A、B、C、D四列的1-10行都放有字符串，现在要把B、C、D三列中的字符串分别与A列同一行的字符串相比较，如果含有A列字串的某个字符，就把这个字符变成红色（A列不变）。 例如第6行中分别有四个字符串H1N1、h1n1、流感、甲型H1N1，B6单元格中的h1n1与A6单元格中的H1N1都含有字符1，就将B6单元格中...

如果需要用VBA代码在Excel工作簿中选择下一个或上一个工作表，可以使用下面的代码。 Sub DownSheet() Dim i As Integer i = Worksheets.Count If ActiveSheet.Index i Then Worksheets(ActiveSheet.Index + 1).Activate Else Worksheets(1).Activate End If End Sub Sub UpSheet() Dim i As Integer i = Workshee...

选择一个工作表: Sheets(Balance).Activate. 选择单元格: Range(A1).Select 选择连续的单元格: Range(A1:G8).Select 选择不连续的单元格: Range(A1,B6,D9).Select Range(A1,B6:B10,D9).Select 选择当前活动的工作簿: ThisWorkbook.Activate 如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀.xls ，例...

Excel 2007的开发工具选项卡中有许多与程序开发和XML功能相关的命令， 包括代码、控件、XML和修改组。利用该选项卡，可以进行录制宏、打开VBA编辑器、运行宏命令、插入控件等操作。 在默认情况下，开发工具选项卡并未显示在Excel 2007功能区中，可以通过下面的方法让其总是显示在功能区中： 单击Office按钮Excel 选项常用...

如果Excel工作簿中包含宏命令，可以通过宏对话框来查看这些宏命令名称。方法是单击菜单工具宏宏，或按Alt+F8打开宏对话框。例如如下的代码： 在工作表中打开宏对话框： 有时我们不希望使用者通过宏对话框来运行宏命令，这时可以在代码的前面加上Private关键字。如： Private Sub test() End Sub 这样，当打开宏对话框后将...

Excel公式中对区域或单元格的引用有多种引用类型，如： $A$1 绝对行和绝对列 A$1 绝对行和相对列 $A1 相对行和绝对列 A1 相对行和相对列 如果要用VBA来转化公式中的引用类型，可以先选择需要转换的区域或单元格，然后运行下列代码。： Sub ConvFormulaReference() For Each m In Selection If m.HasFormula = True Then m....

有时我们需要在Excel的页眉页脚中调用某个单元格内容，例如让用户在A1单元格中填入月份，如一月，在页眉处自动生成一月报表，可以用VBA代码来实现，步骤如下： 1.按Alt+F11，打开VBA编辑器。 2.在工程窗口中，双击ThisWorkbook，在右侧的代码窗口中输入下列代码： Private Sub Workbook_BeforePrint(Cancel As Boolean) Ac...

如果用VBA代码播放WAV声音文件，可以用下面的代码： Private Declare Function sndPlaySound32 _ Lib winmm.dll _ Alias sndPlaySoundA ( _ ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile() sndPlaySound32 C:\Windows\Media\ding.wav, 0 End Sub 运行上述代码将播放C:\...

有时需要在Excel中运行一个工作时间较长的宏，当宏在运行时，消耗了一定的系统资源，并且似乎不能在Excel中做其他事情了。如果此时急需处理其他一些Excel表格，可以按Ctrl+Pause暂停宏的运行。此外，还可以在保持宏继续运行的同时，打开另一个Excel窗口，然后选择其他的工作表继续工作。由于此时鼠标变成沙漏状无法最小化E...