實用VBA語句集(第3輯)

'(201)
       Set objExcel = CreateObject("Excel.Application")
      '創建Excel工作簿
      objExcel.Workbooks.Add
'(202)開啟Word應用程序
      Application.ActivateMicrosoftApp xlMicrosoftWord
'(203)獲取工作簿模板的位置
      Application.TemplatesPath
'(204)設置工作簿手動計算
      Application.Calculation = xlCalculationManual
      '工作簿自動計算
         Application.Calculation = xlCalculationAutomatic
'(205)不對第一張工作表自動進行重算
      Worksheets(1).EnableCalculation = False
'(206)重新計算所有打開的工作簿中的數據
      Application.CalculateFull
'(207)將最近使用的文檔列表數設為5
      Application.RecentFiles.Maximum = 5
'(208)打開最近打開的文檔中的第4個文檔
      Application.RecentFiles(4).Open
'(209)在2006年6月6日的16:16:16開始運行BaoPo過程
      Application.OnTime DateSerial(2006, 6, 6) + TimeValue("16:16:16"), "BaoPo"
'(210)播放聲音，並使用用戶的姓名問候用戶
      Application.Speech.Speak ("Hello" & Application.UserName)
'(211)獲取"\"號
      MsgBox Application.PathSeparator
'(212)返回應用程序當前所在國家的設置信息
      MsgBox Application.International(xlCountrySetting)
'(213)自動將在工作表中進行輸入的"葛洲壩"更正為"三峽"
      Application.AutoCorrect.AddReplacement "葛洲壩", "三峽"
'(214)讓計算機發出聲音
      Beep
'(215)返回錯誤代碼
      Err.Number
'(216)獲取輸入法狀態
      MsgBox IMEStatus
'(217)
       Date = #6/6/2006#
      '將系統時間更改為2006年6月6日上午6時16分16秒
      Time = #6:16:16 AM#
'(218)切換是否能利用鼠標中間的滑輪放大/縮小工作表
      Application.RollZoom = Not Application.RollZoom
'(219)顯示任務欄中的窗口,即各工作簿佔用各自的窗口
      Application.ShowWindowsInTaskba = True
'(220)顯示窗口上的滾動條
      Application.DisplayScrollBars = True
'(221)切換是否顯示編輯欄
      Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
'(222)顯示打印內容對話框
      Application.Dialogs(xlDialogPrint).Show
'(223)設置按Enter鍵後單元格的移動方向向右
      Application.MoveAfterReturnDirection = xlToRight
'(224)顯示打開對話框
      Application.FindFile
'(225)打開超鏈接文檔
      ThisWorkbook.FollowHyperlink "http://fanjy.blog.excelhome.net"
'(226)將當前工作簿設置為只讀
      ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
'(227)將當前工作簿添加到收藏夾文件夾中
      ActiveWorkbook.AddToFavorites
'(228)在當前工作表中執行"拼寫檢查"
      ActiveSheet.CheckSpelling
'(229)保護當前工作表
      ActiveSheet.Protect userinterfaceonly:=True
'(230)在當前工作表的左側頁眉處打印出工作簿的完整路徑和文件名
      ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName
'(231)
      '解除對工作表Sheet1中A1:G37區域單元格的鎖定,以便當該工作表受保護時也可對這些單元格進行修改
       Worksheets("Sheet1").Range("A1:G37").Locked = False
       Worksheets("Sheet1").Protect
'(232)顯示工作表sheet1的打印預覽窗口
      Worksheets("Sheet1").PrintPreview
'(233)禁用顯示在Excel的"打印預覽"窗口中的"設置"和"頁邊距"按鈕
      ActiveSheet.PrintPreview Enablechanges:=False
'(234)在打印預覽中顯示網格線
      ActiveSheet.PageSetup.PrintGridlines = True
      '在打印預覽中顯示行列編號
      ActiveSheet.PageSetup.PrintHeadings = True
'(235)開啟數據記錄單
      ActiveSheet.ShowDataForm
'(236)
       '將工作表sheet1中A列的SIN替換為COS
       Worksheets("Sheet1").Columns("A").Replace _
              What:="SIN", Replacement:="COS", _
              SearchOrder:=xlByColumns, MatchCase:=True
'(237)刪除當前工作表中的第2行
      Rows(2).Delete
      '刪除當前工作表中的第2列
      Columns(2).Delete
'(238)在當前單元格左側插入一條垂直分頁符
      ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell
      '在當前單元格上方插入一條垂直分頁符
      ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
'(239)將當前工作表窗口滾動到第14行
      ActiveWindow.ScrollRow = 14
      '將當前工作表窗口滾動到第13列
      ActiveWindow.ScrollColumn = 13
'(240)關閉當前窗口
      ActiveWindow.Close
'(241)獲取當前窗口中的窗格數
      ActiveWindow.Panes.Count
'(242)將A2至D2的單元格名稱設定為A1到D1單元格的內容
      Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True
'(243)自定義當前工作表中單元格A1至A8中的內容為自動填充序列
      Application.AddCustomList listarray:=Range("A1:A8")
'(244)將單元格A1至B2的內容複製成屏幕快照
      Worksheets("sheet1").Range("A1:B2").CopyPicture xlScreen, xlBitmap
'(245)刪除所選區域的所有鏈接
      Selection.Hyperlinks.Delete
      '刪除第1列中所有的鏈接
      Columns(1).Hyperlinks.Delete
      '刪除第1行中所有的鏈接
      Rows(1).Hyperlinks.Delete
      '刪除指定範圍所有的鏈接
      Range("A1:Z30").Hyperlinks.Delete
'(246)'在活動單元格中設置開啟Windows計算器鏈接器
       ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _
      Address:="C:\Windows\System32\Calc.exe", ScreenTip:="按下我，就會開啟Windows計算器", TextToDisplay:="Windows計算"
'(247)開啟Windows計算器
      ActiveCell.Value = Shell("C:\Windows\System32\Calc.exe", vbNormalFocus)
'(248)打開自動篩選。若再運行一次，則關閉自動篩選
      ActiveSheet.Rows(1).AutoFilter
'(249)開啟/關閉所選區域的自動篩選
      Selection.AutoFilter
'(250)關閉自動篩選
      ActiveSheet.ShowAllData
'(251)檢查自動篩選是否開啟，若開啟則該語句返回True
      ActiveSheet.AutoFilterMode
'(252)'在A列中找出與單元格A2內容不同的單元格並刪除
       ActiveSheet.Columns("A").ColumnDifferences(Comparison:=ActiveSheet. _
      Range("A2")).Delete
'(253)刪除單元格A6中的批註，包括聲音批註和文字批註
      ActiveSheet.Range("A6").ClearNotes
'(254)刪除單元格B8中的批註文字
      ActiveSheet.Range("B8").ClearComments
'(255)清除單元格區域A1至D10中的格式
      ActiveSheet.Range("A1:D10").ClearFormats
'(256)
       '將單元格B2至D2區域設置為藍色雙線
       ActiveSheet.Range("B2:D2").BorderAround ColorIndex:=5, _
        Weight:=xlMedium, LineStyle:=xlDouble
'(257)引用單元格C2的數據
      Range("A1:B2").Item(2, 3)
      Range("A1:B2")(2, 3)
      '引用單元格A2
      Range("A1:B2")(3)
'(258)設置字體加粗
      ActiveSheet.Cells(1, 1).Font.Bold = True
      '設置字體大小為24磅
      ActiveSheet.Cells(1, 1).Font.Size = 24
      '設置字體顏色為紅色
      ActiveSheet.Cells(1, 1).Font.ColorIndex = 3
      '設置字體為斜體
      ActiveSheet.Cells(1, 1).Font.Italic = True
      '設置字體類型
      ActiveSheet.Cells(1, 1).Font.Name = "Times New Roman"
      '將單元格的背景色設置為紅色
      ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3
'(259)將當前工作表中單元格區域C2至E6格式自動調整為彩色3格式
      ActiveSheet.Range("C2:E6").AutoFormat Format:=xlRangeAutoFormatColor3
'(260)選中當前工作表中的最後一個單元格
      Cells.SpecialCells (xlCellTypeLastCell)
'(261)選定包含活動單元格的整個數組單元格區域.假定該單元格在數據單元格區域中
      ActiveCell.CurrentArray.Select
'(262)將當前單元格數字格式設置為帶3位小數,若為負數則顯示為紅色
      ActiveCell.NumberFormatLocal = "0.000; [紅色] 0.000"
'(263)判斷活動單元格中是否有值
      IsEmpty (ActiveCell.Value)
'(264)刪除字符串前面的空白字符
      ActiveCell.Value = LTrim(ActiveCell.Value)
'(265)獲取活動單元格中字符串的個數
      Len(ActiveCell.Value)
'(266)將當前單元格中的字符轉換成大寫
      ActiveCell.Value = UCase(ActiveCell.Value)
'(267)將活動單元格中的字符串轉換成小寫
      ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase)
'(268)在當前工作表的單元格C1中添加批註
      ActiveSheet.Range("C1").AddComment
'(269)獲取今天的星期,以數值表示,1-7分別對應星期日至星期六
      Weekday (Date)
'(270)將單元格A1的數值填充到單元格A1至A10區域中
      ActiveSheet.Range("A1").AutoFill Range(Cells(1, 1), Cells(10, 1))
'(271)獲取今天在全年中的天數
      DatePart("y", Date)
'(272)獲取兩年後的今天的日期
      ActiveCell.Value = DateAdd("yyyy", 2, Date)
'(273)獲取今天的星期數
      MsgBox WeekdayName(Weekday(Date))
'(274)在當前單元格中輸入今年的年份數
      ActiveCell.Value = Year(Date)
      '在當前單元格中輸入今天所在的月份數
      ActiveCell.Value = Month(Date)
      '在當前單元格中輸入今天的日期數
      ActiveCell.Value = Day(Date)
'(275)在當前單元格中顯示月份的名稱,本句為顯示"一月"
      ActiveCell.Value = MonthName(1)
'(276)在當前單元格中顯示現在時間的小時數
      ActiveCell.Value = Hour(Time)
      '在當前單元格中顯示現在時間的分鐘數
      ActiveCell.Value = Minute(Time)
      '在當前單元格中顯示現在時間的秒數
      ActiveCell.Value = Second(Time)
'(277)刪除當前工作表中的第一個形狀
      ActiveSheet.Shapes(1).Delete
'(278)獲取當前工作表中形狀的數量
      ActiveSheet.Shapes.Count
'(279)改變當前工作表中第一個藝術字的方向
      ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText
'(280)將當前工作表中第一個藝術字的字體設置為斜體
      ActiveSheet.Shapes(1).TextEffect.FontItalic = True
'(281)在當前工作表中創建一個名為"三峽"的藝術字並對其進行格式設置和選中
       ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, "三峽", _
      "Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select
'(282)在當前工作表中以(10,10)為起點(250,100)為終點畫一條直線並選中
       ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _
      EndY:=100).Select
'(283)在當前工作表中畫一個左上角在(70,40),寬為130高為72的三角形並選中
       ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
      Left:=70, Top:=40, Width:=130, Height:=72).Select
'(284)在當前工作表中畫一個以點(70,40)為起點,寬130高72的矩形並選中
       ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _
      Left:=70, Top:=40, Width:=130, Height:=72).Select
'(285)在當前工作表中畫一個左上角在(70,40),寬為130高為72的橢圓
       ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _
      Left:=70, Top:=40, Width:=130, Height:=72).Select
'(286)將當前工作表中第一個形狀的線條顏色變為藍色
      ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255)
'(287)將當前工作表中第2個形狀的前景色設置為紅色
      ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0)
'(288)將當前工作表中的第1個形狀旋轉20度
      ActiveSheet.Shapes(1).Rotation = 20
'(289)將當前選中的形狀水平翻轉
      Selection.ShapeRange.Flip msoFlipHorizontal
      '將當前選中的形狀垂直翻轉
      Selection.ShapeRange.Flip msoFlipVertical
'(290)將所選取的形狀設置為第1種立體樣式
      Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1
'(291)將當前工作表中第一個立體形狀的深度設置為20
      ActiveSheet.Shapes(1).ThreeD.Depth = 20
'(292)將當前工作表中第1個立體形狀的進深部分的顏色設為藍色
      ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255)
'(293)將當前工作表中的第1個立體形狀沿X軸旋轉60度
      ActiveSheet.Shapes(1).ThreeD.RotationX = 60
      '將當前工作表中的第1個立體形狀沿Y軸旋轉60度
      ActiveSheet.Shapes(1).ThreeD.RotationY = 60
'(294)將所選擇的立體形狀轉換為平面形狀
      Selection.ShapeRange.ThreeD.Visible = msoFalse
'(295)在形狀中讓指定的連接符起點脫離原來所連接的形狀
      Selection.ShapeRange.ConnectorFormat.BeginDisconnect
'(296)複製當前工作表中形狀1的格式
      ActiveSheet.Shapes(1).PickUp
'(297)在工作簿中新建一個文本框並輸入內容
      ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30).TextFrame.Characters.Text = _
                      "fanjy.blog.excelhome.net"
'(298)在當前工作表中建立一個水平文本框並輸入內容
      ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200).TextFrame.Characters.Text = _
                      "fanjy.blog.excelhome.net"
'(299)在當前工作表中插入一張d盤中名為sx的圖片
      ActiveSheet.Shapes.AddPicture "d:\sx.jpg", True, True, 60, 20, 400, 300
'(300)將當前圖表類型改為三維面積圖
      ActiveChart.ApplyCustomType xl3DArea