VBA自学必备材料.docVIP

自学收集

1、ApplicationmandBars(WorksheetMenuBar).Enabled=false

2、cells(activecell.row,b).value活动单元格所在行B列单元格中的值

3、SubCheckSheet()如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置

??DimshtSheetAsWorksheet

??ForEachshtSheetInSheets

??????IfshtSheet.Name=KKThenExitSub

??NextshtSheet

??SetshtSheet=Sheets.Add(Before:=Sheets(1))

??shtSheet.Name=KK

EndSub

4、Sheet1.ListBox1.List=Array(一月,二月,三月,四月)一次性增加工程

5、Sheet2.Rows(1).Value=Sheet1.Rows(1).Value将一个表中的一行全部拷贝到另一个表中

6、Subpro_cell()将此代码放入sheet1,那么me=sheet1,主要是认识me

Me.Unprotect

Cells.Locked=False

Range(D11:E11).Locked=True

Me.Protect

EndSub

7、ApplicationmandBars(Ply).Enabled=False工作表标签上快捷菜单失效

8、Subaa()把B1到B12单元格的数据填入c1到c12

Fori=1To12

Range(Ci)=Range(Bi)

Nexti

EndSub

9、ActiveCell.AddComment

Selection.Font.Size=12在点选的单元格插入批注，字体为12号

10、PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)

??Cancel=True

EndSub

11、ScrollArea属性

参阅应用于例如特性以A1样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String类型，可读写。

说明

可将本属性设置为空字符串()以允许对整张工作表内所有单元格的选定。

例如

本例如设置第一张工作表的滚动区域。

Worksheets(1).ScrollArea=a1:f10

12\ifapplication.max([a1:e1])=10then

msgbox

commandbutton1.enabled=false

A1—E1最大的数值到达10时，自动弹出对话框，并冻结按钮

12、本例如将更改的单元格的颜色设为蓝色。

PrivateSubWorksheet_Change(ByValTargetasRange)

??Target.Font.ColorIndex=5

EndSub

13、Subtest()求和

DimrngAsRange,rng2AsRange

ForEachrngInActiveSheet.UsedRange.Columns

??????Setrng2=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)

Nextrng

EndSub

14、将工作薄中的全部n张工作表都在sheet1中建上链接

Subtest2()

DimPtAsRange

DimiAsInteger

WithSheet1

??SetPt=.Range(a1)

??Fori=2ToThisWorkbook.Worksheets.Count

??????.Hyperlinks.AddAnchor:=Pt,Address:=,SubAddress:=Worksheets(i).Name!A1

??????SetPt=Pt.Offset(1,0)

??Nexti

EndWith

EndSub

15、保存所有翻开的工作簿，然后退出