VBA命令大全匯集.pdf

《VBA命令大全匯集.pdf》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、.VBA命令大全使用Dim語句Dimaasinteger'聲明a為整型變量Dima'聲明a為變體變量Dimaasstring'聲明a為字符串變量Dimaascurrency,bascurrency,cascurrency'聲明a,b,c為貨幣變量DimzAsVariant定義實(shí)數(shù)（帶小數(shù)）......聲明變量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（當(dāng)前不支持）、Date、String（只限變長字符串）、Stringlength（定長字符串）、Object、Va

2、riant、用戶定義類型或?qū)ο箢愋汀?qiáng)制聲明變量OptionExplicit說明：該語句必在任何過程之前出現(xiàn)在模塊中。聲明常數(shù)用來代替文字值。Const'常數(shù)的默認(rèn)狀態(tài)是Private。ConstMy=456'聲明Public常數(shù)。PublicConstMyString="HELP"'聲明PrivateInteger常數(shù)。PrivateConstMyIntAsInteger=5'在同一行里聲明多個(gè)常數(shù)。ConstMyStr="Hello",MyDoubleAsDouble=3.4567選擇當(dāng)前單元格所在區(qū)域在EXCEL97中，有一個(gè)十分好的

3、功能，他就是把鼠標(biāo)放置在一個(gè)有效數(shù)據(jù)單元格中，執(zhí)行該段代碼，你就可以將連在一起的一片數(shù)據(jù)全部選中。只要將該段代碼加入到你的模塊中。SubMy_SelectSelection.CurrentRegion.SelectEndsub返回當(dāng)前單元格中數(shù)據(jù)刪除前后空格后的值submy_trimmsgboxTrim(ActiveCell.Value)endsub單元格位移submy_offsetActiveCell.Offset(0,1).Select'當(dāng)前單元格向左移動一格ActiveCell.Offset(0,-1).Select'當(dāng)前單元格向右移

4、動一格ActiveCell.Offset(1,0).Select'當(dāng)前單元格向下移動一格ActiveCell.Offset(-1,0).Select'當(dāng)前單元格向上移動一格endsub如果上述程序產(chǎn)生錯誤那是因?yàn)閱卧癫荒芤苿?，為了解除上述錯誤，我們可以往submy_offset之下加一段代碼onerrorresumenext..注意以下代碼都不再添加sub“代碼名稱”和endsub請自己添加!給當(dāng)前單元格賦值A(chǔ)ctiveCell.Value="你好?。?！"給指定單元格賦值例如：Ａ１單元格內(nèi)容設(shè)為"ＨＥＬＬＯ"Range("a1").val

5、ue="hello"又如：你現(xiàn)在的工作簿在sheet1上，你要往sheet2的Ａ１單元格中插入"ＨＥＬＬＯ"1.sheets("sheet2").selectrange("a1").value="hello"或2.Sheets("sheet1").Range("a1").Value="hello"說明：1.sheet2被選中，然后在將“HELLO"賦到A1單元格中。2.sheet2不必被選中，即可“HELLO"賦到sheet2的A1單元格中。隱藏工作表'隱藏SHEET1這張工作表sheets("sheet1").Visible=False'

6、顯示SHEET1這張工作表sheets("sheet1").Visible=True打印預(yù)覽有時(shí)候我們想把所有的EXCEL中的SHEET都打印預(yù)覽，請使用該段代碼，它將在你現(xiàn)有的工作簿中循環(huán)，直到最后一個(gè)工作簿結(jié)束循環(huán)預(yù)覽。DimmyAsWorksheetForEachmyInWorksheetsmy.PrintPreviewNextmy得到當(dāng)前單元格的地址msgboxActiveCell.Address得到當(dāng)前日期及時(shí)間msgboxdate&chr(13)&time保護(hù)工作簿ActiveSheet.Protect取消保護(hù)工作簿Active

7、Sheet.Unprotect給活動工作表改名為"liu"ActiveSheet.Name="liu"打開一個(gè)應(yīng)用程序AppActivate(Shell("C:WINDOWSCALC.EXE"))增加一個(gè)工作表Worksheets.Add刪除活動工作表..activesheet.delete打開一個(gè)工作簿文件Workbooks.OpenFileName:="C:MyDocumentsBook2.xls"關(guān)閉活動窗口ActiveWindow.Close單元格格式選定單元格左對齊Selection.HorizontalAlignment

8、=xlLeft選定單元格居中Selection.HorizontalAlignment=xlCenter選定單元格右對齊Selection.HorizontalAlignment