vba基础打卡5
1、?Range 屬性? Range("A5").Select ?Range("A6:A10").Select?Range("A1, B6, C8").Select ?Range("A11:D11, C12, D3").Select
2、?Cells 屬性?當你要選擇一個確定的單元格時,Cells屬性要求兩個自變量,第一個是行號,第二個是列號或者列字母。
Cells(5, 1).Select或Cells(5, A).Select ?Range(Cells(6, 1), Cells(10, 1)).Select?Cells.Select(選擇工作表中所有單元格)
Excel按 下列方式給單元格編號:單元格A1是工作表中的第一個單元格,B1是第二個,C1是第三個,等等。Cell256是第一行中的最后 一個單元格。你也許會想起Excel只有256列。?
選擇單元格A1 ? ? Cells(1).Select or Cells.Item(1).Select ? ? IV1Cells(256) ??A2Cells(257)
Item是返回一個集合成員的屬性。因為Item是一個集合的默認成員,你可以直接引用工作表單元格,而不必明確地使用 Item屬性。?
當需要將單元 格當做集合操作的時候,Cells屬性則使用更方便。使用這個屬性去訪問單元格集合中的所有單元格或者單個單元格。?
3、?Offset 屬性? Selection.Offset(2, 2).Resize(2, 4).Select? Resize屬性決定新選區的大小
4、選擇任何行的最后一個單元格 ActiveCell.End(xlright).Select ?? 列 xldown; xleft 行第一個; xlup列第一個
5、選擇行和列
選擇當前活動單元格所在行的整行 Selection.EntireRow.Select
選擇當前活動單元格所在列的整列 Selection.EntireColumn.Select
Range("A1:D15").Select ?? 輸入下列語句來得到選區的行數 ?Selection.Rows.Count 列同
6、計算Excel工作表里總單元格數 ?Cells.Count
? ?? 計算Excel工作表里總行數 ?Rows.Count
7、往工作表輸入數據
Value屬性: ActiveSheet.Range("A1:C4").Value = "=4 * 25"
Formula屬性: ActiveSheet.Range("A1:C4").Formula = "=4 * 25"?
8、返回工作表中的信息?Range("A1").Value返回值??Range("A1").Formula顯示公式
9、?Range("A1").NumberFormat 顯示單元格格式? 設置單元格格式? Range("A1").NumberFormat = "$#,##0.00"
在中斷模式下,在窗口中輸入?i,回車,就會輸出目前i的值(當前過程中)
10、移動單元格A5的內容到單元格A4里面 Range("A5").Cut? Destination:=Range("A4")
復制單元格A3里的公式到區域D5:F5中 Range("A3").Copy? Destination:=Range("D5:F5")
清除單元格A4里的內容 Range("A4").Clear? Range("A4").Cut
?ClearContents-僅清除單元格或單元格區域內的數據?
ClearFormats-僅清除格式?
ClearContents-清除區域里的所有批注
11、在新窗口里顯示當前活動工作簿 ActiveWorkbook.NewWindow
在屏幕上顯示所有打開了的工作簿 Windows.Arrange
激活第二個窗口 Windows(2).Activate
獲得當前窗口的名稱 ?ActiveWindow.Caption
將當前窗口的名稱改為“My Window” ActiveWindow.Caption = "My Window"
xlArrangeStyleTiled 1 平鋪窗口(默認模式) xlArrangeStyleCascade 7 層疊窗口 xlArrangeStyleHorizontal 2 水平并排窗口 xlArrangeStyleVertical 3 垂直并排窗口
例:Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade 或Windows.Arrange ArrangeStyle:=7
12、Application.SaveWorkspace "Project" 上面的指令將屏幕設置保存在名叫“Project”的工作區里。下次你要在相同的文件和窗口排列時,只要打開“Project”文 件, Excel就會打開正確的文件和恢復你要的屏幕。?
?獲取當前應用程序名稱 ?Application.Name
將Excel應用程序標題改為“My Application” ? Application.Caption = "My Application"
獲取你正在使用的操作系統 ?Application.OperatingSystem
獲取該應用程序注冊的人名或公司名 ?Application.OrganizationName
獲取Excel.exe保存的文件夾路徑 ?Application.Path
13、FullName = "John Smith" ? DateOfBirth = #1/3/1967#
Dim extension As String * 3
Dim FirstName$ 等同于?和Dim FirstName As String
創建變量的時候就將其初始化了。變量假定為它們的默認值,數字型變量設置為0,布爾型變量為False,字符串變 量設置為空字符(””),日期型變量設置為1899年12月30日
14、Option Explicit。Option Explicit語句意味著在本模塊里使用的所有變量都必須經過正式聲明。
With Range("B6")
.NumberFormat = "0.00"
End With
Format(expression, format) 例?Cost = Format(slsPrice + (slsPrice * slsTax), "0.00")
VB使用Option Explicit語句自動提醒你正式地聲明你的變量,這個語句必須放在每個模塊的最上面。
選擇“工具”-“選項” -“要求變量聲明”被勾選上
15、過程級別范圍(當地, ?關鍵字Dim,可以在不同的過程里面使用同樣的變量名稱,一旦該過程結束,該變量便立即消失)
模塊級別范圍 (Dim放在模塊表里任何過程的上面(緊接著在關鍵字Option Explicit的下面
當你在模塊級別聲明變量時,除了關鍵字Dim之外,你還可以使用關鍵字Private。例如, Private slsTax As Single
私有變量僅僅在聲明該變量的模塊里的過程中可用。私有變量總是在模塊的上面Option Explicit語句之后聲明。
Option Explicit Dim slsTax As Single Sub CalcCost()'declaration of variables
Dim slsPrice As Currency
Dim Cost As Currency
Dim strMsg As String
?
slsPrice = 35
slsTax = 0.085
?
Range("A1").Formula = "The cost of calculator"
Range("A4").Formula = "Price"
Range("B4").Formula = slsPrice
Range("A5").Formula = "Sales Tax"
Range("A6").Formula = "Cost"
Range("B5").Formula = Format((slsPrice * slsTax), "0.00")
?
Cost = Format(slsPrice + (slsPrice * slsTax), "0.00")
?
With Range("B6").Formula = Cost
End With
?
strMsg = "The calculator total is " & "$" & Cost & "."
Range("A8").Formula = strMsg
End Sub Sub ExpenseRep()
Dim slsPrice As Currency
Dim Cost As Currency
slsPrice = 55.99
Cost = slsPrice + (slsPrice * slsTax)
?
MsgBox slsTax(0.085)
MsgBox Cost(60.7492) End Sub
工程級別范圍
?保持工程級別的變量為私有,可以在 Option Explicit語句下面,模塊的上面輸入Option Private Module, 例如: Option Private Module
模塊級別的變量用關鍵字Public(而不是Dim)聲明時,擁有工程級別范圍。這意味著它們可以在VBA任何模塊里使用。
16、用Static關鍵字聲明的變量是特殊的當地變量,靜態變量在過程級別聲明。靜態變量在程序已經不在它們的過程里時仍然不會丟失它們的內容。例如,當一個帶有靜態變量的VBA過程調用另外一個過程時,在 VB執行完被調用的過程語句后返回主調過程時,靜態變量仍然保留它原來的值。
17、因為InputBox函數的結果總是字符串
CSng來將字符串值轉換為單精度浮點類型的數字
18、對象變量 ?Worksheets("Sheet1").Range(Cells(1,1), Cells(10, 5).Select
Set myRange =?=Worksheets("Sheet1").Range(Cells(1,1), Cells(10, 5)) ?Dim myRange As Object ?
?IsObject(myRange)
使用對象變量的好處? n它們可以代替真實對象使用? 它們比真實對象更短更容易記住 當過程運行時,你可以改變它們的意義
明確的對象變量 ?Dim myRange As Range
當對象變量不再需要時,你可以給它賦值Nothing,這將釋放內存和系統資源: Set mySheet = Nothing ?
19、查找變量定義?下Shift+F2 或?視圖”-“定義?Ctrl+Shift+F2返回剛才位置
查明變量的類型,使用函數VarType的。
20、常量
Const Age As Integer = 25
21、查找內置常量 視圖-對象瀏覽器
總結
- 上一篇: linux截图验证码,webdriver
- 下一篇: 一文看懂人工智能芯片的产业生态及竞争格局