Excel-VBA編程的常用代碼7頁

1、用過VB的人都應該知道如何聲明變量，在VBA中聲明變量和VB中是完全一樣的！使用Dim語句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（當前不支持）、 Date、String（只限變長字符串）、String * length（定長字符串）、Object、Varia

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

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

4、).Select當前單元格向下移動一格ActiveCell.Offset(-1 , 0).Select當前單元格向上移動一格end sub如果上述程序產生錯誤那是因為單元格不能移動，為了解除上述錯誤，我們可以往sub my_offset 之下加一段代碼 on error resume next注意以下代碼都不再添加 sub “代碼名稱” 和end sub請自己添加!給當前單元格賦值ActiveCell.Value = 你好！給指定單元格賦值例如：單元格內容設為Range(a1).value=hello又如：你現(xiàn)在的工作簿在sheet1上，你要往sheet2的單元格中插入1.sheets(she

5、et2).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(sheet1).Visible=True打印預覽有時候我們想把所有的EXCEL中的SHEET都打印預覽，請使用該段代碼，它將在你現(xiàn)有的工作簿中循環(huán)，直到最后一個工作簿結束循環(huán)預

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

7、表activesheet.delete打開一個工作簿文件Workbooks.Open FileName:=C:My DocumentsBook2.xls關閉活動窗口ActiveWindow.Close單元格格式選定單元格左對齊Selection.HorizontalAlignment = xlLeft選定單元格居中Selection.HorizontalAlignment = xlCenter選定單元格右對齊Selection.HorizontalAlignment = xlRight選定單元格為百分號風格Selection.Style = Percent選定單元格字體為粗體Selection

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

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