英語翻譯印度語 Charts.Add
(197)
Application.Dialogs(xlDialogFormulaGoto).Show
注:可與用戶表單共同利用,即在打開工作簿時將工作簿埋沒,只顯示用戶表單.可設置節制按鈕控制工作簿可見
ActiveSheet.ChartObjects.Count
(127)為自定義函數SumPro進行了功能申明
Worksheets("Sheet1").PrintPreview
ListBox1.Selected (0)
(293)將當前工作表中的第1個立體外形沿X軸旋轉60度
IsEmpty (ActiveCell.Value)
返回當前工作簿路徑和名稱
Range("D1：E6").Name = "Sheet1!book"
援用單格A2
Time = #6:16:16 AM#
複製包括A1的單格區域到工作表2中以A1肇端的單格區域中
Application.Dialogs(xlDialogBorder).Show
註：不合用於用戶表單節制項觸發的事務
(20)將Sheet1定名為Sum
指定陣列的第一個下標為1
(169)返回當前工作簿的名稱
ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80翻譯社 100, 200).TextFrame.Characters.Text = _
(27)切換工作表中的行列邊框顯示
(290)將所選取的外形設置為第1種立體樣式
ActiveSheet.PageSetup.PrintGridlines = True
(117)複製一個工作表到新的工作簿
ActiveWorkbook.Sheets.Count
(61)動態定名列
ActiveWorkbook.Saved
ActiveSheet.Shapes(1).Delete
(110)返回工作簿的存儲值(若已留存則為False)
Option Explicit
Application.OperatingSystem
選中當前工作表中常量和文本及錯誤值單格
Sheets(1).Delete
ActiveSheet.PageSetup.PrintHeadings = True
(145)將單格A1中的資料添加到列表框中
(206)從新計較所有打開的工作簿中的資料
視窗最大化
或cell.HasFormula
(185)兩個樞紐字排序，相鄰兩列，B列為主關鍵字，A列為次要害字，昇冪排列
(95)創建並傳遞一個 Excel.Application 對象的援用
(299)在當前工作表中插入一張d盤中名為sx的圖片
Range("A1:B2")(3)
ActiveSheet.Cells(1, 1).Font.Bold = True
(60)刪除名稱
(116)在第二個工作表之前添加兩個新的工作表
(148)返回應用程式的用戶名
Cell.Range("A1").HasFormula
(38)複製單格A1，粘貼到單格B1中
ActiveSheet.Range("B2:D2").BorderAround ColorIndex:=5翻譯社 _
Description:="First Sum,then Product"
d.Add "a", "Athens"
(86)載入一個用戶表單,但該表單處於隱藏狀態
ThisWorkbook.Worksheets("sheet1").Visible = xlSheetHidden
(146)選中列表框中的第一個條目(註：當列表框允許一次選中多個條目時，必需利用Selected屬性)
ActiveSheet.ShowDataForm
(282)在當前工作表中以(10,10)為起點(250翻譯社100)為終點畫一條直線並選中
ActiveChart.Location Where:=xlLocationAsNewSheet
Range("A1").CurrentRegion.Copy Sheets("Sheet2").Range("A1")
Option Compare Text
(167)返回運動工作簿的名稱
Application.OnTime DateSerial(2006, 6, 6) + TimeValue("16:16:16"), "BaoPo"
ActiveSheet.Columns("B").Cut
ActiveChart.Deselect
(43)查抄單格A1的文本色彩並返回色彩索引
(81)在訊息方塊中點擊"是"按鈕，則Ans值為vbYes；點擊"否"按鈕，則Ans值為vbNo。
ActiveSheet.UsedRange.Rows.Count
Columns(2).Delete
ActiveWindow.Visible = False
Rows(2).Delete
ActiveCell.Value = Hour(Time)
以上兩句將E列資料移至B列，原B列及今後的資料響應後移
Application.RecentFiles(4).Open
Option Base 1
使用工作表Sheet2中的SumP區域的值填充列表框
(114)正常埋沒工作表，同在Excel功能表當選擇"格式--工作表--隱藏"操作一樣
其他
Application.WorksheetFunction.CountA (Range("A:A")) + 1
或
ActiveWorkbook.Sheets(i).Name
(188)單格地點的整列
Application對像
RefersTo:="=OFFSET(Sheet1!A2翻譯社0,0翻譯社COUNTA(Sheet2!＄A:＄A))"
Call MySub(CreateObject("Excel.Application"))
"fanjy.blog.excelhome.net"
MsgBox IMEStatus
ActiveSheet.Shapes.AddPicture "d:sx.jpg", True, True翻譯社 60, 20, 400翻譯社 300
Set xlBook = xlApp.Workbooks.Add
Names("book").Delete
Application.UserName
(232)顯示工作表sheet1的列印預覽視窗
(151)將文本寫到狀況欄
(26)切換工作表中的格線顯示，這類方式也能夠用在其他方面進行相互切換，即相當於開關按鈕
http://www.officefans.net/cdb/viewthread.php?tid=62739
Application.MemoryFree
*******************************************************
(190)返回rng區域的位址
EndY:=100).Select
(130)返回工作表中非空單格數目
(46)引單格C5
(84)運用工作表函數返回所選區域的平均值並按指定格局顯示
ActiveCell.Value = MonthName(1)
*******************************************************
TypeName(Selection) = "Chart"
Application.Calculation = xlCalculationAutomatic
獲得當前窗口的寬度
(6)封閉螢幕刷新
獲得單格A1佈景色
Ans = MsgBox("Continue?", vbYesNo)
(278)獲得當前工作表中外形的數目
ActiveCell.Column
ActiveCell.Value = Minute(Time)
ActiveSheet.Columns("B").Insert
(163)返回活動單格的地址(注:返回的是絕對位址)
或
MsgBox "Hello!"
Rows.Count
(279)改變當前工作表中第一個藝術字的方向
ActiveWindow.ScrollRow = 14
(237)刪除當前工作表中的第2行
MsgBox "This is the first line." & vbNewLine & "Second line."
(131)對A列至D列前19個數值乞降
(39)將值XX輸入到所選單格區域中
(58)關閉由於履行主動挑選敕令產生的第3個欄位的下拉清單
(23)同時選擇工作表1和工作表2
(235)開啟資料紀錄單
(65)將名稱隱藏
(98)設置Ctrl+I鍵為macro進程的快捷鍵
(256)
(212)返回利用程式當前地點國度的設置資訊
(1)強制對模組內所有變數進行聲明
將單格區域複製到單格F1起頭的區域中
定名局部變數，即Sheet1上區域D1：E6為book
ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
將狀態欄從頭設置成正常狀況
Before:=ThisWorkbook.Worksheets(2)
(217)
Set xlApp = CreateObject("Excel.Application")
Names.Add Name:="ContentList", _
ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2
(149)返回代表調用函數的單格
(96)建立一個 Dictionary 物件變數
(152)指訂單格區域A1至D4，等同於選擇"編輯--定位"，指定單格區域為A1至D4，不會泛起"定位"對話方塊
"fanjy.blog.excelhome.net"
Application.CutCopyMode = False
或
ActiveSheet.CheckSpelling
關閉 Excel
(291)將當前工作表中第一個立體外形的深度設置為20
(175)返回Excel產品登記利用的組織機構的名稱
*******************************************************
Selection.Areas.Count
標記模組為私有，僅對統一工程中其他模組有用，在巨集對話方塊中不顯示
ThisWorkbook.Worksheets("Sheet1").Rows(1).Hidden = True
ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0翻譯社 0)
(170)返回Excel計較引擎版本(右側四位元數字)及Excel版本(左側兩位元數字)
Application.Version
ActiveWindow.ScrollRow = ScrollBarRows.Value
單格區域Data中的列數
On Error GoTo 0
MsgBox Application.PathSeparator
顯示工作簿
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants翻譯社xlErrors+xlTextValues)
(45)啟動當前活動單格下方3行，向右4列的單格
(8)創建一個新的工作簿
ActiveWindow.Close
ActiveSheet.Shapes.Count
Application.WindowState
Application.ActivePrinter
Left:=70, Top:=40, Width:=130, Height:=72).Select
Cells.Item(5翻譯社"C")
(111)隱藏工作簿
(245)刪除所選區域的所有鏈結
Range("Data").Count
Application.ThisWorkbook.Name
(41)當前選中區域的單格數
(16)將工作簿以平鋪體式格局擺列
字串不區分大小寫
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell翻譯社 _
(156)顯示"援用位置"的默許單格區域並顯示援用使其出現在視窗左上角(註：內置對話方塊參數的利用)
ThisWorkbook.ActiveSheet.Rows(1).RowHeight = 10
ThisWorkbook.Worksheets.Add Count:=2翻譯社 _
Application.ShowWindowsInTaskba = True
(100)無論何時工作表中任意單格從頭計算，都會強迫計算該函數
(250)關閉主動挑選
*******************************************************
Application.StatusBar = "請等待……" & Percent & "% Completed"
(63)將數字123456定名為Total翻譯留意數位不克不及加引號，否則就是定名字串了。
(177)疏忽鍵盤或滑鼠的輸入
ActiveSheet.Shapes(1).ThreeD.RotationY = 60
(37)偏移一列
(224)顯示打開對話方塊
(220)顯示視窗上的捲軸
ActiveWorkbook.Names("Com").Name
(147)移除列表框當選中的條目
Selection.Rows.Count
*******************************************************
(216)獲得輸入法狀態
ActiveSheet.Columns("E").Insert
ActiveSheet.PrintPreview Enablechanges:=False
ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255)
ActiveWindow.ScrollColumn = ScrollBarColumns.Value
Application.Speech.Speak ("Hello" & Application.UserName)
Application.Visible = False
Workbooks.Add()
(73)更改工作表中圖表的圖表區的色彩
(13)返回活動工作薄的名稱
ThisWorkbook.Saved
Application.ScreenUpdating = False
刪除第1列中所有的鏈結
Intersect(Range("Data1"),Range("Data2"))
圖表
Application.CalculationVersion
(286)將當前工作表中第一個外形的線條色彩變為藍色
ActiveWindow.RangeSelection.Value = XX
Application.Window.Arrange xlArrangeStyleTiled
以上兩句將B列資料移至D列，原C列和D列資料相應左移一列
Beep
(54)選中的單格區域所包含的區域數
Selection.ShapeRange.Flip msoFlipVertical
或
ActiveSheet.Protect userinterfaceonly:=True
ThisWorkbook.Worksheets(1).Activate
(219)顯示任務欄中的視窗,即各工作簿佔用各自的視窗
Application.OnKey "^I"翻譯社 "macro"
Application.Dialogs(xlDialogAlignment).Show
(178)若在工作表中定義了常量0.06的名稱為"Rate"翻譯社則本語句將返回值0.06
將當前工作表中的第1個立體外形沿Y軸扭轉60度
Application.FindFile
改變工作表列1的寬度為20
將文本框節制項值賦給數值調節鈕節制項
視窗正常狀況
(221)切換是不是顯示編輯欄
單格所在的整行
打開螢幕刷新
Selection.ClearContents
Worksheets("Sheet1").ChartObjects("Chart2").Chart. _
GetAddress = Replace(Hyperlinkcell.Hyperlinks(1).Address, "mailto:", "")
對像
Application.ActivateMicrosoftApp xlMicrosoftWord
Application.FindFormat
表單和節制項
ActiveCell.Row
ActiveSheet.Range("C1").AddComment
Range("A1").Offset(RowOffset:=4,ColumnOffset:=5)
將捲軸節制項的值賦值給ActiveWindow物件的ScrollRow屬性
刪除第1行中所有的鏈結
(207)將比來利用的文檔列表數設為5
ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle翻譯社 _
ThisWorkbook.FileFormat
Worksheets("Sheet1").Range("A1:G37").Locked = False
Collection與object
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30).TextFrame.Characters.Text = _
ListBox1.List = Product
工作表
Selection.Range("E4").Select
(159)返回利用的Excel版本號
VBA課程 http://comp-vba.blogspot.com/
Application.MemoryTotal
(211)獲得""號
(181)返回A列最後一行的下一行
(68)
ActiveSheet.Range("A20:D20").Formula = "=Sum(R[-19]C:R[-1]C"
Application.Dialogs(xlDialogPatterns).Show
工作表中單格是不是含有公式
(199)向集合中添加唯一的條目(行將反複的條目疏忽)
Application.ActiveSheet.Name
(296)複製當前工作表中外形1的格式
當前選中的單格區域中的行數
(168)返回所選區域的位址
Application.Dialogs(xlDialogFontProperties).Show
(10)留存工作簿
Range("A1").Offset (-1)
Cell.Parent.Parent.Worksheets
(25)獲得工作表i的名稱
(89)在用戶表單中顯示圖形
ActiveSheet.Cells.SpecialCells (xlCellTypeAllFormatConditions)
(276)在當前單格中顯示如今時候的小時數
(88)卸載用戶表單
ActiveSheet.Cells(1翻譯社 1).Font.ColorIndex = 3
(144)將捲軸節制項的值賦值給ActiveWindow物件的ScrollColumn屬性
(174)返回所利用的功課系統的名稱和版本
Rng.Column
ActiveSheet.Rows(1).AutoFilter
Application.EnableEvents = True
rng.Range ("A1")
ActiveSheet.Shapes(1).PickUp
ActiveWindow.Panes.Count
WorksheetFunction.CountA (Cell.EntireColumn)
Set xlSheet = xlBook.Worksheets(1)
ActiveSheet.Range("A2:A10").NumberFormat = "#,##0"
Application.ScreenUpdating = True
(222)顯示列印內容對話方塊
ActiveSheet.UsedRange.FormatConditions.Delete
Sheets("sheet1").Delete
ThisWorkbook.Path
將工作表的列寬恢復為標準值
(210)播放聲音，並利用用戶的姓名問候用戶
(118)複製第三個工作表到第二個工作表之前
消滅選定區域內容
ThisWorkbook.Name
(33)選定當前工作表的所有單格
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues)
Application.Caller.Parent.Parent.BuiltinDocumentProperties ("Last Save Time")
(3)當毛病發生時跳轉到過程中的某個位置
(40)勾當視窗當選擇的單格數
(134)刪除工作表上所有的ChartObject物件
Dim xlSheet As Excel.Worksheet
Selection.ShapeRange.ConnectorFormat.BeginDisconnect
Range("A65536").End(xlUp).Row 1
Me.Width = Int(0.88 * ActiveWindow.Width)
UserForm1.Controls.Count
Range("A2")).Delete
Application.EnableEvents = False
ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _
Range("A1：C3").Name = "computer"
Cells.Item(5,3)
(218)切換是不是能使用滑鼠中央的滑輪放大/縮小工作表
(154)顯示"定位前提"對話方塊
Cells.Select
Application.UsableWidth
(186)顯示單格或單格區域中的第一個單格的數字格式
(182)返回區域左上角的單格
Option Private Module
Application.ActiveWorkbook.Name
ThisWorkbook.BuiltinDocumentProperties ("Last Print Date")
設置 Application 物件使 Excel 可見
在列印預覽中顯示行列編號
ThisWorkbook.Save
Worksheets("sheet1").Range("A1:B2").CopyPicture xlScreen翻譯社 xlBitmap
Cells.Hyperlinks.Delete
單格區域Data中的行數
Range("A1:D8").Copy Range("F1")
Range("A1").Offset(Rowoffset:=-1)
(133)若選中的為圖表，則該語句為真，否則為假
(71)選中當前工作表中圖表Chart1
Address:="C:WindowsSystem32Calc.exe", ScreenTip:="按下鉦昱翻譯公司，就會開啟Windows較量爭論器", TextToDisplay:="Windows計較"
ThisWorkbook.ActiveSheet.StandardHeight
(85)顯示用戶表單
Worksheets("Sheet1").Protect
RefEdit1.Text = ActiveWindow.RangeSelection.Address
ActiveSheet.Range("A1").AutoFill Range(Cells(1翻譯社 1)翻譯社 Cells(10, 1))
ExcelSheet.Application.Cells(1, 1).Value = "Data"
Selection.ShapeRange.Flip msoFlipHorizontal
ThisWorkbook.CodeName
將單格的後臺色設置為紅色
(7)禁用Ctrl+Break中止宏運行的功能
Application.Interactive = False
ActiveChart.ChartArea.Select
ActiveSheet.Move After:=ActiveWorkbook. _
WorksheetFunction.CountA (Cells)
恢復游標的默許設置
(203)獲得工作簿範本的位置
Selection.Count
(225)打開超鏈結文檔
(50)將Data1和Data2區域毗鄰
TextName.SetFocus
ThisWorkbook.Worksheets("sheet1").Visible = xlSheetVisible
ActiveSheet.ShowAllData
ActiveSheet.Range("B8").ClearComments
What:="SIN", Replacement:="COS", _
(112)在A列右側插入列，即插入B列
(266)將當前單格中的字元轉換成大寫
引單格C5
將系統時候更改為2006年6月6日上午6時16分16秒
只有在該函數的一個或多個參數發生改變時，才會重新計較該函數
Application.Dialogs(xlDialogSelectSpecial).Show
"Arial Black", 22#, msoFalse翻譯社 msoFalse翻譯社 66#翻譯社 80).Select
或
(300)將當前圖表類型改為立體區域圖
ActiveWorkbook.WindowState = xlMaximized
Public colMySheets As New Collection
(285)在當前工作表中畫一個左上角在(70,40),寬為130高為72的橢圓
在當前單格中顯示目下當今時候的分鐘數
(93)創建一個Excel工作表物件
(268)在當前工作表的單格C1中添加批註
ActiveSheet.Shapes(1).ThreeD.RotationX = 60
ActiveWorkbook.ReadOnly
(234)在列印預覽中顯示格線
If MsgBox("Continue?"翻譯社 vbYesNo) <> vbYes Then Exit Sub
Weight:=xlMedium, LineStyle:=xlDouble
啟動單格區域A列中最大值的單格
Application.CommandBars(1).Controls(2).Controls(16).Execute
Range("A1").Offset(翻譯社1)
Selection.Columns.Count
(155)顯示"單元格花式"中的"數位"選項卡
(62)命名字串CompanyCar
Picture1.Picture = LoadPicture("C:1.JPG")
(269)獲得今天的星期,以數值示意,1-7劃分對應日曜日至禮拜六
UserForm1.Show vbModeless
Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).Select
(184)切換所選單格是否加粗
ActiveCell.Value = Month(Date)
*******************************************************
Application.AddCustomList listarray:=Range("A1:A8")
ActiveCell.EntireRow.Hidden = True
(172)以位元組為單位返回Excel當前利用的記憶體數
(69)在單格中輸入陣列公式。注重必需利用R1C1樣式的運算式
(194)當前工作表中的單格區域資料設置為左對齊
ActiveWindow.EnableResize = False
返回安裝Windows所在的目錄名稱，調用該函數後，安裝Windows的目錄名稱將在第一個參數lpBuffer中，該目錄名稱的字串長度包括在第二個參數nSize中
釋放該物件變數
ListBox1.AddItem "Command1"
(76)指定圖表資料源並按列佈列
設置字體色彩為紅色
(87)埋沒用戶表單
註：若在一個由多個單格構成的局限內使用Formula屬性，會獲得毛病；若單格中沒有公式，會獲得一個字串，在公式欄中顯示該單格的值翻譯
或
(254)刪除單格B8中的註解文字
Application.Caller.Parent.Parent.BuiltinDocumentProperties ("Last Print Date")
ActiveSheet.Cells(1, 1).Font.Italic = True
Sheets(ActiveWorkbook.Sheets.Count)
(14)返回當前工作簿名稱
Application.Visible = True
註：因為當把一維陣列的內容傳遞給某個單格區域時，該單格區域中的單格必須是水準偏向的，即含有多列的一行翻譯若必需利用垂直標的目的的單格區域，則必需先將陣列進行轉置，成為垂直的。
或
Application.CalculateFull
objExcel.Workbooks.Add
Names("computer").Name = "robot"
Application.ActiveWindow.Caption
ThisWorkbook.Worksheets("sheet1").Visible = xlSheetVeryHidden
ThisWorkbook.ActiveSheet.Rows.RowHeight = 10
設置某單格區域左上角單格
(142)返回代表單格區域位址的文本字串
(272)獲得兩年後的今天的日期
ThisWorkbook.Worksheets(3).Copy
Application.ActiveCell.Address
(34)肅清流動工作表上單格A1中的內容
Set ExcelSheet = Nothing
名稱
(75)添加新的圖表工作表
Me.Height = Int(0.88 * ActiveWindow.Height)
Selection.Font.Bold = Not Selection.Font.Bold
ActiveWorkbook.Path
Application.Dialogs(xlDialogCellProtection).Show
(17)將當前工作簿最大化
Application.Dialogs(xlDialogFormatNumber).Show
(21)添加一個新工作表在第一工作表前
(160)設置游標外形為北西向箭頭
Cells.Count
Cell.EntireRow
Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Activate
建立Excel工作簿
(115)檢查工作表是不是遭到護衛
工作簿
(138)將數值調節鈕節制項的值賦值給文本框節制項
ExcelVBA 程式碼範例 http://www.vba.com.tw/plog/
Application.Cursor = xlIBeam
Selection.AutoFilter
(162)獲取當前窗口的高度
(255)斷根單格區域A1至D10中的花式
徹底斷根A1至D4單格區域的內容，包括格式
顯示"單位格格局"中的"珍愛"選項卡
(49)將Data區域擴充2列
ActiveWindow.ScrollColumn = 13
Application.StatusBar = False
將當前工作表中活動單格所在的行埋沒
(201)
UserForm1.ListBox1.AddItem Sheets("Sheet1").Cells(1, 1)
Application.MacroOptions Macro:="SumPro", Category:=4
(294)將所選擇的立體外形轉換為平面形狀
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D5")翻譯社 _
(72)
Left:=70翻譯社 Top:=40, Width:=130, Height:=72).Select
Application.WindowState = xlMinimized
(108)返回當前工作簿的路徑(注:若工作簿未保留,則為空)
Cells.Clear
設置字體大小為24磅
(247)開啟Windows較量爭論器
Range("A1").Offset(4翻譯社 5)
(29)取消當前工作表所有超鏈結
(242)將A2至D2的單格名稱設定為A1到D1單格的內容
Len(ActiveCell.Value)
Range("Data").Rows.Count
ThisWorkbook.Worksheets("Sheet1").Rows(1).Font.Bold = True
SearchOrder:=xlByColumns, MatchCase:=True
ListBox1.RowSource = "Sheet2!SumP"
*******************************************************
ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName
MsgBox Application.International(xlCountrySetting)
數值調節鈕節制項和文本框節制項比擬較
UserForms.Add(MyForm).Show
Application.DisplayScrollBars = True
Application.DisplayAlerts = False
(11)關閉當前工作簿
(64)將陣列ArrayNum定名為MyArray翻譯
(192)返回單格區域D5:D10中左上角單格
(271)獲取今天在全年中的天數
Cell.Range("A1").NumberFormat
Load UserForm1
Application.Caller.Parent.Parent
將工作表的行高恢復為標準值
ThisWorkbook.Sheets(1).ProtectContents
設置游標外形為沙漏(守候)形
剪切單格區域A1至D8，複製到單格F1最先的區域中
或
ActiveSheet.AutoFilterMode
ActiveSheet.Cells(1, 1).Font.Name = "Times New Roman"
Range("A1").Interior.ColorIndex
ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName
Rows(1).Hyperlinks.Delete
Application.Caller
(66)返回名稱字串
Application.WindowState = xlNormal
(193)勾當單格地點的行數
ActiveSheet.ChartObjects.Delete
ThisWorkbook.FullName
顯示"單位格花樣"中的"對齊"選項卡
ListBox1.ListIndex
ActiveSheet.PageSetup.Orientation = xlLandscape
(59)定名A1：C3區域為computer
(28)刪除當前工作表中所有的前提花式
ActiveSheet.Shapes(1).ThreeD.Depth = 20
替換查找到的內容的格局種類
Application.Calculation = xlCalculationManual
Application.Goto Reference:=Range("A1:D4")
(161)返回視窗當前的狀況
*******************************************************
Dim colMySheets As New Collection
窗口最小化
(36)活動單格下移一行，同理，可下移一列
Union(Range("Data1"),Range("Data2"))
(18)當前工作表中已利用的行數
ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10翻譯社 EndX:=250, _
ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
Range("A1").AutoFilter Field:=3, VisibleDropDown:=False
(31)在頁面設置的表尾中輸入檔路徑
(295)在外形中讓指定的毗連符起點離開本來所毗連的形狀
(189)顯示rng區域的名稱
顯示"單位格花式"中的"字體"選項卡
Application.MacroOptions Macro:="SumPro"翻譯社 _
設置游標外形為Ⅰ字形
rng.Replace " ", "0"
(231)
(165)返回勾當工作表的名稱
SpinButton1.Value = 0
工作表
(262)將當前單格數字格式設置為帶3位小數翻譯社若為負數則顯示為紅色
ActiveWorkbook.Name
將該表格保存到C:test.xls 目次
(52)單格區域Data中的單格數
Application.Evaluate ("Rate")
Application.Cursor = xlNorthwestArrow
(119)改變工作表的列寬為20
(67)利用工作表函數搜檢A1單格中的資料是不是為數位
ThisWorkbook.BuiltinDocumentProperties ("Last Save Time")
在當前單格中輸入今天地點的月份數
MsgBox "the average is :" & _
(141)返回列表框中條目標值，若為-1，則表白未選中任何列表框中的條目
(196)用0替代單格區域中的空單格
(246)在運動單格中設置開啟Windows計較器鏈結器
ActiveWorkbook.LinkSources(xlExcelLinks)(1)
ActiveSheet.Calculate
ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell
(19)獲取工作表的行數(註：斟酌向前相容性)
(209)在2006年6月6日的16:16:16開始運行BaoPo進程
(259)將當前工作表中單格區域C2至E6格式主動調整為彩色3花式
(132)使圖表處於非舉止狀態
(92)禁用所有事件
(125)選中當前工作表中常量和文本單格
(173)以位元組為單元返回Excel可以使用的記憶體數(包孕已利用的記憶體,是MemoryFree和MemoryUsed的總和)
Application.Dialogs(xlDialogPrint).Show
(9)啟動名為book1的工作簿
Names.Add Name:="Company", RefersTo:="CompanyCar"
將單格B2至D2區域設置為藍色雙線
(229)保護當前工作表
DatePart("y", Date)
*******************************************************
ListBox1.RemoveItem ListBox1.ListIndex
(77)新圖表作為新圖表工作表
(241)獲取當前視窗中的窗格數
Left:=70, Top:=40翻譯社 Width:=130, Height:=72).Select
工作簿自動較量爭論
(136)設置文本框獲得輸入焦點
註：CurrentRegion屬性等價於定位號令，由一個矩形單格塊組成，周圍是一個或多個空行或列
(91)表單高度為當前活動視窗高度的0.88
Weekday (Date)
(227)將當前工作簿添加到收藏夾文件夾中
(4)恢復正常的毛病提示
*******************************************************
(171)以位元組為單元返回Excel許可利用的記憶體數(不包括已經利用的記憶體)
(124)主動調整當前工作表A列列寬
Set d = CreateObject(Scripting.Dictionary)
(135)添加用戶表單MyForm並顯示
設置字體為斜體
Application.RecentFiles.Maximum = 5
ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase)
TextColor = Range("A1").Font.ColorIndex
ActiveSheet.Columns("E").Cut
(74)更改圖表工作表中圖表區的色彩
(107)返回當前工作簿文件花樣代碼
在表格的第一個單元中輸入文本
Application.OnUndo "Undo Option"翻譯社 "Undo Procedure"
Application.Cursor = xlWait
Application.WorksheetFunction.IsNumber ("A1")
(252)在A列中找出與單格A2內容分歧的單格並刪除
objColl.Add Cell.Value, CStr(Cell.Value)
在當前單格中輸入今天的日期數
Format(Application.WorksheetFunction.Average(Selection), "#翻譯社##0.00"), vbInformation翻譯社 "selection count average" & Chr(13)
Application.OnTime Now + TimeValue("00:00:15"), "myProcedure"
(105)返回當前工作簿中的第一條鏈結
埋沒工作表，不能經由過程在Excel功能表當選擇"花樣--工作表--打消潛藏"來重新顯示工作表
ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText
圖表
ActiveSheet.UsedRange.Row
ActiveChart.PlotArea.Interior.ColorIndex = xlNone
(51)返回Data1和Data2區域的交叉區域
(30)將頁面設置更改為橫向
(5)在程式執行過程當中使呈現的正告框不顯示
(180)將一個含有10個元素的陣列轉置成垂直方向的工作表單格區域(A1至A10)
(204)設置工作簿手動計算
Range(A1:A10).value="/Application.WorksheetFunction.Transpose(MyArray)"
ActiveCell.Value = Second(Time)
On Error GoTo ErrorHandler
UserForm1.Hide
Selection.ShapeRange.ThreeD.Visible = msoFalse
Cell.Range("A1").Formula
Err.Number
聲明新的鸠合變數
(12)獲取流動工作薄中工作表數
(103)返回前次列印或預覽工作簿的日期和時候
向上偏移一行
(243)自界說當前工作表中單格A1至A8中的內容為自動填充序列
公式與函數
ThisWorkbook.Close
*******************************************************
(55)獲得單格區域中使用的第一行的行號
(283)在當前工作表中畫一個左上角在(70,40),寬為130高為72的三角形並選中
ActiveWorkbook.AddToFavorites
*******************************************************
(251)搜檢自動挑選是不是開啟，若開啟則該語句返回True
不錯的 VBA教授教養網站
(208)打開比來打開的文檔中的第4個文檔定制模組行為
(47)指定單格F5
(273)獲取今天的禮拜數
刪除當前工作表中的第2列
UserForm1.Show
ActiveSheet.PageSetup.LeftFooter = Application.UserName
ActiveWorkbook.FileFormat
或
(78)將畫圖區色彩變為白色
Names.Add Name:="MyArray"翻譯社 RefersTo:=ArrayNum
(48)建立B3：D13區域
(121)當前工作簿中的第一個工作表被啟動
(236)
ActiveCell.Value = Shell("C:WindowsSystem32Calc.exe", vbNormalFocus)
Header:=xlYes
(270)將單格A1的數值填充到單格A1至A10區域中
(284)在當前工作表中畫一個以點(70,40)為出發點,寬130高72的矩形並選中
(2)忽略錯誤繼續履行VBA代碼翻譯社避免出現錯誤消息
(128)獲取A列的下一個空單格
ThisWorkbook.ActiveSheet.Columns.ColumnWidth = 20
Range("A1:D4").Clear
Sheets("Chart2").ChartArea.Interior.ColorIndex = 2
Set ExcelSheet = CreateObject("Excel.Sheet")
Err.Clear
ActiveCell.Value = Day(Date)
ActiveCell.NumberFormatLocal = "0.000; [紅色] 0.000"
(179)選擇UndoOption後，將執行Undo Procedure過程
ThisWorkbook.FollowHyperlink "http://"
Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True
ActiveSheet.Range("A1:D10").ClearFormats
(122)設置工作表Sheet1中的行1資料為粗體
(44)返回當前工作表的單格數
Names.Add Name:="Total", RefersTo:=123456
表單
(109)返回當前工作簿的讀/寫值(為False)
單格/單格區域
ActiveChart.ApplyCustomType xl3DArea
初始化RefEdit節制項顯示當前所選單格區域
註：沒法一次顯示帶選項卡的"單元格花式"對話方塊，只能一次顯示一個選項卡。
ActiveCell.Value = UCase(ActiveCell.Value)
rng.Address
Date = #6/6/2006#
Set MyRange = Range("A1:A5")
ActiveSheet.Range("C2:E6").AutoFormat Format:=xlRangeAutoFormatColor3
Application.WindowState = xlMaximized
TextBox1.Text = SpinButton1.Value
或
選中當前圖表區域
(57)在活動工作表中返回所有合適前提花式設置的區域
ThisWorkbook.ActiveSheet.Columns.ColumnWidth = _
(289)將當前選中的形狀水準翻轉
更新狀況欄文本，以變數Percent代表完成的百分比
Cells.SpecialCells (xlCellTypeLastCell)
ActiveSheet.Columns("A").ColumnDifferences(Comparison:=ActiveSheet. _
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
(215)返回毛病代碼
Application.TemplatesPath
(191)返回包括在rng區域中左上角單格中的公式。
Workbooks("book1.xls").Activate
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
或
Application.MoveAfterReturnDirection = xlToRight
ThisWorkbook.Sheets.Add Before:=Worksheets(1)
*******************************************************
將工作表sheet1中A列的SIN替代為COS
Declare Function GetWindowsDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
刪除當前工作簿中所有的圖表工作表
Range("A1").ClearContents
Application.RollZoom = Not Application.RollZoom
Range("A1").Offset(ColumnOffset:=1)
(137)將數值調理鈕節制項的值改為0
SpinButton1.Value = "/Val(TextBox1.Text)"
(195)設置單格區域A2至A10中數值格局
將當前選中的外形垂直翻轉
Range("A1:B2")(2, 3)
Application.StatusBar = "請期待……"
對像
替換查找到的格式
PlotBy:=xlColumns
Export Filename:="C：MyChart.gif", FilterName:="GIF"
(79)將圖表1導出到C盤上並定名為MyChart.gif
啟用所有事件
(287)將當前工作表中第2個外形的前風景設置為紅色
Range("A1:B2").Item(2翻譯社 3)
或
Range("D5:D10").Cells(1,1)
(244)將單格A1至B2的內容複製成螢幕快照
(214)讓電腦發作聲音
ActiveCell.Offset(1翻譯社 0).Select
(176)查找的花式種類
(153)顯示"定位"對話方塊，但定位前提按鈕無效
(32)選擇當前流動單格所包括的局限，上下擺佈無空行
(83)在訊息方塊中強迫換行，可用vbCrLf取代vbNewLine。
Names.Add Name:="ProduceNum", RefersTo:="=＄B＄1", Visible:=False
(248)打開主動挑選。若再運行一次，則關閉主動篩選
(228)在當前工作表中履行"拼寫檢查"
(164)返回當前印表機的名稱
(143)等待15秒後運行myProcedure進程
Sheets(Sheet1).Name = "Sum"
(56)獲取單格區域Rng左上角單格地點列編號
設置字體類型
Selection.Hyperlinks.Delete
(253)刪除單格A6中的批註，包括聲音批註和文字批註
(70)獲取當前工作表中圖表的個數
ActiveSheet.ChartObjects("Chart1").Activate
Rnage("B3").Resize(11,3)
Worksheets("Sheet1").Columns("A").Replace _
(240)關閉當前窗口
ActiveSheet.Cells(1翻譯社 1).Interior.ColorIndex = 3
顯示"單元格花樣"中的"邊框"選項卡
(53)當前選中的單格區域中的列數
*******************************************************
*******************************************************
將一個名為Product陣列的值添加到ListBox1中
Application.MemoryUsed
(264)刪除字串前面的空白字元
返回該單格地點行非空單格的數目
(288)將當前工作表中的第1個形狀扭轉20度
(106)返回工作簿代碼的名稱
ExcelSheet.Application.Quit
(99)退出剪切/複製模式
(113)計算當前工作表
ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255)
*******************************************************
工作簿
(120)改變工作表的行高為10
(274)在當前單格中輸入本年的年份數
rng.Name.Name
(213)主動將在工作表中進行輸入的"葛洲壩"更正為"三峽"
ActiveCell.CurrentRegion.Select
(200)API函數聲明。
(102)返回前次保存工作簿的日期和時候
(275)在當前單格中顯示月份的名稱翻譯社本句為顯示"一月"
(123)將工作表Sheet1中的行1潛藏
ActiveSheet.Cells(1, 1).Font.Size = 24
Application.ReplaceFormat
Application.UsableHeight
(101)清除程式運行過程中所有的毛病
ActiveSheet.Range("A6").ClearNotes
ThisWorkbook.ActiveSheet.StandardWidth
ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, "三峽", _
Range("A1:B1").HorizontalAlignment = xlLeft
Worksheets("Sheet1").ChartObjects(1).Chart. _
Application.AutoCorrect.AddReplacement "葛洲壩", "三峽"
Range("A1:D8").Cut Range("F1")
(267)將活動單格中的字串轉換成小寫
(129)返回該單格地點列非空單格的數目
ActiveCell.CurrentArray.Select
ExcelSheet.Application.Visible = True
Application.Transpose (Array("Sun", "Mon", "Tur", "Wed", "Thu"翻譯社 "Fri", "Sat"))
刪除指定規模所有的鏈結
顯示被埋沒的工作表
(183)會見當前單格地點的工作簿
公式與函數
WorksheetFunction.CountA (Cell.EntireRow)
(265)獲取舉止單格中字串的個數
Dim xlApp As Excel.Application
UserForm1.Show 0
(140)在列表框中添加Command1
Config = vbYesNo + vbQuestion + vbDefaultButton2
Windows API
(104)封閉所有打開的工作簿
ActiveCell.Value = Year(Date)
Replacement:=" ", SearchFormat:=True, ReplaceFormat:=True
將區域computer重定名為robot
(261)選定包含舉動單格的全部陣列單格區域.假定該單格在資料單格區域中
(157)履行"定位"話框，相當於選擇功能表"編纂--定位"饬令
ActiveWindow.RangeSelection.Count
(281)在當前工作表中建立一個名為"三峽"的藝術字並對其進行格局設置和選中
ActiveSheet.Shapes(1).Rotation = 20
ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2)
(233)禁用顯示在Excel的"列印預覽"視窗中的"設置"和"頁邊距"按鈕
Range("B3").Resize(RowSize:=11,ColumnSize:=3)
(230)在當前工作表的左側頁眉處列印出工作簿的完全路徑和檔案名
(258)設置字體加粗
(158)返回一個垂直的陣列
Cells(8, 8).FormulaArray = "=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)"
Application.OrganizationName
(277)刪除當前工作表中的第一個外形
(257)援用單格C2的數據
(280)將當前工作表中第一個藝術字的字體設置為斜體
RefEdit1.Text
(298)在當前工作表中豎立一個水準文本框並輸入內容
Application.Volatile False
(126)將自界說的SumPro函數指定給Excel中的"統計函數"類別
Application.Volatile True
(90)將表單設置為無模式狀態
或
On Error Resume Next
(150)返回調用函數的工作簿名稱
ActiveSheet.Columns("B").Insert
ExcelSheet.SaveAs "C:TEST.XLS"
(35)排除工作表中所有單格的內容
(292)將當前工作表中第1個立體形狀的進深部份的色彩設為藍色
(223)設置按Enter鍵後單格的移動方向向右
Set objExcel = CreateObject("Excel.Application")
Workbooks.Close
ActiveCell.Value = LTrim(ActiveCell.Value)
(15)禁止調整運動工作簿的巨細
ActiveSheet.Shapes(1).TextEffect.FontItalic = True
事務
Unload UserForm1
將當前工作表視窗轉動到第13列
Application.Cursor = xlDefault
ThisWorkbook.ActiveSheet.Columns(1).ColumnWidth = 20
Worksheets(1).EnableCalculation = False
ActiveSheet.Shapes.AddShape(Type:=msoShapeOval翻譯社 _
ActiveCell.Value = DateAdd("yyyy"翻譯社 2, Date)
ThisWorkbook.ActiveSheet.Rows.RowHeight = _
ThisWorkbook.ReadOnly
ActiveSheet.PageSetup.Orientation = 2
Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
Unload Me
Columns(1).Hyperlinks.Delete
ActiveWorkbook.CodeName
Application.Enable.CancelKey = xlDisabled
(249)開啟/封閉所選區域的主動挑選
表單寬度為當前活動視窗高度的0.88
Cell.EntireColumn
(297)在工作簿中新建一個文本框並輸入內容
(263)判斷舉止單格中是不是有值
改變工作表的行1的高度值設置為10
Range對像
Range("Data").Columns.Count
舉動單格地點的列數
ActiveWorkbook.Charts.Delete
Worksheets(Array("sheet1"翻譯社 "sheet2")).Select
ActiveSheet.Cells.Replace What:=" "翻譯社 _
(260)選中當前工作表中的最後一個單格
(238)在當前單格左側插入一條垂直分頁符
(22)將當前工作表移至工作表的最後
ChartArea.Interior.ColorIndex = 2
(202)開啟Word利用程式
或
(239)將當前工作表視窗滾動到第14行
將用戶名放置在舉動工作表的頁腳
Range("Data").Resize(,2)
Application.Selection.Address
(94)聲明並建立一個Excel物件援用
Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1
ActiveSheet.ChartObjects("Chart1").Select
Application.Dialogs(xlDialogFormulaGoto).Show Range("b2")翻譯社 True
(198)建立一個名為MyRange的物件變數
*******************************************************
(82)使用常量的組合，賦值組Config變數，並設置第二個按鈕為缺省按鈕
(226)將當前工作簿設置為唯讀
Dim xlBook As Excel.Workbook
(24)刪除工作表1
*******************************************************
(205)舛誤第一張工作表主動進行重算
Range("A1").Copy Range("B1")
CStr(SpinButton1.Value)=TextBox1.Text
註：一樣可用於列。
*******************************************************
Range("A1:Z30").Hyperlinks.Delete
(80)訊息方塊中顯示消息Hello
在當前單格中顯示如今時候的秒數
在當前單格上方插入一條垂直分頁符
(97)為物件變數添加關鍵字和條目
(42)返回單格中超貫穿連接的地址並賦值
Set FirstCell = Range(RefEdit1.Text).Range("A1")
ActiveSheet.Range("A:A").EntireColumn.AutoFit
返回值不為"是"，則退出
(139)顯示表單UserForm1上的控制項數目
(166)返回勾當窗口的標題
(187)查抄單格或單格區域中的第一個單格是不是含有公式
消除對工作表Sheet1中A1:G37區域單格的鎖定翻譯社以便當該工作表受保護時也可對這些單格進行點竄
MsgBox WeekdayName(Weekday(Date))
*******************************************************
顯示"單元格花式"中的"圖案"選項卡
本文出自: http://blog.xuite.net/x_3kkk/java/13408982有關各國語文翻譯公證的問題歡迎諮詢鉦昱翻譯公司02-23690937
留言列表
