ExcelVBA自学收集1Word文档格式.docx

1、工作表标签上快捷菜单失效8、Sub aa（）把B1到B12单元格的数据填入c1到c12For i = 1 To 12C & i） = Range（B i）Next i9、ActiveCell.AddCommentSelection.Font.Size = 12在点选的单元格插入批注，字体为12号10、Private Sub Worksheet_BeforeDoubleClick（ByVal Target As Range, Cancel As Boolean） Cancel = True11、ScrollArea 属性参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户

2、不能选定滚动区域之外的单元格。String 类型，可读写。说明可将本属性设置为空字符串 （） 以允许对整张工作表内所有单元格的选定。示例本示例设置第一张工作表的滚动区域。Worksheets（1）.ScrollArea = a1:f1012if application.max（a1:e1）=10 thenmsgboxcommandbutton1.enabled=falseA1E1最大的数值达到10时，自动弹出对话框，并冻结按钮12、本示例将更改的单元格的颜色设为蓝色。Private Sub Worksheet_Change（ByVal Target as Range） Target.Font.

3、ColorIndex = 513、Sub test（）求和Dim rng As Range, rng2 As RangeFor Each rng In ActiveSheet.UsedRange.ColumnsSet rng2 = Range（Cells（1, rng.Column）, Cells（Cells（65536, rng.Column）.End（xlUp）.Row, rng.Column）rng2.Cells（rng2.Cells.Count）.Offset（1, 0） = WorksheetFunction.Sum（rng2）Next rng14、将工作薄中的全部n张工作表都在sh

4、eet1中建上链接Sub test2（）Dim Pt As RangeDim i As IntegerWith Sheet1 Set Pt = .Range（a1） For i = 2 To ThisWorkbook.Worksheets.Count.Hyperlinks.Add Anchor:=Pt, Address:=, SubAddress:=Worksheets（i）.Name & !A1Set Pt = Pt.Offset（1, 0） Next iEnd With15、保存所有打开的工作簿，然后退出 Microsoft Excel。For Each w In Application.

5、Workbooks w.SaveNext wApplication.Quit16、让form标题栏上的关闭按钮失效Private Sub UserForm_QueryClose（Cancel As Integer, CloseMode As Integer）If CloseMode 1 Then Cancel = True17、Sub countsh（）获得工作表的总数MsgBox Sheets.Count18、Sub IE（）打开个人网页ActiveWorkbook.FollowHyperlink about:blankSendKeys F4ENTER, True19、Sub delback

6、（）一次性删除工作簿中所有工作表的背景For Each shtSheet In Sheets shtSheet.SetBackgroundPicture Filename:20、a1.formula=b1+c1A1中设定公式为=B1+C121、Private Sub CommandButton1_Click（）将A1到C6中大于=3的数依次放入E列Dim i As Longr = 1For Each i In Range（c6 If i =3 Then Cells（r, 5） = i: r = r + 1Next22、Private Sub Workbook_SheetChange（ByVal

7、 Sh As Object, ByVal Target As Range）显示带数字的表名b = Split（Sh.Name, （On Error GoTo ssnum = CInt（Left（b（1）, Len（b（1） - 1）If num = 1 And num 20 ThenMsgBox Sh.NameEnd IfExit Subss:MsgBox error, 16, 23、Sub Test（）选择所有工作表名以业报开头的工作表或头两个字是业报的报表名引用Set Sh = ActiveSheetIf Left（Sh.Name, 2） = Then 或if sh.name like业报

8、*then你成功了, 64, 24、1.建立文件夹的方法MkDir D:Music2.打开文件夹的方法ActiveWorkbook.FollowHyperlink Address:, NewWindow:=True25、在当前工作表翻页 Application.SendKeys PGUPPGDN或者 ActiveWindow.LargeScroll Down:=1=-126、当Target = *小计时如何写,*代表任何字符。 if instr（target.value,小计）= 3 Then i = i + 1 Sheets（1）.Range（E i）.Value = iRng.Value2

9、9、工作表中的窗体按钮禁用后，按钮形状不变，字体不变，从外表上无法看出其已禁用，如何设置属性使其像控件按纽那样明显的禁用？With ActiveSheet.Buttons（1）.Enabled = FalseActiveSheet.Shapes（.Caption）.DrawingObject.Font.ColorIndex = 15 End With復原的方法 With ActiveSheet.Buttons（1）.Enabled = TrueActiveSheet.Shapes（.Caption）.DrawingObject.Font.ColorIndex = xlAutomatic30、P

10、rivate 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.Select31、如何将工作薄中的命名单元格成批删除！Dim Item As Name For Each Item In ActiveWorkbook.NamesItem.Delete Next Item32、平时只能看到表1，如要看表2和表3，只能通过表1的链接打开,且表2和表3

11、回到表1后，又不可见。$A$3 Then当点击单元格时.Sheet2.Visible = 1取消隐藏Sheet2.Activate 激活ActiveSheet.Range（）.Select$A$6Sheet3.Visible = 1Sheet3.Activate33、将a2单元格内容替换为a1内容ActiveCell.Replace What:=a2, Replacement:=a134、如果是要填入名称,则:Selection.Value = ComboBox1.column（1）如果是要填入代码和名称的组合 :Selection.Value = cstr（ComboBox1.column（

12、0）+combobox1.column（1）Selection.Value = ComboBox1.Value target.row代表行号 target.column 代表列号 i=target.row获取行号 j=target.column 获取列号35、当激活工作表时，本示例对 A1:A10 区域进行排序。Private Sub Worksheet_Activate（） Range（a10）.Sort Key1:=Range（）, Order:=xlAscending36、BeforePrint 事件参阅应用于示例特性在打印指定工作簿（或者其中的任何内容）之前，产生此事件。Private

13、 Sub Workbook_BeforePrint（Cancel As Boolean）Cancel当事件产生时为 False。如果该事件过程将本参数设为 True，则当该过程运行结束之后不打印工作簿。本示例在打印之前对当前活动工作簿的所有工作表重新计算。 For Each wk in Worksheetswk.Calculate Next37、Open 事件参阅应用于示例特性打开工作簿时，将产生本事件。Private Sub Workbook_Open（）每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 Application.WindowState = xlMaxi

14、mized38、ActiveSheet 属性参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回 Nothing。如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。如果某一工作簿在若干个窗口中出现，那么该工作簿的 ActiveSheet 属性在不同窗口中可能不同。本示例显示活动工作表的名称。The name of the active sheet is ActiveSheet.Name39、Calculate 方法参阅应用于示例特性计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指

15、定区域的单元格，如下表所示：要计算 依照本示例 所有打开的工作簿 Application.Calculate （或只是 Calculate） 指定工作表 指定工作表 指定区域 Worksheets（1）.Rows（2）.Calculate expression.Calculateexpression对于 Application 对象可选，对于 Worksheet 对象和 Range 对象必需。该表达式返回“应用于”列表中的对象之一。本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。Worksheets（Sheet1）.UsedRange.Columns（A:）.Calcul

16、ate程序的核心是算法问题40、End 属性参阅应用于示例特性返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象，只读。expression.End（Direction）必需。 该表达式返回“应用于”列表中的对象之一。DirectionXlDirection 类型，必需。所要移动的方向。XlDirection 可为 XlDirection 常量之一。xlDown xlToRight xlToLeft xlUp 本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。B4）.

17、End（xlUp）.Select本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。）.End（xlToRight）.Select本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。）.Activate, Range（）.End（xlToRight）.Select41、应用于 CellFormat 和 Range 对象的 Locked 属性。本示例解除对 Sheet1 中 A1:G37 区域单元格的锁定，以便当该工作表受保护时也可对这些单元格进行修改。）.Range（A1:G37）.Locked = False）.Protect42、Next 属性参阅应用于示例特性返

18、回一个 Chart、Range 或 Worksheet 对象，该对象代表下一个工作表或单元格。如果指定对象为区域，则本属性的作用是仿效 Tab，但本属性只是返回下一单元格，并不选定它。在处于保护状态的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指定单元格右边的单元格。本示例选定 sheet1 中下一个未锁定单元格。如果 sheet1 未保护，选定的单元格将是紧靠活动单元格右边的单元格。ActiveCell.Next.Select43、想通过target来设置（A1：A10）区域内有改动，就发生此事件。不知道如何if target.row = 1 and tar

19、get.column =10 thenSub 列举菜单项（）Dim r, s, i As IntegerFor i = 1 To CommandBars.Count ActiveSheet.Cells（r, 1） = CommandBars（ i &）.Name: CommandBars（i）.Name For s = 1 To CommandBars（i）.Controls.CountActiveSheet.Cells（r, 1） = s &、 CommandBars（i）.Controls（s）.Captionr = r + 144、本示例设置 Microsoft Excel 每当打开包含

20、链接的文件时，询问用户是否更新链接。Application.AskToUpdateLinks = True45、自定义函数Public Function Now1（）Dim string1 As Stringstring1 = VBA.DateNow1 = string1End Function46、复制Sub copy1（）Sheet2.Range（C5:C10）.Copy Sheet1.Range（47、如何统计表中sheet的个数？msgbox sheets.countColumns（G:G48、 Selection.EntireColumn.Hidden = True这样隐藏有个毛病，

21、如何解决？如果A1:G1单元格合并的话，就把A：G列均隐藏了。）.EntireColumn.Hidden = True49、在VBA中引用excel函数的方法1）. Worksheets（）.Formula = =$A$4+$A$102）. Sheet1.Cells（1,1）.Formula = Sheets（iii）.Name &R1C4在宏中用R1C1方式写时表格1的A1中会在写为“=Sheet2!$D$1”用这种方式,想用什么函数就用什么函数.50、选定下（上）一个工作表sheets（activesheet.index-1）.selectsheets（activesheet.index+

22、1）.select51、Private Sub Workbook_Open（）ActiveWindow.DisplayWorkbookTabs = False 取消工作表标签Application.CommandBars（Sheet）.Controls（1）.Enabled = False 格式工作表不能重命名Application.CommandBars.FindControl（ID:=889）.Enabled = False 右键菜单不能重命名52、 a65536.End（xlUpA列从下往上第一个非空的单元格53、Sub macro（）Set rng = Range（C11:F13）定义RNG为一个单元格区域For Each cel In rng 定义CE