【资料名称】：VBA自学收集

【资料作者】：无名氏

【资料日期】：2011-11-19

【资料语言】：中文

【资料格式】：DOC

【资料目录和简介】：

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
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