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