在VBA中,赋予变量或属性的字符串都是用引号 “" "”括起来的。如果字符串中要包含英文双引号,可以在代码中将输出时包含引号的文本用两对双引号括起来,然后再将整个字符串用引号括起来。例如下面的代码:
Range("A2") = """Excel"""
将在A2单元格中输入出带引号的“"Excel"”。
也可以使用引号的ASCII 字符(34) :
Excel将长时间工作的宏置于后台运行
有时需要在Excel中运行一个工作时间较长的宏,当宏在运行时,消耗了一定的系统资源,并且似乎不能在Excel中做其他事情了。如果此时急需处理其他一些Excel表格,可以按Ctrl Pause暂停宏的运行。此外,还可以在保持宏继续运行的同时,打开另一个Excel窗口,然后选择其他的工作表继续工作。由于此时鼠标变成沙漏状无
Range("A3") = Chr(34) & "Excel" & Chr(34)
下面一段代码的输出结果如图。
Sub test()
Range("A1") = "Excel "
Range("A2") = """Excel"""
Range("A3") = Chr(34) & "Excel" & Chr(34)
Range("A4").Value = "He said,""Excel is an Electronic Spreadsheet Program."""
End Sub
Excel中利用VBA设置列宽和行高
如果要用VBA来设置区域的行高和列宽,可以用Range.ColumnWidth 属性和Range.RowHeight 属性,例如下例将选定的区域中各单元格的列宽和行高调整为指定的数值: Sub SetColumnAndRow()With ActiveWindow.RangeSelection.ColumnWidth =