资源描述：
《自学excel vba入门资料》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、自学ExcelVBA入门资料1、Application.CommandBars("WorksheetMenuBar").Enabled=false2、cells(activecell.row,"b").value'活动单元格所在行B列单元格中的值3、SubCheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置DimshtSheetAsWorksheetForEachshtSheetInSheetsIfsh
2、tSheet.Name="KK"ThenExitSubNextshtSheetSetshtSheet=Sheets.Add(Before:=Sheets(1))shtSheet.Name="KK"EndSub4、Sheet1.ListBox1.List=Array("一月","二月","三月","四月")'一次性增加项目5、Sheet2.Rows(1).Value=Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中6、Subpro_cell()'将此代码放入sheet1,则me=s
3、heet1,主要是认识meMe.UnprotectCells.Locked=FalseRange("D11:E11").Locked=True内容来自vba技术联盟Me.ProtectEndSub7、Application.CommandBars("Ply").Enabled=False'工作表标签上快捷菜单失效8、Subaa()'把B1到B12单元格的数据填入c1到c12Fori=1To12Range("C"&i)=Range("B"&i)NextiEndSub9、ActiveCell.AddComment
4、Selection.Font.Size=12'在点选的单元格插入批注，字体为12号10、PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)Cancel=TrueEndSub11、ScrollArea属性参阅应用于示例特性以A1样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String类型，可读写。说明可将本属性设置为空字符串("")以允许对整张工作表内所有单元格的选定。示例本示例设置
5、第一张工作表的滚动区域。Worksheets(1).ScrollArea="a1:f10"12ifapplication.max([a1:e1])=10thenmsgbox""commandbutton1.enabled=false'A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮vba技术联盟,VBA教程、VBA学习、VBA编程12、本示例将更改的单元格的颜色设为蓝色。PrivateSubWorksheet_Change(ByValTargetasRange)Target.Font.ColorI
6、ndex=5EndSub13、Subtest()'求和DimrngAsRange,rng2AsRangeForEachrngInActiveSheet.UsedRange.ColumnsSetrng2=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)Nextrn
7、gEndSub14、将工作薄中的全部n张工作表都在sheet1中建上链接Subtest2()DimPtAsRangeDimiAsIntegerWithSheet1SetPt=.Range("a1")Fori=2ToThisWorkbook.Worksheets.Count.Hyperlinks.AddAnchor:=Pt,Address:="",SubAddress:=Worksheets(i).Name&"!A1"SetPt=Pt.Offset(1,0)NextiEndWithEndSubvba技术联盟15
8、、保存所有打开的工作簿，然后退出MicrosoftExcel。ForEachwInApplication.Workbooksw.SaveNextwApplication.Quit16、让form标题栏上的关闭按钮失效PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IfCloseMode<>1ThenCancel=Tru
