基于OFFICE精英俱乐部『VBA交流』我的自学收集资料.docVIP

OFFICE精英俱乐部 ? 『 VBA交流 』 ? 我的自学收集资料 作者: 标题: 我的自学收集资料 取消高亮 | 上一主题 | 下一主题 /cdb/viewthread.php?tid=25823fpage=1highlight=%B7%B5%BB%D8%2B%D0%D0%BA%C5 以下是近段时间从不同地方收集到的一些学习资料，希望对新手有借鉴作用，同时感谢各位对我的支持和帮助，先发60小点，代码可能不完全正确，请指正。 全部显示 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 Next shtSheet Set shtSheet = Sheets.Add(Before:=Sheets(1)) shtSheet.Name = KK End Sub 4、Sheet1.ListBox1.List = Array(一月, 二月, 三月, 四月)一次性增加项目 5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value将一个表中的一行全部拷贝到另一个表中 6、Sub pro_cell()将此代码放入sheet1,则me=sheet1,主要是认识me Me.Unprotect Cells.Locked = False Range(D11:E11).Locked = True Me.Protect End Sub 7、Application.CommandBars(Ply).Enabled = False工作表标签上快捷菜单失效 8、Sub aa()把B1到B12单元格的数据填入c1到c12 For i = 1 To 12 Range(C i) = Range(B i) Next i End Sub 9、ActiveCell.AddComment Selection.Font.Size = 12在点选的单元格插入批注，字体为12号 10、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub 11、ScrollArea 属性 参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型，可读写。 说明 可将本属性设置为空字符串 () 以允许对整张工作表内所有单元格的选定。 示例 本示例设置第一张工作表的滚动区域。 Worksheets(1).ScrollArea = a1:f10 12\if application.max([a1:e1])=10 then msgbox commandbutton1.enabled=false A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮 12、本示例将更改的单元格的颜色设为蓝色。 Private Sub Worksheet_Change(ByVal Target as Range) Target.Font.ColorIndex = 5 End Sub 13、Sub test()求和 Dim rng As Range, rng2 As Range For Each rng In ActiveSheet.UsedRange.Columns Set 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 rng End Sub 14、将工作薄中的全部n张工作表都在sheet1中建上链接 Sub test2() Dim Pt As Range Dim i As Integer With Sheet1 Set Pt = .Range(a