68手游网

在Excel中，当光标移动到包含批注的单元格中时，通常会在状态栏和批注中显示批注者的名称。如果需要将批注者改为其他人，可以用下面的VBA代码。以后再插入新的批注，也将使用新输入的名称。使用前先将代码中的新作者和原作者按照需要进行替换。 Sub ChangeCommentName() Dim ws As Worksheet Dim cmt As Comment Dim strOl...

在VBA中，可以用Sheets.Add 方法在工作簿中新建工作表。其语法是： Sheets.Add(Before, After, Count, Type) 其中参数Before、After指定新建工作表的位置，Coun指定工作表的数量，Type指定新建工作表的类型。如下例： 在工作簿新建一个名称为工作表1的工作表： Sub AddWorksheet() On Error Resume Next Worksheets.Add()....

如果要用VBA来设置区域的行高和列宽，可以用Range.ColumnWidth 属性和Range.RowHeight 属性，例如下例将选定的区域中各单元格的列宽和行高调整为指定的数值： Sub SetColumnAndRow() With ActiveWindow.RangeSelection .ColumnWidth = 3 .RowHeight = 19 End With End Sub 如果要将选定区域内的各单元格的列宽和行高调整为...

用下面的VBA代码可以在A1:A100区域中生成由大小写字母和数字组成的12位长度的随机字符串，从中挑选几个作为密码用还是不错的。 在Excel中按Alt+F11打开VBA编辑器，双击工程窗口中的某个工作表名称，在右侧的代码窗口中输入下列代码： Sub MakeRandomString() Dim J As Integer Dim K As Integer Dim iTemp As Integer Dim...

当在工作表中设置了自动筛选，而在保护工作表时没有选择允许使用自动筛选，那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选，可以用下面的VBA代码： 1.按Alt+F11，打开VBA编辑器，在工程窗口中选择相应的工作表，在右侧的代码窗口中输入下面的代码： Sub AutoFilterInProtec...

在Excel中要对工作表进行保护，可以通过单击菜单工具保护保护工作表的方法来进行。如果要用VBA来保护工作表或撤消工作表保护，可以用下面的代码： Public Sub Protect_Sheet() '保护工作表，设置密码为password ActiveSheet.Protect Password:=password End Sub 上述代码可以对活动工作表进行保护，并设置保护密码为passwo...

如果要用VBA代码在Excel工作表中删除指定的单元格、行和列，可以使用下面的代码： Sub DeleteCellRowColumn() '删除活动单元格，下方单元格上移 ActiveCell.Delete Shift:=xlUp '删除选定的区域，右方单元格左移 Selection.Delete Shift:=xlToLeft ' 删除行或列 Range(B2).Select Selection.EntireRow.Delete Range(F2).Se...

如果要在VBA中使用非连续区域，可以用类似Range(A1, B2, C3:D10)的语句，如下例： Sub NonContiguousRange() Dim oRng As Range Set oRng = Range(A1, B2, C3:D10) oRng.Value = 100 oRng.Interior.ColorIndex = 2 End Sub 上述代码设置非连续区域A1、B2、C3:D10的值为100，同时设置非连续区域的背景颜色为粉红。...

我们知道VBA中的Like运算符是用来比较两个字符串的，其语法为： result = string Like pattern 如果string与pattern匹配，则result为True，如果不匹配，则result为False。Like运算符的比较方式比较灵活，除了可以使用通配符外，pattern中还可以使用中括号[ ]。在中括号[ ]中，可以用由一个或多个字符组成的组与 string 中...

我们知道在Excel单元格中输入当前时间的快捷键是Ctrl+Shift+;，但是这种输入方法只能显示小时和分钟，即HH:MM格式的时间。用下面的VBA代码可以实现用上述快捷键输入当前时间时，在单元格中显示的是包含秒的HH:MM:SS格式。方法如下： 按Alt+F11，打开VBA编辑器，单击菜单插入模块，将下列代码输入到代码窗口中： Sub setKey...