excel vba程序设计学习笔记,100多个非常实用的常用代码

VBA资料

以下是近段时间从不同地方收集到的一些学习资料，希望对新手有借鉴作用，同时感谢各位对我的支持和帮助，先发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""