【资料名称】：VBA60个知识点

【资料作者】：无

【资料日期】：无

【资料语言】：中文

【资料格式】：DOC

【资料目录和简介】：

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

[ 本帖最后由 x-qu 于 2012-10-8 17:56 编辑 ]