Sh As Object, ByVal Target As Range)'显示带数字的表名 b = Split(Sh.Ncom, "(") On Error GoTo ss num = CInt(Left(b(1), Len(b(1)) - 1)) If num >= 1 And num < 20 Then MsgBox Sh.Ncom End If Exit Sub ss: MsgBox "error", 16, "" End Sub 23、Sub Test()'选择所有工作表名以"业报"开头的工作表或头两个字是业报的报表名引用 Set Sh = ActiveSheet If Left(Sh.Ncom, 2) = "业报" Then ' 或if sh.ncom like"业报*"then MsgBox "你成功了", 64, "" End If End Sub 24、1.建立文件夹的方法 MkDir "D:\Music" 2.打开文件夹的方法 ActiveWorkbook.FollowHyperlink Address:="D:\Music", NewWindow:=True 25、在当前工作表翻页 Application.SendKeys "{PGUP}", True Application.SendKeys "{PGDN}", True 或者 ActiveWindow.LargeScroll Down:=1 ActiveWindow.LargeScroll Down:=-1 26、当Target = "*小计"时如何写,*代表任何字符。 if instr(target.value,"小计")<>0 then Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Value Like "*小计" Then MsgBox "OK" End Sub 27、ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[14]C,R[59]C:R[78]C)" 这是相对引用的写法：根据推算你的函数是放在“AD6”单元格 你的函数：=SUM(R[1]C:R[14]C 中的 "R"表示行 "C"表示列。 R[1]表示“AD6+1行"，C表示“列没有变化，就是同列”那么：R[1]C就表示AD7 同理，R[14]表示AD6+14行，表示：AD20。以此类推。 28、Private Sub CommandButton1_Click()'将A1到C6中大于=3的数依次放入E列 Dim i As Long Dim iRng As Range For Each iRng In Sheets(1).Range("a1:c6") If iRng.Value >= 3 Then i = i + 1 Sheets(1).Range("E" & i).Value = iRng.Value End If Next End Sub 29、工作表中的窗体按钮禁用后，按钮形状不变，字体不变，从外表上无法看出其已禁用，如何设置属xìng使其像控件按纽那样明显的禁用？ With ActiveSheet.Buttons(1) .Enabled = False ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = 15 End With 復原的方法 With ActiveSheet.Buttons(1) .Enabled = True ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = xlAutomatic End With 30、Private Sub Worksheet_SelectionChange(ByVal Target As Range'选定A1时要输入密码 If Target.Address = "$A$1" Then A = InputBox("请输入密码", "officefans") If A = 1 Then [A1].Select Else [A2].Select End If End Sub 31、如何将工作薄中的命名单元格成批删除！ Dim Item As Ncom For Each Item In ActiveWorkbook.Ncoms Item.Delete Next Item 32、平时只能看到表1，如要看表2和表3，只能通过表1的链接打开,且表2和表3回到表1后，又不可见。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$3" Then '当点击"$A$3"单元格时... Sheet2.Visible = 1 '取消隐藏

Sheet2.Activate '激活 ActiveSheet.Range("A1").Select End If If Target.Address = "$A$6" Then Sheet3.Visible = 1 '取消隐藏 Sheet3.Activate ActiveSheet.Range("A1").Select End If End Sub 33、将a2单元格内容替换为a1内容 ActiveCell.Replace What:=[a2], Replaccomnt:=[a1] 34、如果是要填入名称,则: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = ComboBox1.column(1) End Sub 如果是要填入代码和名称的组合 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = cstr(ComboBox1.column(0))+" "+combobox1.column(1) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = ComboBox1.Value End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'target.row 代表行号 'target.column 代表列号 i=target.row '获取行号 j=target.column '获取列号 End Sub 35、当激活工作表时，本示例对 A1:A10 区域进行排序。 Private Sub Worksheet_Activate() Range("a1:a10").Sort Key1:=Range("a1"), Order:=xlAscending End Sub 36、BeforePrint 事件 参阅应用于示例特xìng在打印指定工作簿（或者其中的任何内容）之前，产生此事件。 Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel 当事件产生时为 False。如果该事件过程将本参数设为 True，则当该过程运行结束之后不打印工作簿。 示例 本示例在打印之前对当前活动工作簿的所有工作表重新计算。 Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each wk in Worksheets wk.Calculate Next End Sub

37、Open 事件 参阅应用于示例特xìng打开工作簿时，将产生本事件。 Private Sub Workbook_Open() 示例 每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 Private Sub Workbook_Open() Application.WindowState = xlMaximized End Sub 38、ActiveSheet 属xìng 参阅应用于示例特xìng返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回 Nothing。 说明 如果未给出对象识别符，本属xìng返回活动工作簿中的活动工作表。 如果某一工作簿在若干个窗口中出现，那么该工作簿的 ActiveSheet 属xìng在不同窗口中可能不同。 示例 本示例显示活动工作表的名称。 MsgBox "The ncom of the active sheet is " & ActiveSheet.Ncom 39、Calculate 方法 参阅应用于示例特xìng计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示： 要计算 依照本示例 所有打开的工作簿 Application.Calculate （或只是 Calculate） 指定工作表 指定工作表 指定区域 Worksheets(1).Rows(2).Calculate expression.Calculate expression 对于 Application 对象可选，对于 Worksheet 对象和 Range 对象必需。该表达式返回“应用于”列表中的对象之一。 示例 本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。 Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate 程序的核心是算法问题 40、End 属xìng 参阅应用于示例特xìng返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象，只读。 expression.End(Direction) expression 必需。 该表达式返回“应用于”列表中的对象之一。 Direction XlDirection 类型，必需。所要移动的方向。 XlDirection 可为 XlDirection 常量之一。 xlDown xlToRight xlToLeft xlUp 示例 本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。

Range("B4").End(xlUp).Select 本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。 Range("B4").End(xlToRight).Select 本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。 Worksheets("Sheet1").Activate Range("B4", Range("B4").End(xlToRight)).Select 41、应用于 CellFormat 和 Range 对象的 Locked 属xìng。 本示例解除对 Sheet1 中 A1:G37 区域单元格的锁定，以便当该工作表受保护时也可对这些单元格进行修改。 Worksheets("Sheet1").Range("A1:G37").Locked = False Worksheets("Sheet1").Protect 42、Next 属xìng 参阅应用于示例特xìng返回一个 Chart、Range 或 Worksheet 对象，该对象代表下一个工作表或单元格。只读。 说明 如果指定对象为区域，则本属xìng的作用是仿效 Tab，但本属xìng只是返回下一单元格，并不选定它。 在处于保护状态的工作表中，本属xìng返回下一个未锁定单元格。在未保护的工作表中，本属xìng总是返回紧靠指定单元格右边的单元格。 示例 本示例选定 sheet1 中下一个未锁定单元格。如果 sheet1 未保护，选定的单元格将是紧靠活动单元格右边的单元格。 Worksheets("Sheet1").Activate ActiveCell.Next.Select 43、想通过target来设置(A1：A10)区域内有改动，就发生此事件。不知道如何 if target.row = 1 and target.column <=10 then Sub 列举菜单项() Dim r, s, i As Integer r = 1 For i = 1 To CommandBars.Count ActiveSheet.Cells(r, 1) = "CommandBars(" & i & ").Ncom:" & CommandBars(i).Ncom r = r + 1 For s = 1 To CommandBars(i).Controls.Count ActiveSheet.Cells(r, 1) = s & "、" & CommandBars(i).Controls(s).Caption r = r + 1 Next Next End Sub 44、本示例设置 Microsoft Excel 每当打开包含链接的文件时，询问用户是否更新链接。 Application.AskToUpdateLinks = True 45、自定义函数 Public Function Now1() Dim string1 As String string1 = VBA.Date Now1 = string1

End Function 46、复制 Sub copy1() Sheet2.Range("C5:C10").Copy Sheet1.Range("C5:C10") End Sub 47、如何统计表中sheet的个数？ msgbox sheets.count Columns("G:G").Select 48、 Selection.EntireColumn.Hidden = True 这样隐藏有个毛病，如何解决？如果A1:G1单元格合并的话，就把A：G列均隐藏了。 Columns("G:G").EntireColumn.Hidden = True 49、在VBA中引用excel函数的方法 1). Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10" 2). Sheet1.Cells(1,1).Formula = "=" & Sheets(iii).Ncom & "!R1C4" 在宏中用R1C1方式写时表格1的A1中会在写为“=Sheet2!$D$1” 用这种方式,想用什么函数就用什么函数. 50、选定下（上）一个工作表 sheets(activesheet.index-1).select sheets(activesheet.index+1).select 51、Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False '取消工作表标签 Application.CommandBars("Sheet").Controls(1).Enabled = False '格式＿工作表不能重命名 Application.CommandBars.FindControl(ID:=889).Enabled = False '右键菜单不能重命名 End Sub 52、 [a65536].End(xlUp’A列从下往上第一个非空的单元格 53、Sub macro() Set rng = Range("C11:F13") 定义RNG为一个单元格区域 For Each cel In rng 定义CEL为RNG中的一个任一单元格 colo = cel.Interior.ColorIndex 定义 COLO 为单元格CEL的填充颜色 If colo <> -4142 Then 如果COLO的值不等于-4142 iR = [b65536].End(xlUp).Row + 1 IR等于B列数据区域的行数+1 If [a65535].End(xlUp).Value <> Cells(cel.Row, 2) Then Cells(iR, 1) = Cells(cel.R

松语文学免费小说阅读_www.16sy.com