Hàm VBA theo ABC

Các hàm trong Víual Basic 6.0 TOP Các hàm sắp xếp theo ABC A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Tên hàm: Abs Mơ tả: Abs (number) Lấy trị tuyệt đối của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = Abs(50.3)' Returns 50.3. MyNumber = Abs(-50.3)' Returns 50.3. End Sub Return Top . Tên hàm: AppActivate Mơ tả: AppActivate title [, wait] Gọi một cửa sổ đang chạy activate (Nếu cửa sổ đó chưa được mở sẽ xảy ra lỗi) Tham số: title Tiêu đề của cửa sổ đó wait Thời gian chờ Ví dụ: Option Explicit Private Sub Form_Load() Dim MyAppID, ReturnValue AppActivate "Microsoft Word"' Activate Microsoft ' Ham AppActivate co the su dung gia tri do hm shell tra ve MyAppID = Shell("C:\WORD\WINWORD.EXE", 1)' Run Microsoft Word. AppActivate MyAppID' Activate Microsoft ' Word. ReturnValue = Shell("c:\EXCEL\EXCEL.EXE", 1)' Run Microsoft Excel. AppActivate ReturnValue' Activate Microsoft ' Excel. End Sub Tham khảo thêm: SendKeys Shell . Return Top Tên hàm: Array Mơ tả: Array(arglist) Gán các giá trị trong arglist vào một mảng. Tham số: arglist : chứa giá trị của cần tạo mảng, các giá trị cách nhau bằng dấu phẩy (,). Giá trị đầu sẽ được gán cho chỉ số index đầu, giá trị thứ 2 gán cho chỉ số index 2 . Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 1 Các hàm trong Víual Basic 6.0 Ví dụ: Dim MyWeek, MyDay MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") ' Return values assume lower bound set to 1 (using Option Base ' statement). MyDay = MyWeek(2)' MyDay contains "Tue". MyDay = MyWeek(4)' MyDay contains "Thu". . Return Top . Tên hàm: Asc Mơ tả: Asc (string) Chuyển ký tự thành mã Ascii Tham số: string Chuỗi cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = Asc("A")' Returns 65. MyNumber = Asc("a")' Returns 97. MyNumber = Asc("Apple")' Returns 65. End Sub Tham khảo thêm: Chr Return Top . Tên hàm: AscW Mơ tả: AscW (string) Chuyển ký tự thành mã Ascii (hỗ trợ Unicode) Tham số: string Chuỗi cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyNumber MyNumber = AscW("A")' Returns 65. MyNumber = AscW("a")' Returns 97. MyNumber = AscW("Apple")' Returns 65. End Sub Tham khảo thêm: ChrW Return Top . Tên hàm: Atn Mơ tả: Atn (number) Lấy Arctang của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim Pi Pi = 4 * Atn(1)' Tinh gia tri cua hang so Pi End Sub Tham khảo thêm: Cos Sin Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 2 Các hàm trong Víual Basic 6.0 Sqr Tan Return Top . Tên hàm: Beep Mơ tả: Beep Phát ra tiếng Beep từ loa của hệ thống Ví dụ: Option Explicit Private Sub Form_Load() Dim I 'Phat ra ba tieng beep lien tuc For I = 1 To 3 Beep Next I End Sub Return Top . Tên hàm: Call Mơ tả: [Call] name [argumentlist] Thực thi 1 sub, function hay 1 DLL procedure. Từ khóa Call thì tùy chọn, nhưng nếu nó được sử dụng thì bạn phải đặt argumentlist trong dấu đóng mở ngoặc () và nên có truyền đối số. Tham số: name : tên thủ tục cần gọi. argumentlist : danh sách các đối số truyền vào (tùy chọn). Ví dụ: ' Call a Sub procedure. Call PrintToDebugWindow("Hello World") ' The above statement causes control to be passed to the following ' Sub procedure. Sub PrintToDebugWindow(AnyString) Debug.Print AnyString' Print to the Immediate window. End Sub ' Call an intrinsic function. The return value of the function is ' discarded. Call Shell(AppName, 1)' AppName contains the path of the ' executable file. ' Call a Microsoft Windows DLL procedure. The Declare statement must be ' Private in a Class Module, but not in a standard Module. Private Declare Sub MessageBeep Lib "User" (ByVal N As Integer) Sub CallMyDll() Call MessageBeep(0)' Call Windows DLL procedure. MessageBeep 0' Call again without Call keyword. End Sub Return Top . Tên hàm: CallByName Mơ tả: CallByName (object, procname, calltype[, args()]) Điều khiển một đối tượng thơng qua các thuộc tính của nó Tham số: object Tên đối tượng procname Tên thuộc tính calltype Phương thức giao tiếp args() Giá trị mảng Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 3 Các hàm trong Víual Basic 6.0 Ví dụ: Option Explicit Private Sub Form_Load() Dim Result ' Gan thuoc tinh MousePointer cua Text1 = vbCrosshair CallByName Text1, "MousePointer", VbLet, vbCrosshair 'Lay thuoc tinh MousePointer hien tai cua Text1 Result = CallByName(Text1, "MousePointer", VbGet) 'Di chuyen Text1 den vi tri 100, 100 CallByName Text1, "Move", VbMethod, 100, 100 End Sub Return Top . Tên hàm: CBool Mơ tả: Cbool (expression) Chuyển đổi biểu thức expression sang kiểu Boolean Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim A, B Dim Check As Boolean A = 5: B = 5'Khoi tao bien Check = CBool(A = B)' Returns True A = 0' Define variable. Check = CBool(A)' Returns False End Sub Return Top . Tên hàm: CByte Mơ tả: Cbyte (expression) Chuyển đổi biểu thức expression sang kiểu Byte Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyByte MyDouble = 125.5678' khoi tao MyByte = CByte(MyDouble)' MyByte = 126. End Sub Return Top . Tên hàm: CCur Mơ tả: Ccur (expression) Chuyển đổi biểu thức expression sang kiểu Currency Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyCurr MyDouble = 543.214588' Khoi tao MyCurr = CCur(MyDouble * 2)' Chuyen doi MyDouble * 2 ' Returns (1086.429176) to a ' Returns Currency (1086.4292). Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 4 Các hàm trong Víual Basic 6.0 End Sub Return Top . Tên hàm: CDate Mơ tả: Cdate (expression) Chuyển đổi biểu thức expression sang kiểu Date Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDate, MyShortDate, MyTime, MyShortTime MyDate = "August 10, 2003"' Khoi tao MyShortDate = CDate(MyDate)'Returns 8/10/1003 MyTime = "4:35:47 PM"' Khoi tao MyShortTime = CDate(MyTime)'Returns 4:35:47 PM End Sub Return Top . Tên hàm: CDbl Mơ tả: CDbl (expression) Chuyển đổi biểu thức expression sang kiểu Double Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyCurr, MyDouble MyCurr = CCur(234.456784) MyDouble = CDbl(MyCurr * 8.2 * 0.01) End Sub Return Top . Tên hàm: CDec Mơ tả: Cdec (expression) Chuyển đổi biểu thức expression sang kiểu Decimal Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDecimal, MyCurr MyCurr = 10000000.0587 MyDecimal = CDec(MyCurr)' Returns 10000000.0587 End Sub Return Top . Tên hàm: ChDir Mơ tả: ChDir Path Thay đổi đường dẫn của các thư mục hiện hành Tham số: Path Đường dẫn muốn đến Ví dụ: Option Explicit Private Sub Form_Load() ChDir "D:\MyPicture" Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 5 Các hàm trong Víual Basic 6.0 End Sub Tham khảo thêm: ChDrive CurDir Dir Return Top . Tên hàm: ChDrive Mơ tả: ChDirve Drive Thay đổi ổ đĩa hiện hành Tham số: Drive ổ đĩa muốn đến Ví dụ: Option Explicit Private Sub Form_Load() ChDrive "D:\" End Sub Tham khảo thêm: ChDir CurDir Dir Return Top . Tên hàm: Choose Mơ tả: Choose(index, choice-1[, choice-2, . [, choice-n]]) Chọn một giá trị trong dãy giá trị cho trước ham số: index Vi trí giá trị muốn chọn choice-1[, choice-2, . [, choice-n]] Dãy giá trị ban đầu Ví dụ: Option Explicit Private Sub Form_Load() Dim Result Result = Choose(1, "Speedy", "United", "Federal")'Returns Speedy Result = Choose(3, "Speedy", "United", "Federal")'Returns Federal End Sub Tham khảo thêm: IIf Switch Return Top . Tên hàm: Chr Mơ tả: Chr(charcode) Chuyển mã Ascii thành ký tự Tham số: charcode Mã cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyChar MyChar = Chr(65)' Returns A. MyChar = Chr(97)' Returns a. MyChar = Chr(62)' Returns >. MyChar = Chr(37)' Returns %. End Sub Tham khảo thêm: Asc Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 6 Các hàm trong Víual Basic 6.0 Return Top . Tên hàm: ChrW Mơ tả: ChrW(charcode) Chuyển mã Ascii thành ký tự (Hỗ trợ Unicode) Tham số: charcode Mã cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyChar MyChar = ChrW(65)' Returns A. MyChar = ChrW(97)' Returns a. MyChar = ChrW(62)' Returns >. MyChar = ChrW(37)' Returns %. End Sub Tham khảo thêm: AscW Return Top . Tên hàm: CInt Mơ tả: Cint (expression) Chuyển đổi biểu thức expression sang kiểu Integer Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyInt MyDouble = 2345.5678' Khoi tao MyInt = CInt(MyDouble)' Returns 2346. End Sub Return Top . Tên hàm: CLng Mơ tả: CLng (expression) Chuyển đổi biểu thức expression sang kiểu Long Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyVal1, MyVal2, MyLong1, MyLong2 MyVal1 = 25427.45: MyVal2 = 25427.55' Khoi tao MyLong1 = CLng(MyVal1)'Returns 25427. MyLong2 = CLng(MyVal2)'Returns 25428. End Sub Return Top . Tên hàm: Close Mơ tả: Close (#Filenum)' Đóng tập tin đã được mở bằng lệnh Open. Tham số: #Filenum : chỉ số của tập tin. Ví dụ: Option Explicit Type Record ID As Integer Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 7 Các hàm trong Víual Basic 6.0 Name As String * 20 End Type Private Sub Form_Load() Dim MyRecord As Record Open "TESTFILE" For Random As #1 Len = Len(MyRecord)' Mo file Do While Not EOF(1)' Lap cho den khi ket thuc file Get #1, , MyRecord' Doc mau tin Debug.Print Seek(1)' In so mau tin 'Seek #1, 3 'Trỏ tới vị trí mẫu tin thứ 3 Loop Close #1' Dong file. End Sub Tham khảo thêm: Open Return Top . Tên hàm: Command Mơ tả: Command Lấy đối số truyền từ dòng lệnh Ghi chú: Ví dụ nếu bạn có ứng dụng tên MyApp thì khi bạn chạy: MyApp.exe caulacbovb ---> đối số bạn nhận được là: caulacbovb Ví dụ: Function GetCommandLine(Optional MaxArgs) 'Declare variables. Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs 'See if MaxArgs was provided. If IsMissing(MaxArgs) Then MaxArgs = 10 'Make array of the correct size. ReDim ArgArray(MaxArgs) NumArgs = 0: InArg = False 'Get command line arguments. CmdLine = Command() CmdLnLen = Len(CmdLine) 'Go thru command line one character 'at a time. For I = 1 To CmdLnLen C = Mid(CmdLine, I, 1) 'Test for space or tab. If (C <> " " And C <> vbTab) Then 'Neither space nor tab. 'Test if already in argument. If Not InArg Then 'New argument begins. 'Test for too many arguments. If NumArgs = MaxArgs Then Exit For NumArgs = NumArgs + 1 InArg = True End If 'Concatenate character to current argument. ArgArray(NumArgs) = ArgArray(NumArgs) & C Else 'Found a space or tab. 'Set InArg flag to False. InArg = False End If Next I 'Resize array just enough to hold arguments. ReDim Preserve ArgArray(NumArgs) 'Return Array in Function name. GetCommandLine = ArgArray() Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 8 Các hàm trong Víual Basic 6.0 End Function Return Top . Tên hàm: Const Mơ tả: [Public | Private] Const constname [As type] = expression Khai báo 1 hằng số. Từ khóa [Public | Private] tùy chọn dùng để định nghĩa phạm vi sử dụng của hằng số Tham số: constname : tên hằng số. [As type] : kiểu dữ liệu (tùy chọn). Nếu khơng khai báo sẽ lấy kiểu dữ liệu phù hợp với giá trị hiện có. expression : giá trị miêu tả. Ví dụ: ' Constants are Private by default. Const MyVar = 459 Const Pi = 3.14 ' Declare Public constant. Public Const MyString = "HELP" ' Declare Private Integer constant. Private Const MyInt As Integer = 5 ' Declare multiple constants on same line. Const MyStr = "Hello", MyDouble As Double = 3.4567 Return Top . Tên hàm: Cos Mơ tả: Cos (number) Lấy Cos của số Number Tham số: Number Số cần tính Ví dụ: Option Explicit Private Sub Form_Load() Dim MyAngle, MySecant MyAngle = 1.3' Khoi tao MySecant = 1 / Cos(MyAngle)' Tinh secant End Sub Tham khảo thêm: Atn Sin Sqr Tan Return Top . Tên hàm: CSng Mơ tả: CSng (expression) Chuyển đổi biểu thức expression sang kiểu Single Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble1, MyDouble2, MySingle1, MySingle2 MyDouble1 = 75.3421115: MyDouble2 = 75.3421555' khoi tao MySingle1 = CSng(MyDouble1)' Returns 75.34211. MySingle2 = CSng(MyDouble2)' Returns 75.34216. End Sub Return Top . Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 9 Các hàm trong Víual Basic 6.0 Tên hàm: CStr Mơ tả: CStr (expression) Chuyển đổi biểu thức expression sang kiểu String Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyDouble, MyString MyDouble = 437.324' Khoi tao MyString = CStr(MyDouble)' Returns "437.324". End Sub Return Top . Tên hàm: CurDir Mơ tả: CurDir ([Drive]) Xem đường dẫn hiện tại trên một ổ đĩa Tham số: Drive ổ đĩa muốn xem Ví dụ: Option Explicit Private Sub Form_Load() Dim MyPath ' Gia su duong dan hien tai tren o C la "C:\WINDOWS\SYSTEM" . ' Gia su duong dan hien tai tren o D la "D:\EXCEL". ' Gia su o dia hien hanh la o C MyPath = CurDir' Returns "C:\WINDOWS\SYSTEM". MyPath = CurDir("C")' Returns "C:\WINDOWS\SYSTEM". MyPath = CurDir("D")' Returns "D:\EXCEL". End Sub Tham khảo thêm: ChDir ChDrive Dir Return Top . Tên hàm: CVar Mơ tả: Cvar (expression) Chuyển đổi biểu thức expression sang kiểu Variant Tham số: expression Biểu thức cần chuyển đổi Ví dụ: Option Explicit Private Sub Form_Load() Dim MyInt, MyVar MyInt = 4534' MyInt is an Integer. MyVar = CVar(MyInt & "000")' MyVar contains the string 4534000. End Sub Return Top . Tên hàm: CVErr Mơ tả: CVErr(errornumber) Trả về con số kiểu lỗi định nghĩa bởi người dùng. Tham số: errornumber : số lỗi. Ví dụ: Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 10 [...]... String2 : là hai chuỗi ký tự cần so sánh Ghi chú: Hàm Like mặc định cũng là hàm nhạy ký tự, theo thiết lập Option Compare ở form hoặc module Ví dụ: "abcd" Like "*bcd" = True "abcd" Like "a?cd" = True "a1cd" Like "a#cd" = True Return Top Tên hàm: Line Input Mơ tả: Line Input #filenumber, varname Đọc dữ liệu theo từng hàng Tham số: #filenumber Tên file (dạng số #n) varname Biến chứa thơng tin Ghi... Các hàm trong Víual Basic 6.0 MyLen = Len(MyString)' Returns 11 MyLen = Len(MyCur)' Returns 8 End Sub Tham khảo thêm: Left Mid Right Return Top Tên hàm: Like Mơ tả: "String1" Like "String2" So sánh 2 chuỗi cho phép sử dụng biệt ngữ (như dùng ký tự đại diện trong Dos) trị trả về = True nếu tương hợp Tham số: String1, String2 : là hai chuỗi ký tự cần so sánh Ghi chú: Hàm Like mặc định cũng là hàm. .. 27 Các hàm trong Víual Basic 6.0 So sánh dữ liệu Ví dụ: Option Explicit Private Sub Form_Load() Dim SearchString, SearchChar, MyPos SearchString = "XXpXXpXXPXXP"' String to search in SearchChar = "P"' Search for "P" ' So sanh theo cua text tu vi tri 4 MyPos = InStr(4, SearchString, SearchChar, 1)' Returns 6 ' So sanh theo Binary MyPos = InStr(1, SearchString, SearchChar, 0)' Returns 9 ' So sanh theo. .. Return Top Tên hàm: Format Mơ tả: Format (expression [, format [, firstdayofweek [, firstweekofyear]]]) Chuyển biểu thức expression theo định dạng mong muốn Tham số: expression Biểu thức cần định dạng format Kiểu định dạng firstdayofweek Ngày đầu tiên trong tuần firstweekofyear Tuần đầu tiên trong năm Ghi chú: Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 20 Các hàm trong Víual Basic 6.0... gio hien tai theo format Long Time MyStr = Format(Time, "Long Time") ' Tra ve ngay hien tai theo format Long Date MyStr = Format(Date, "Long Date") MyStr = Format(MyTime, "h:m:s")' Returns "17:4:23" MyStr = Format(MyTime, "hh:mm:ss AMPM")' Returns "05:04:23 PM" MyStr = Format(MyDate, "dddd, mmm d yyyy")' Returns "Sunday, Aug 10 2003" MyStr = Format(23)' Returns "23" ' Mot so dinh dang theo nguoi dung... Return Top Tên hàm: FormatCurrency Mơ tả: FormatCurrency (Expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]) Chuyển biểu thức expression theo định dạng Currency Tham số: Expression Biểu thức cần định dạng NumDigitsAfterDecimal Số số lẻ sau dấu phẩy IncludeLeadingDigit Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 21 Các hàm trong Víual Basic... Return Top Tên hàm: FormatNumber Mơ tả: FormatNumber (Expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]) Chuyển biểu thức expression theo định dạng Number Tham số: Expression Biểu thức cần định dạng NumDigitsAfterDecimal Số số lẻ sau dấu phẩy IncludeLeadingDigit Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 22 Các hàm trong Víual Basic... #FileNumber, "This is a sample."' Ghi vào file Close #FileNumber' Dong file Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 23 Các hàm trong Víual Basic 6.0 Next MyIndex End Sub Return Top Tên hàm: Get Mơ tả: Get [#Filenum, position, ByteArray] Lấy thơng tin từ tập tin được mở theo Binary tại vị trí xác định bởi Position và lưu vào ByteArray Số byte lấy ra tùy thuộc vào kích thước của mảng ByteArray... Tên hàm: Hex Mơ tả: Hex(number) Chuyển số Number sang dạng hexadecimal (hệ thập lục phân) Tham số: Number Số cần chuyển Ví dụ: Option Explicit Private Sub Form_Load() Dim MyHex MyHex = Hex(5)' Returns 5 MyHex = Hex(10)' Returns A MyHex = Hex(459)' Returns 1CB End Sub Sưu tầm: Đặng Quốc Thư – Yên Đồng Ý Yên Nam Đònh 25 Các hàm trong Víual Basic 6.0 Tham khảo thêm: Oct Return Top Tên hàm: Hour... Return Top Tên hàm: Date Mơ tả: Hàm: Date Trả về ngày hiện tại của hệ thống Lệnh: Date = date Đặt lại ngày hiện tại cho hệ thống Ví dụ: 'Lấy ngày hiện tại của hệ thống: Dim MyDate MyDate = Date' MyDate contains the current system date 'Đặt lại ngày hiện tại cho hệ thống: Dim MyDate MyDate = #February 12, 1985#' Assign a date Date = MyDate' Change system date Return Top Tên hàm: DateAdd Mơ . Các hàm trong Víual Basic 6.0 TOP Các hàm sắp xếp theo ABC A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Tên hàm: Abs Mơ tả: Abs. Nam Đònh 2 Các hàm trong Víual Basic 6.0 Sqr Tan Return Top . Tên hàm: Beep Mơ tả: