Excel-VBA編程的常用代碼7頁(yè)

1、用過(guò)VB的人都應(yīng)該知道如何聲明變量，在VBA中聲明變量和VB中是完全一樣的！使用Dim語(yǔ)句Dim a as integer 聲明a為整型變量Dim a 聲明a為變體變量Dim a as string 聲明a為字符串變量Dim a as currency ,b as currency ,c as currency 聲明a,b,c為貨幣變量.聲 明變量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（當(dāng)前不支持）、 Date、String（只限變長(zhǎng)字符串）、String * length（定長(zhǎng)字符串）、Object、Varia

2、nt、用戶定義類型或?qū)ο箢愋?。?qiáng)制聲明變量Option Explicit說(shuō)明：該語(yǔ)句必在任何過(guò)程之前出現(xiàn)在模塊中。聲明常數(shù)用來(lái)代替文字值。Const 常數(shù)的默認(rèn)狀態(tài)是 Private。Const My = 456 聲明 Public 常數(shù)。Public Const MyString = HELP 聲明 Private Integer 常數(shù)。Private Const MyInt As Integer = 5 在同一行里聲明多個(gè)常數(shù)。Const MyStr = Hello, MyDouble As Double = 3.4567 選擇當(dāng)前單元格所在區(qū)域在EXCEL97中，有一個(gè)十分好的功能，他就

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

4、).Select當(dāng)前單元格向下移動(dòng)一格ActiveCell.Offset(-1 , 0).Select當(dāng)前單元格向上移動(dòng)一格end sub如果上述程序產(chǎn)生錯(cuò)誤那是因?yàn)閱卧癫荒芤苿?dòng)，為了解除上述錯(cuò)誤，我們可以往sub my_offset 之下加一段代碼 on error resume next注意以下代碼都不再添加 sub “代碼名稱” 和end sub請(qǐng)自己添加!給當(dāng)前單元格賦值A(chǔ)ctiveCell.Value = 你好！給指定單元格賦值例如：?jiǎn)卧駜?nèi)容設(shè)為Range(a1).value=hello又如：你現(xiàn)在的工作簿在sheet1上，你要往sheet2的單元格中插入1.sheets(she

5、et2).selectrange(a1).value=hello或2.Sheets(sheet1).Range(a1).Value = hello說(shuō)明：1.sheet2被選中，然后在將“HELLO賦到A1單元格中。2.sheet2不必被選中，即可“HELLO賦到sheet2 的A1單元格中。隱藏工作表隱藏SHEET1這張工作表sheets(sheet1).Visible=False顯示SHEET1這張工作表sheets(sheet1).Visible=True打印預(yù)覽有時(shí)候我們想把所有的EXCEL中的SHEET都打印預(yù)覽，請(qǐng)使用該段代碼，它將在你現(xiàn)有的工作簿中循環(huán)，直到最后一個(gè)工作簿結(jié)束循環(huán)預(yù)

6、覽。Dim my As WorksheetFor Each my In Worksheetsmy.PrintPreviewNext my得到當(dāng)前單元格的地址msgbox ActiveCell.Address得到當(dāng)前日期及時(shí)間msgbox date & chr(13) & time保護(hù)工作簿ActiveSheet.Protect 取消保護(hù)工作簿ActiveSheet.Unprotect給活動(dòng)工作表改名為 liuActiveSheet.Name = liu打開(kāi)一個(gè)應(yīng)用程序AppActivate (Shell(C:WINDOWSCALC.EXE)增加一個(gè)工作表Worksheets.Add刪除活動(dòng)工作

7、表activesheet.delete打開(kāi)一個(gè)工作簿文件Workbooks.Open FileName:=C:My DocumentsBook2.xls關(guān)閉活動(dòng)窗口ActiveWindow.Close單元格格式選定單元格左對(duì)齊Selection.HorizontalAlignment = xlLeft選定單元格居中Selection.HorizontalAlignment = xlCenter選定單元格右對(duì)齊Selection.HorizontalAlignment = xlRight選定單元格為百分號(hào)風(fēng)格Selection.Style = Percent選定單元格字體為粗體Selection

8、.Font.Bold = True選定單元格字體為斜體Selection.Font.Italic = True選定單元格字體為宋體20號(hào)字With Selection.Font.Name = 宋體.Size = 20End WithWith 語(yǔ)句With 對(duì)象.描述End With清除單元格ActiveCell.Clear 刪除所有文字、批注、格式返回選定區(qū)域的行數(shù)MsgBox Selection.Rows.Count返回選定區(qū)域的列數(shù)MsgBox Selection.Columns.Count返回選定區(qū)域的地址Selection.Address忽略所有的錯(cuò)誤ON ERROR RESUME N

9、EXT遇錯(cuò)跳轉(zhuǎn)on error goto err_handle中間的其他代碼err_handle: 標(biāo)簽跳轉(zhuǎn)后的代碼刪除一個(gè)文件kill c:1.txt定制自己的狀態(tài)欄Application.StatusBar = 現(xiàn)在時(shí)刻: & Time恢復(fù)自己的狀態(tài)欄Application.StatusBar = false用代碼執(zhí)行一個(gè)宏Application.Run macro:=text滾動(dòng)窗口到a1的位置ActiveWindow.ScrollRow = 1ActiveWindow.ScrollColumn = 1定制系統(tǒng)日期Dim MyDate, MyDayMyDate = #12/12/69#MyDay = Day(MyDate)返回當(dāng)天的時(shí)間Dim MyDate, MyYearMyDate = Date MyYear = Year(MyDate)MsgBox MyYear inputboxXX=InputBox (Enter number of months to add)得到一個(gè)文件名Dim kk As Stringkk = Application.GetOpenFilename(EXCEL (*.XLS), *.XLS, Title:=提示：請(qǐng)打開(kāi)一個(gè)EXCEL文件：)msgbox kk打開(kāi)zoom對(duì)話框Application.Dialogs(xlDialogZoom