資源描述：
《自學(xué)excel vba入門資料》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、自學(xué)ExcelVBA入門資料1、Application.CommandBars("WorksheetMenuBar").Enabled=false2、cells(activecell.row,"b").value'活動單元格所在行B列單元格中的值3、SubCheckSheet()'如果當(dāng)前工作薄中沒有名為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內(nèi)容來自vba技術(shù)聯(lián)盟Me.ProtectEndSub7、Application.CommandBars("Ply").Enabled=False'工作表標(biāo)簽上快捷菜單失效8、Subaa()'把B1到B12單元格的數(shù)據(jù)填入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屬性參閱應(yīng)用于示例特性以A1樣式的區(qū)域引用形式返回或設(shè)置允許滾動的區(qū)域。用戶不能選定滾動區(qū)域之外的單元格。String類型，可讀寫。說明可將本屬性設(shè)置為空字符串("")以允許對整張工作表內(nèi)所有單元格的選定。示例本示例設(shè)置
5、第一張工作表的滾動區(qū)域。Worksheets(1).ScrollArea="a1:f10"12ifapplication.max([a1:e1])=10thenmsgbox""commandbutton1.enabled=false'A1—E1最大的數(shù)值達到10時，自動彈出對話框，并凍結(jié)按鈕vba技術(shù)聯(lián)盟,VBA教程、VBA學(xué)習(xí)、VBA編程12、本示例將更改的單元格的顏色設(shè)為藍色。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技術(shù)聯(lián)盟15
8、、保存所有打開的工作簿，然后退出MicrosoftExcel。ForEachwInApplication.Workbooksw.SaveNextwApplication.Quit16、讓form標(biāo)題欄上的關(guān)閉按鈕失效PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IfCloseMode<>1ThenCancel=Tru
