資源描述：
《EXCEL-VBA編程常用代碼.pdf》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、ExcelVBA編程常用代碼時間:2009-12-0522:36:04來源:本站作者:未知我要投稿我要收藏投稿指南用過VB的人都應(yīng)該知道如何聲明變量，在VBA中聲明變量和VB中是完全一樣的！使用Dim語句Dimaasinteger'聲明a為整型變量Dima'聲明a為變體變量Dimaasstring'聲明a為字符串變量Dimaascurrency,bascurrency,cascurrency'聲明a,b,c為貨幣變量......聲明變量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（當前不支持）、Da
2、te、String（只限變長字符串）、String*length（定長字符串）、Object、Variant、用戶定義類型或?qū)ο箢愋?。強制聲明變量OptionExplicit說明：該語句必在任何過程之前出現(xiàn)在模塊中。聲明常數(shù)用來代替文字值。Const'常數(shù)的默認狀態(tài)是Private。ConstMy=456'聲明Public常數(shù)。PublicConstMyString="HELP"'聲明PrivateInteger常數(shù)。PrivateConstMyIntAsInteger=5'在同一行里聲明多個常數(shù)。ConstMyStr="Hello",MyDoubleAsDouble=3.
3、4567選擇當前單元格所在區(qū)域在EXCEL97中，有一個十分好的功能，他就是把鼠標放置在一個有效數(shù)據(jù)單元格中，執(zhí)行該段代碼，你就可以將連在一起的一片數(shù)據(jù)全部選中。只要將該段代碼加入到你的模塊中。SubMy_SelectSelection.CurrentRegion.SelectEndsub返回當前單元格中數(shù)據(jù)刪除前后空格后的值submy_trimmsgboxTrim(ActiveCell.Value)endsub單元格位移submy_offsetActiveCell.Offset(0,1).Select'當前單元格向左移動一格ActiveCell.Offset(0,-1).
4、Select'當前單元格向右移動一格ActiveCell.Offset(1,0).Select'當前單元格向下移動一格ActiveCell.Offset(-1,0).Select'當前單元格向上移動一格endsub如果上述程序產(chǎn)生錯誤那是因為單元格不能移動，為了解除上述錯誤，我們可以往submy_offset之下加一段代碼onerrorresumenext注意以下代碼都不再添加sub“代碼名稱”和endsub請自己添加!給當前單元格賦值A(chǔ)ctiveCell.Value="你好?。?！"給指定單元格賦值例如：Ａ１單元格內(nèi)容設(shè)為"ＨＥＬＬＯ"Range("a1").value="
5、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'顯示SHEET1這張工作表sheets("
6、sheet1").Visible=True打印預(yù)覽有時候我們想把所有的EXCEL中的SHEET都打印預(yù)覽，請使用該段代碼，它將在你現(xiàn)有的工作簿中循環(huán)，直到最后一個工作簿結(jié)束循環(huán)預(yù)覽。DimmyAsWorksheetForEachmyInWorksheetsmy.PrintPreviewNextmy得到當前單元格的地址msgboxActiveCell.Address得到當前日期及時間msgboxdate&chr(13)&time保護工作簿ActiveSheet.Protect取消保護工作簿ActiveSheet.Unprotect給活動工作表改名為"liu"ActiveShe
7、et.Name="liu"打開一個應(yīng)用程序AppActivate(Shell("C:WINDOWSCALC.EXE"))增加一個工作表Worksheets.Add刪除活動工作表activesheet.delete打開一個工作簿文件Workbooks.OpenFileName:="C:MyDocumentsBook2.xls"關(guān)閉活動窗口ActiveWindow.Close單元格格式選定單元格左對齊Selection.HorizontalAlignment=xlLeft選定單元格居中Selection.Horizon
