VBA自学收集.docx

1、VBA自学收集自学收集1、Application.CommandBars(Worksheet Menu Bar).Enabled = false 2、cells(activecell.row,b).value 活动单元格所在行B列单元格中的值3、Sub CheckSheet()如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置 Dim shtSheet As Worksheet For Each shtSheet In Sheets If shtSheet.Name = KK Then Exit Sub Nex

2、t shtSheet Set shtSheet = Sheets.Add(Before:=Sheets(1) shtSheet.Name = KKEnd Sub4、Sheet1.ListBox1.List = Array(一月, 二月, 三月, 四月)一次性增加项目5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value将一个表中的一行全部拷贝到另一个表中6、Sub pro_cell()将此代码放入sheet1,则me=sheet1,主要是认识meMe.UnprotectCells.Locked = FalseRange(D11:E11).Locked = T

3、rueMe.ProtectEnd Sub7、Application.CommandBars(Ply).Enabled = False工作表标签上快捷菜单失效8、Sub aa()把B1到B12单元格的数据填入c1到c12For i = 1 To 12Range(C & i) = Range(B & i)Next iEnd Sub9、ActiveCell.AddCommentSelection.Font.Size = 12在点选的单元格插入批注，字体为12号10、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cance

4、l As Boolean) Cancel = TrueEnd Sub11、ScrollArea 属性参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型，可读写。说明可将本属性设置为空字符串 () 以允许对整张工作表内所有单元格的选定。示例本示例设置第一张工作表的滚动区域。Worksheets(1).ScrollArea = a1:f1012if application.max(a1:e1)=10 thenmsgboxcommandbutton1.enabled=falseA1E1最大的数值达到10时，自动弹出对话框，并冻

5、结按钮12、本示例将更改的单元格的颜色设为蓝色。Private Sub Worksheet_Change(ByVal Target as Range) Target.Font.ColorIndex = 5End Sub13、Sub test()求和Dim rng As Range, rng2 As RangeFor Each rng In ActiveSheet.UsedRange.Columns Set rng2 = Range(Cells(1, rng.Column), Cells(Cells(65536, rng.Column).End(xlUp).Row, rng.Column) rn

6、g2.Cells(rng2.Cells.Count).Offset(1, 0) = WorksheetFunction.Sum(rng2)Next rngEnd Sub14、将工作薄中的全部n张工作表都在sheet1中建上链接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

7、& !A1 Set Pt = Pt.Offset(1, 0) Next iEnd WithEnd Sub15、保存所有打开的工作簿，然后退出 Microsoft Excel。For Each w In Application.Workbooks w.SaveNext wApplication.Quit16、让form标题栏上的关闭按钮失效Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode 1 Then Cancel = TrueEnd Sub17、Sub countsh()获得

8、工作表的总数MsgBox Sheets.CountEnd Sub18、Sub IE()打开个人网页ActiveWorkbook.FollowHyperlink about:blankSendKeys F4ENTER, TrueEnd Sub19、Sub delback()一次性删除工作簿中所有工作表的背景For Each shtSheet In Sheets shtSheet.SetBackgroundPicture Filename:= Next shtSheetEnd Sub20、a1.formula=b1+c1A1中设定公式为=B1+C121、Private Sub CommandBut

9、ton1_Click()将A1到C6中大于=3的数依次放入E列Dim i As Longr = 1For Each i In Range(a1:c6) If i =3 Then Cells(r, 5) = i: r = r + 1NextEnd Sub22、Private Sub Workbook_SheetChange(ByVal 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 n

10、um 20 ThenMsgBox Sh.NameEnd IfExit Subss:MsgBox error, 16, End SubPrivate Sub DTPicker1_Change() ActiveCell.Value = DTPicker1.Value DTPicker1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) With Me.DTPicker1 If Target.Column = 11 And Target.Count = 1 Then .Visible

11、= True .Width = Target.Width + 15 .Left = Target.Left .Top = Target.Top .Height = Target.Height Else .Visible = False End If End WithEnd Sub23、Sub Test()选择所有工作表名以业报开头的工作表或头两个字是业报的报表名引用Set Sh = ActiveSheetIf Left(Sh.Name, 2) = 业报 Then 或if sh.name like业报*thenMsgBox 你成功了, 64, End IfEnd Sub24、1.建立文件夹的方法

12、MkDir D:Music2.打开文件夹的方法ActiveWorkbook.FollowHyperlink Address:=D:Music, NewWindow:=True25、在当前工作表翻页 Application.SendKeys PGUP, True Application.SendKeys PGDN, True或者 ActiveWindow.LargeScroll Down:=1 ActiveWindow.LargeScroll Down:=-126、当Target = *小计时如何写,*代表任何字符。 if instr(target.value,小计)0 thenPrivate

13、Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Value Like *小计 Then MsgBox OKEnd Sub 27、ActiveCell.FormulaR1C1 = =SUM(R1C:R14C,R59C:R78C)这是相对引用的写法：根据推算你的函数是放在“AD6”单元格你的函数：=SUM(R1C:R14C中的R表示行 C表示列。R1表示“AD6+1行，C表示“列没有变化，就是同列”那么：R1C就表示AD7同理，R14表示AD6+14行，表示：AD20。以此类推。28、Private Sub Command

14、Button1_Click()将A1到C6中大于=3的数依次放入E列Dim i As LongDim iRng As RangeFor Each iRng In Sheets(1).Range(a1:c6)If iRng.Value = 3 Then i = i + 1 Sheets(1).Range(E & i).Value = iRng.ValueEnd IfNextEnd Sub29、工作表中的窗体按钮禁用后，按钮形状不变，字体不变，从外表上无法看出其已禁用，如何设置属性使其像控件按纽那样明显的禁用？With ActiveSheet.Buttons(1) .Enabled = False

15、 ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = 15 End With復原的方法 With ActiveSheet.Buttons(1) .Enabled = True ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = xlAutomatic End With30、Private Sub Worksheet_SelectionChange(ByVal Target As Range选定A1时要输入密码If Target.Address = $A$1

16、 Then A = InputBox(请输入密码, officefans) If A = 1 Then A1.Select Else A2.SelectEnd IfEnd Sub31、如何将工作薄中的命名单元格成批删除！Dim Item As Name For Each Item In ActiveWorkbook.Names Item.Delete Next Item32、平时只能看到表1，如要看表2和表3，只能通过表1的链接打开,且表2和表3回到表1后，又不可见。Private Sub Worksheet_SelectionChange(ByVal Target As Range)If T

17、arget.Address = $A$3 Then 当点击$A$3单元格时. Sheet2.Visible = 1取消隐藏 Sheet2.Activate 激活 ActiveSheet.Range(A1).SelectEnd IfIf Target.Address = $A$6 ThenSheet3.Visible = 1取消隐藏Sheet3.ActivateActiveSheet.Range(A1).SelectEnd IfEnd Sub33、将a2单元格内容替换为a1内容ActiveCell.Replace What:=a2, Replacement:=a134、如果是要填入名称,则:Pr

18、ivate 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 SubPrivate Sub Worksheet_SelectionChange(ByVal Target

19、As Range)Selection.Value = ComboBox1.ValueEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) target.row代表行号 target.column 代表列号 i=target.row 获取行号 j=target.column 获取列号End Sub35、当激活工作表时，本示例对 A1:A10 区域进行排序。Private Sub Worksheet_Activate() Range(a1:a10).Sort Key1:=Range(a1), Order:=xlAsc

20、endingEnd Sub36、BeforePrint 事件参阅应用于示例特性在打印指定工作簿（或者其中的任何内容）之前，产生此事件。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

21、End Sub37、Open 事件参阅应用于示例特性打开工作簿时，将产生本事件。Private Sub Workbook_Open()示例每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。Private Sub Workbook_Open() Application.WindowState = xlMaximizedEnd Sub38、ActiveSheet 属性参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回 Nothing。说明如果未给出对象识别符，本属性返回活动工作簿中

22、的活动工作表。如果某一工作簿在若干个窗口中出现，那么该工作簿的 ActiveSheet 属性在不同窗口中可能不同。示例本示例显示活动工作表的名称。MsgBox The name of the active sheet is & ActiveSheet.Name39、Calculate 方法参阅应用于示例特性计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示：要计算 依照本示例 所有打开的工作簿 Application.Calculate （或只是 Calculate） 指定工作表 指定工作表 指定区域 Worksheets(1).Rows(2).Calcu

23、late expression.Calculateexpression 对于 Application 对象可选，对于 Worksheet 对象和 Range 对象必需。该表达式返回“应用于”列表中的对象之一。示例本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。Worksheets(Sheet1).UsedRange.Columns(A:C).Calculate程序的核心是算法问题40、End 属性参阅应用于示例特性返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Ran

24、ge 对象，只读。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本示例将选定区域从单元格

25、B4 延伸至第四行最后一个包含数据的单元格。Worksheets(Sheet1).ActivateRange(B4, Range(B4).End(xlToRight).Select41、应用于 CellFormat 和 Range 对象的 Locked 属性。本示例解除对 Sheet1 中 A1:G37 区域单元格的锁定，以便当该工作表受保护时也可对这些单元格进行修改。Worksheets(Sheet1).Range(A1:G37).Locked = FalseWorksheets(Sheet1).Protect42、Next 属性参阅应用于示例特性返回一个 Chart、Range 或 Wor

26、ksheet 对象，该对象代表下一个工作表或单元格。只读。说明如果指定对象为区域，则本属性的作用是仿效 Tab，但本属性只是返回下一单元格，并不选定它。在处于保护状态的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指定单元格右边的单元格。示例本示例选定 sheet1 中下一个未锁定单元格。如果 sheet1 未保护，选定的单元格将是紧靠活动单元格右边的单元格。Worksheets(Sheet1).ActivateActiveCell.Next.Select43、想通过target来设置(A1：A10)区域内有改动，就发生此事件。不知道如何if target.ro

27、w = 1 and target.column =10 thenSub 列举菜单项()Dim r, s, i As Integerr = 1For i = 1 To CommandBars.Count ActiveSheet.Cells(r, 1) = CommandBars( & i & ).Name: & CommandBars(i).Name r = r + 1 For s = 1 To CommandBars(i).Controls.Count ActiveSheet.Cells(r, 1) = s & 、 & CommandBars(i).Controls(s).Caption r

28、= r + 1 NextNextEnd Sub44、本示例设置 Microsoft Excel 每当打开包含链接的文件时，询问用户是否更新链接。Application.AskToUpdateLinks = True45、自定义函数Public Function Now1()Dim string1 As Stringstring1 = VBA.DateNow1 = string1End Function46、复制Sub copy1()Sheet2.Range(C5:C10).Copy Sheet1.Range(C5:C10)End Sub47、如何统计表中sheet的个数？msgbox shee

29、ts.countColumns(G:G).Select48、 Selection.EntireColumn.Hidden = True这样隐藏有个毛病，如何解决？如果A1:G1单元格合并的话，就把A：G列均隐藏了。Columns(G:G).EntireColumn.Hidden = True49、在VBA中引用excel函数的方法1). Worksheets(Sheet1).Range(A1).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+1).s