Thủ Thuật Access - Thư Viện Hàm

[Phần 3] Demo Xếp hạng (Dùng Mãng Array)

Wed, 26 Jun 2019 22:03:17 +0000

Dựa trên phần 2 phần này dùng Mãng để duyệt, làm cho việc sắp xếp số lượng lớn nhanh và nhẹ hơn

Mã PHP:
Option Compare Database
'Option Explicit
Public Mang() As Variant

Function TaoMang(TenTable As String, TenCotCanXepHang As String, Optional XepTangdan As Boolean = True)
Dim rs As Recordset
Dim sql As String
Dim a As String, s As String
On Error GoTo Loi
Dim SoPhanTu As Long
Dim Mang1() As Variant

sql = "SELECT " & TenCotCanXepHang & " FROM " & TenTable & " GROUP BY " & TenCotCanXepHang

Set rs = CurrentDb.OpenRecordset(sql)
    If rs.RecordCount > 0 Then
    SoPhanTu = rs.RecordCount
    ReDim Mang1(SoPhanTu)
    rs.MoveFirst
    i = 0
        Do Until rs.EOF
        Mang1(i) = rs.Fields(TenCotCanXepHang)
        i = i + 1
        rs.MoveNext
    Loop
    Mang() = Mang1()
        If XepTangdan = True Then
        XepMangTangDan
    Else
        XepMangGiamDan
    End If
End If
ThoatLoi:
    rs.Close
    Exit Function
Loi:
    Resume ThoatLoi
End Function

Function HamXepHang3(TenTable As String, TenCotCanXepHang As String, SoCanXephang As Long)
On Error GoTo Loi
Dim i As Variant
i = UBound(Mang())
If i <> 0 Then
    TaoMang "BangLuong", "NGAYCONG"
End If

ThoatLoi:
    HamXepHang3 = VitriPhantu(Mang, SoCanXephang)
    Exit Function
Loi:
    
    TaoMang "BangLuong", "NGAYCONG"
    Resume ThoatLoi
End Function

Private Function VitriPhantu(Mang As Variant, TenPhanTuCanTim As Variant) As Variant
Dim i As Long
For i = LBound(Mang) To UBound(Mang)
    If Mang(i) = TenPhanTuCanTim Then
        VitriPhantu = i
        Exit Function
    End If
Next i
VitriPhantu = Null
End Function

Public Sub XepMangTangDan()
  Dim arr() As Variant
  arr = Mang()
  lngMin = LBound(arr)
  lngMax = UBound(arr)
  For i = lngMin To lngMax - 1
    For j = i + 1 To lngMax
      If arr(i) > arr(j) Then
        strTemp = arr(i)
        arr(i) = arr(j)
        arr(j) = strTemp
        
      End If
    Next j
  Next i
        Mang() = arr
End Sub

Public Sub XepMangGiamDan()
  Dim arr() As Variant
  arr = Mang()
  lngMin = LBound(arr)
  lngMax = UBound(arr)
  For i = lngMin To lngMax - 1
    For j = i + 1 To lngMax
      If arr(i) < arr(j) Then
        strTemp = arr(i)
        arr(i) = arr(j)
        arr(j) = strTemp
      End If
    Next j
  Next i
  Mang() = arr
End Sub 

DemoXephangbangQuery(Phan3).zip (Kích cỡ: 40.69 KB / Tải về: 55)

[Phần 2] Demo Hàm Xếp hạng

Wed, 26 Jun 2019 18:18:17 +0000

Trưước đây tôi có 1 Hướng Dẫn Demo Code Xếp hạng trong Query giống như hàm Rank trong Excel hạn chế của nó là nó bị nhảy bậc.

Và thể theo yêu cầu của nguyenvanhongthang@gmail.com ta se viết 1 hàm ngắn gọn và dùng được trên mọi địa hình.

Trích dẫn:từ:Nguyễn Văn Hồng Thắng
tới:maidinhdan@gmail.com
ngày:21:05, 26 thg 6, 2019
Bạn có thể huớng dẫn mình xếp thứ hạng mà không bị nhảy bậc được không
ạ? Thấy cái bạn làm ở đây nó bị nhảy bậc khi có người bằng nhau mất.
Mong bạn giúp đỡ ạ!

* Để thực hiện được ta viết 1 hàm như sau

Mã PHP:
'---------------------------------------------------------------------------------------
' Procedure : HamXepHang (I)
' Author    : HENDAN_WIN10PRO
' Date      : 27/06/2019
' Purpose  : HamXepHang("BangLuong","NGAYCONG",[NGAYCONG])
'---------------------------------------------------------------------------------------
'
Function HamXepHang(TenTable As String, TenCotCanXepHang As String, SoCanXep As Integer) As Integer
Dim rs As Recordset
Dim sql As String
Dim i As Integer
On Error GoTo Loi

sql = "SELECT " & TenCotCanXepHang & " FROM " & TenTable & " GROUP BY " & TenCotCanXepHang & " ORDER BY " & TenCotCanXepHang
Set rs = CurrentDb.OpenRecordset(sql)
    If rs.RecordCount > 0 Then
    rs.MoveFirst
    i = 1
        Do Until rs.EOF
            If rs.Fields(TenCotCanXepHang) = SoCanXep Then
                HamXepHang = i
                GoTo ThoatLoi
            End If
            i = i + 1
        rs.MoveNext
        Loop
    Else
    MsgBox "Khong co nguoi nao de xep hang"
End If
ThoatLoi:
    rs.Close
    Exit Function
Loi:
    Resume ThoatLoi

End Function 

* Cú pháp gọi để sử dụng

Mã PHP:
HamXepHang("Tên table của bạn","Tên cột cần xếp hạng",[Tên đối tượng cần phân loại hạng mấy]) 

* Lưu ý, 2 tham số đầu 1 kiểu chuỗi phải đặt trong dấy nháy đôi, còn cái thứ 3 phải để trong dấy []

* Đính kèm Demo.
Thân mếm

DemoXephangbangQuery(PhanII).zip (Kích cỡ: 32.45 KB / Tải về: 65)

Hàm chuyển tiền thành chữ Unicode (một hàm duy nhất) không lỗi Font

Sat, 18 Feb 2017 11:00:43 +0000

Ngồi vọc lại mấy chương trình cổ thấy hàm đọc số excel của một cao thủ đời 80 thấy hay quá. Function này cũng xài tốt cho access. Có điều font VNI thì được còn Unicode bị lỗi font. Thử gõ lại phần tiếng Việt bằng bộ gõ Windows, không ngờ lại OK.

Mã:
Public Function VND(BaoNhieu)

Dim KetQua, SOTIEN, Nhom, Chu, Dich, S1, S2, S3 As String

Dim i, j, Vitri As Byte, S As Double

Dim HANG, Doc, Dem, l

If BaoNhieu = 0 Then

   KetQua = "Không đồng"

Else

   If Abs(BaoNhieu) >= 1E+15 Then '1E+15 tức 1.000.000.000.000.000 tức 1 triệu tỷ

       KetQua = "Số quá lớn"

   Else

       If BaoNhieu < 0 Then

           KetQua = "Âm" & Space(1)

       Else

           KetQua = Space(0)

           End If

           SOTIEN = Format(Abs(BaoNhieu), "##############0.00")

           SOTIEN = Right(Space(15) & SOTIEN, 18)

           HANG = Array("None", "trăm", "mươi", "gì đó")

           Doc = Array("Nonne", "nghìn tỷ", "tỷ", "triệu", "nghìn", "đồng", "xu")

           Dem = Array("None", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín")

           For i = 1 To 6

               Nhom = Mid(SOTIEN, i * 3 - 2, 3)

               If Nhom <> Space(3) Then

                   Select Case Nhom

                       Case "000"

                           If i = 5 Then

                               Chu = "đồng" & Space(1)

                           Else

                               Chu = Space(0)

                           End If

                       Case ",00"

                       Chu = "chẵn"

                       Case "0.00"

                       Chu = " chẵn"

                       Case Else

                           S1 = Left(Nhom, 1)

                           S2 = Mid(Nhom, 2, 1)

                           S3 = Right(Nhom, 1)

                           Chu = Space(0)

                           HANG(3) = Doc(i)

                           For j = 1 To 3

                               Dich = Space(0)

                               S = Val(Mid(Nhom, j, 1))

                               If S > 0 Then

                                   Dich = Dem(S) & Space(1) & HANG(j) & Space(1)

                               End If

                               Select Case j

                                   Case 2 And S = 1

                                       Dich = "mười" & Space(1)

                                   Case 3 And S = 0 And Nhom <> Space(2) & "0"

                                       Dich = HANG(j) & Space(1)

                               Case 3 And S = 5 And S2 <> Space(1) And S2 <> "0"

                                       Dich = "l" & Mid(Dich, 2) 'ký tự l

                                   Case 2 And S = 0 And S3 <> "0"

                                       If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And l = 4) Then

                                           Dich = "lẻ" & Space(1)

                                       End If

                                   End Select

                                   Chu = Chu & Dich

                               Next j

                           End Select

                           Vitri = InStr(1, Chu, "mươi một", 1)

                           If Vitri > 0 Then Mid(Chu, Vitri, 9) = "mươi mốt"

                           KetQua = KetQua & Chu

                       End If

                   Next i

               End If

           End If

           VND = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)

   End Function

Các bạn muốn sử dụng phải tắt bộ gõ tiếng Việt và thiết đặt Vietnamesse keyboard trước khi copy và dán vào module thì mới không bị lỗi. Sau khi dán vào module mà font chữ tiếng Việt vẫn giữ nguyên thì đã thành công.

Tính số ngày làm việc (trừ ngày nghỉ, ngày lễ)

Sun, 11 Dec 2016 04:31:29 +0000

Tôi có tham khảo một số hàm tính số ngày làm việc và thấy hàm này đáp ứng các tùy chọn tính hoặc không tính các ngày nghỉ (T7, CN) và ngày lễ (Hàm này tính luôn ngày bắt đầu).Tôi có chỉnh sửa và up lên chia sẽ với các bạn.

- Để tính các ngày nghỉ lễ, bạn phải tạo 1 table lưu cac ngày lễ. Trong demo tôi tạo table tên tblNgayLe có 2 trường [NgayLe]- Date, [DienGiai] - Text.
- Tham số “bytSoNgayLVTuan” trong hàm là số ngày làm việc trong 1 tuần. Các bạn nhập số 5 nếu 1 tuần làm 5 ngày, nghỉ T7+CN. Nhập số 6: nếu chỉ nghỉ ngày CN.
- Tham số "blnTinhNgayLe": chọn True nếu muốn trừ các ngày Lễ và False nếu không cần trừ ngày Lễ.

Code hàm fWorkingDays(). Copy vào module.

Mã PHP:
Option Compare Database
Option Explicit

Public Function fWorkingdays(ByVal datTuNgay As Date, ByVal datDenNgay As Date, ByVal bytSoNgayLVTuan As Byte, _
   Optional ByVal blnTinhNgayLe As Boolean) As Long
'-------------------------------------------------------------------------------------------------
'Muc dich: Tính so ngày làm viec giua 2 tham so  (datTuNgay) và (datDenNgay).
'Có tùy chon tru ngày nghi (Thu 7, CN) và tru các ngày Le
'bytSoNgayLVTuan : là so ngày lam viec trong 1 tuan. 5: neu nghi thu 7 + CN; 6: nêu chi nghi CN
'blnTinhNgayLe   : là 'True' neu có tru ngay Le; 'False' neu không tru ngay Le
'-------------------------------------------------------------------------------------------------

   'Const bytSoNgayLVTuan     'Khai bao so ngay lam viec trong tuan
   
   'Khai bao ten table Ngay Nghi.
   Const cstrTenTableNgayLe  As String = "tblNgayLe"
   'Khai bao ten truong (Field) luu Ngay Nghi trong table Ngay Nghi.
   Const cstrTenFieldNgayLe  As String = "NgayLe"
   Dim bytSunday             As Byte
   Dim intWeekdayTuNgay      As Integer
   Dim intWeekdayDenNgay     As Integer
   Dim lngDays               As Long
   Dim datDateTemp           As Date
   Dim strDateFrom           As String
   Dim strDateTo             As String
   Dim lngNgayLe             As Long
   Dim strFilter             As String
 
   'Dao nguoc TuNgay, DenNgay neu nhap lieu nguoc lai.
   If datTuNgay > datDenNgay Then
       datDateTemp = datTuNgay
       datTuNgay = datDenNgay
       datDenNgay = datDateTemp
   End If
 
   'Xac dinh Weekday cua Sunday.
   'Nêu chon Sat là ngày dau tuan thì Weekday cua Sunday=7, Sunday là ngày dau tuan thì Weekday cua Sunday=1.
   bytSunday = Weekday(vbSunday, vbMonday)
   'Xac dinh Weekdays cua [TuNgay], [DenNgay].
   intWeekdayTuNgay = Weekday(datTuNgay-1, vbMonday)
   intWeekdayDenNgay = Weekday(datDenNgay, vbMonday)

   intWeekdayTuNgay = intWeekdayTuNgay + (intWeekdayTuNgay = bytSunday)
   intWeekdayDenNgay = intWeekdayDenNgay + (intWeekdayDenNgay = bytSunday)
   lngDays = intWeekdayDenNgay - intWeekdayTuNgay - (bytSoNgayLVTuan * (intWeekdayDenNgay < intWeekdayTuNgay))
   'Them so ngay lam viec ung voi so tuan giua TuNgay va DenNgay
   lngDays = lngDays + (bytSoNgayLVTuan * DateDiff("w", datTuNgay-1, datDenNgay, vbMonday, vbFirstFourDays))
   
   'Dem so ngay Le trong khoang thoi gian TuNgay va DenNgay
   If blnTinhNgayLe And lngDays > 0 Then
       strTuNgay = Format(datTuNgay, "yyyy\/mm\/dd")
       strDenNgay = Format(datDenNgay, "yyyy\/mm\/dd")
       strFilter = cstrTenFieldNgayLe & " Between #" & strTuNgay & "# And #" & strDenNgay & "# And Weekday(" & cstrTenFieldNgayLe & ", 2) <= " & bytSoNgayLVTuan & ""
       lngNgayLe = DCount("*", cstrTenTableNgayLe, strFilter)
   End If
 
   fWorkingdays = lngDays - lngNgayLe
End Function 

Link file demo: http://www.mediafire.com/file/28ohh1urbh...ngDays.mdb

Bổ sung thêm 1 hàm tính ngày khác đơn giản hơn là dùng vòng lặp qua các ngày và đếm. Hàm này cũng dùng Dcount để tính ngày nghỉ lễ trong table tblNgayLe.

Mã PHP:
Public Function fCalcWorkingDays(dteTuNgay As Date, dteDenNgay As Date) As Integer
   Dim intCount As Integer

   intCount = 0

   Do While dteTuNgay <= dteDenNgay
       
       Select Case Weekday(dteTuNgay)
           Case Is = 1
               'La ngày CN -> không dem'
           Case Is = 2, 3, 4, 5, 6, 7      'Tu thu 2 - thu 7'
               'Kiem tra xem có nam trong table tblNgayLe không?'
               If DCount("*", "tblNgayLe", "[NgayLe] = #" & Format(dteTuNgay, "mm/dd/yyyy") & "#") < 1 Then  'Không phai ngay le'
                   intCount = intCount + 1
               End If
       End Select
       dteTuNgay = dteTuNgay + 1
   Loop
   fCalcWorkingDays = intCount
End Function 

[Demo] Hàm đặt pass cho file *.mdb khác

Sat, 30 Apr 2016 15:42:46 +0000

Nhân sinh nhật làm cài demo chơi, nhiều bạn muốn đặt pass cho file *.mdb mà đôi lúc cũng gặp khó khăn hoặc không biết cách đặt.
Hình minh họa

Công dụng:
- Đặt pass, Thay pass, Xóa Pass cho file Access khác (*.mdb) mà không cần mở file đó
- Thay đổi pass
- Xóa pass

Phạm vi áp dụng:
- Bảo mật file Access *.mdb thêm một chút
- Có thể kết hợp chung với ứng dụng của ta. khi đến một lúc nào đó muốn thay đổi mật khẩu hoặc muốn xóa để vào xử lý các table.
- Các ứng dụng có liên quan đến mang LAN
- Có thể phối hợp với: [Hàm] Demo_Tạo ra mật khẩu ngẫu nhiên (2 loại) Để tạo sự thay đổi pass liên tục của Data file Backend

Hàm triển khai:
- một hàm duy nhất: Hàm Datpass ("Duongdan", "Pass moi", "Pass cu")

Cú pháp sử dụng:

Mã PHP:
+ Tao pass: Datpass ("Duongdan", "Pass can tao")
+ Thay pass: Datpass ("Duongdan", "Pass moi", "Pass cu")
+ Xoa pass : Datpass ("Duongdan", "", "Pass cu") 

Pass VBA: xin để mại Email phía dưới nhé.
Demo: tải phía dưới

* Update ngày 9/11/2018
Demo_DatPassChofileAccesskhac(V3).zip (Kích cỡ: 26.56 KB / Có chỉnh lại thông báo theo yêu cầu của các bạn)

Demo_DatPassChofileAccesskhac(V2).zip (Kích cỡ: 24.52 KB / Tải về: 107)

Demo_DatPassChofileAccesskhac(V3).zip (Kích cỡ: 26.56 KB / Tải về: 62)

Hàm API trong quản lý file và folder

Sat, 16 Apr 2016 05:30:43 +0000

1. Khái quát

Khi cấu trúc của Windows được tạo ra, Microsoft có ý định tạo ra một số lớn các chức năng lập trình có giá trị cho mọi chương trình dựa trên nền Windows. Chiến thuật này phục vụ hai mục đích, cung cấp ứng dụng Windows một cái nhìn và cảm giác nhất quán cũng như khiến cho người lập trình khỏi phải sao chép lại các hàm mà đã được mã hóa và debug. Những hàm này được lưu trữ trong một dãy các thư viện liên kết động ( DLL ) và được biết như là giao diện lập trình ứng dụng ( API ). Từ khi phát triển thành hệ điều hành 32bit, Windows 95’ những phiên bản mới được biết đến như Win32 API. Một vài hàm trong Win32 API thì có giá trị như những lệnh Visual Basic, nhưng phần lớn thì được truy cập chỉ bằng cách gọi hàm API.

2. Các hàm API cơ bản dùng để quản lí File và Folder
2.1 Hàm truy xuất File
* GetLogicalDrives

Ý nghĩa: Xác định các kí tự của tất cả ổ đĩa luận lí trên hệ thống.

Khai báo:

Mã PHP:
Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" ( ) As Long 

Giá trị trả về: Các bit trong kết quả này chỉ định các ổ đĩa luận lí tồn tại trên hệ thống.

* GetDriveType

Ý nghĩa: Hàm này cho biết loại của một đĩa cụ thể cho trước. Sử dụng kèm với hàm GetLogicalDriveStrings để biết được loại của những đĩa do hàm GetLogicalDriveStrings tìm được.

Khai báo:

Mã PHP:
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long 

Tham số
Mô tả
Ndrive

Một chuỗi chứa đường dẫn đến thư mục gốc của đĩa.

Các hằng số:

Mã PHP:
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6 

Giá trị trả về: 0 nếu đĩa không thể xác định được, 1 nếu thư mục đã chỉ định không tồn tại. Một trong số các hằng chỉ ra loại đĩa được mô tả bên trên thì thành công.

* FindFirstFile

Ý nghĩa: Tìm File - Folder dựa trên tên File đã cho.

Khai báo:

Mã PHP:
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long 

Tham số
Ý nghĩa

LpFileName
Tên File cần tìm. Có thể bao gồm các kí tự tìm kiếm ( *, ? ). Có thể bao gồm đường dẫn đầy đủ.

LpFindFileData
Một cấu trúc dữ liệu dùng để lưu trữ thông tin về File tìm được.

Kiểu dữ liệu:

Mã PHP:
Type WIN32_FIND_DATA

dwFileAttributes As Long

ftCreationTime As FILETIME

ftLastAccessTime As FILETIME

ftLastWriteTime As FILETIME

nFileSizeHigh As Long

nFileSizeLow As Long

dwReserved0 As Long

dwReserved1 As Long

cFileName As String * MAX_PATH

cAlternate As String * 14

End Type

Giá trị trả về: Một điều quản tìm kiếm nếu thành công, INVALID_HANDLE_VALUE nếu có lỗi. Điều quản này nên được đóng bởi hàm FindClose khi nó không còn cần thiết.

Điều quản trả về từ hàm này được sử dụng như một tham số cho hàm FindNextFile. Điều này cho phép ta lấy tất cả các File mà được so sánh với tên File đã được chỉ định bởi tham số lpFileName.

* FindNextFile

Ý nghĩa: Sử dụng kết hợp với hàm FindFirstFile để tìm File kế tiếp trong đường dẫn được chỉ ra trong hàm FindFirstFile. Hàm này tìm File kế tiếp ngay sau File đầu tiên hoặc File sau File được tìm thấy ở lần gọi hàm FindNextFile trước đó và được gọi lại nhiều lần cho đến khi tìm ra hết tất cả các File.

Khai báo:

Mã PHP:
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long 

Tham số
Ý nghĩa

HfindFile
Handle trả về từ hàm FindFirstFile.

LpFindFileData
Một cấu trúc dữ liệu dùng để lưu trữ thông tin của File tìm được.

Giá trị trả về: True (số khác 0 nếu thành công), 0 nếu có lỗi. Thiết lập GetLastError thành ERROR_NO_MORE_FILES khi không còn File nào để lấy.

* FindClose

Ý nghĩa: Chấm dứt việc tìm File đã được gọi bởi hàm FindFirstFile.

Khai báo:

Mã PHP:
Declare Function FindClose Lib "kernel32" Alias "FindClose" (ByVal hFindFile As Long) As Long 

Tham số
Ý nghĩa

HfindFile
Một Handle được cung cấp bởi hàm FindFirstFile.

Giá trị trả về: số khác 0 nếu thành công, 0 nếu có lỗi.

* ExtractIcon

Ý nghĩa: Lấy một Icon trong các File.ICO,.EXE,.DLL

Khai báo:

Mã PHP:
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long 

Tham số
Ý nghĩa

Hlnst
Con số chỉ định

LpszExeFileName
Tên của File chứa Icon

NiconIndex
Chỉ số của Icon trong các File.ICO,.EXE,.DLL

* GetDiskFreeSpace

Ý nghĩa: lấy thông tin về sự tổ chức của đĩa và không gian còn trống.

Khai báo:

Mã PHP:
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long 

Tham số
Mô tả

LpRootPathName: Đường dẫn gốc của ổ đĩa mà không phải là tên của ổ đĩa.
LpSectorsPerCluster: Một biến chứa số Sector trong một Cluster.
LpBytesPerSector: Một biến chứa số Byte trong một Sector.
LpNumberOfFreeCluster:Một bién chứa số Cluster trống trên đĩa.
LpTotalNumberOfCluster:Một biến chứa số Cluster trên đĩa.

Giá trị trả về: Số khác 0 nếu thành công, 0 nếu có lỗi. Hàm này không nên sử dụng trên Win ’95 cho ổ đĩa lớn hơn 2 GB

* GetFileAttributes

Ý nghĩa: xác định thuộc tính của một File cụ thể.

Khai báo:

Mã PHP:
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long 

Tham số
Mô tả

LpFileName
Tên của File cần lấy thuộc tính

Hằng số:

Mã PHP:
FILE_ATTRIBUTE_ARCHIVE = &H20
FILE_ATTRIBUTE_COMPRESSED = &H800
FILE_ATTRIBUTE_DIRECTORY = &H10
FILE_ATTRIBUTE_HIDDEN = &H2
FILE_ATTRIBUTE_NORMAL = &H80
FILE_ATTRIBUTE_READONLY = &H1
FILE_ATTRIBUTE_SYSTEM = &H4
FILE_ATTRIBUTE_TEMPORARY = &H100 

Giá trị trả về: -1 nếu có lỗi. Một giá trị chứa bit cờ cụ thể thuộc tính của File với bit cờ là một hằng số.

* GetFileSize

Ý nghĩa: Xác định kích cỡ của File.

Khai báo:

Mã PHP:
Private Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long 

Tham số
Mô tả

HFile:Handle của File
LpFileSizeHigh:Giá trị số được nạp với 32 bit cao của 64 bit kích cỡ File. Có thể Null (thay đổi bởi Byval), nếu kích cỡ thì không tối thiểu bằng 2^32 Byte.

Giá trị trả về: Kích cỡ của File. &HFFFFFFFF nếu có lỗi. Nếu lpFileSizeHigh không phải là Null và kết quả là &HFFFFFFFF thì phải gọi GetLastError để xác định, nếu một lỗi thực sự xảy ra thì giá trị này là kết quả hợp lệ.

* GetFileTime

Ý nghĩa: Lấy thông tin thời gian của File đã được chỉ định.

Khai báo:

Mã PHP:
Private Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long 

Tham số
Mô tả

Hfile
Một Handle của File

LpCreateTime:Một cấu trúc dữ liệu chứa thới gian tạo lập của File

LpLastAccessTime:Một cấu trúc dữ liệu chứa thời gian truy cập lần cuối của File (không được hổ trợ bởi hệ thống File FAT)

LpLastWriteTime:Một cấu trúc dữ liệu chứa thời gian cập nhật lần cuối của File

Giá trị trả về: số khác 0 nếu thành công, 0 nếu có lỗi.

* GetLogicalDriveString

Ý nghĩa: Lấy một chuỗi chứa đường dẫn ổ đĩa gốc của tất cả ổ đĩa luận lí tồn tại trên hệ thống.

Khai báo:

Mã PHP:
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long 

Tham số
Mô tả

nBufferLengh:Chiều dài của chuỗi lpBuffer
lpBuffer:Một chuỗi chứa tên các đĩa Logic. Mỗi tên được ngăn cách bởi kí tự Null, tên cuối cùng theo sau bởi 2 kí tự Null.

Giá trị trả về: số kí tự được nạp vào lpBuffer (ngoại trừ kí tự Null kết thúc ). Nếu Buffer không đủ dài để chứa đường dẫn, giá trị trả về sẽ là kích cở của Buffer cần thiết. 0 nếu có lỗi.

2.2 Hàm truy xuất Registry

a) Giới thiệu

Registry lưu trữ các dữ liệu liên quan đến hệ thống và các ứng dụng. Registry bao gồm một số tập tin mà hệ thống và các ứng dụng có thể truy cập đến và sử dụng để hiệu chỉnh thông tin cấu hình. Có ba loại tập tin mà lưu trữ tất cả các thông tin Registry là: System.dat, User.dat và các tập tin Policy.

Trong Win’95 Folder và mỗi một File được tạo ra bởi một chương trình khác nhau thì sẽ có các Icon khác nhau được lưu trữ trong các File liên kết hoãc các File chương trình. Các chương trình khi được cài đặt trên máy tính sẽ phải đăng kí Registry và đồng thời Registry lưu trữ các thông tin này để các ứng dụng khác có thể sử dụng để tham khảo khi cần thiết. Chúng ta có thể sử dụng chương trình Regedit của Win ’95 để xem và hiệu chỉnh Registry.

Thông tin trong Registry cũng được lưu trữ có cấp bậc và có các Key nắm giữ các thông tin khác nhau. Hình 3-1 minh họa cách lưu trữ trong Registry thông qua chương trình Regedit.

· Các loại thông tin lưu trữ trong Registry.

Registry có ba loại dữ liệu của các đối tượng là Key, Value, và Data.

KEY: Một Key có thể chứa các Key và các Value.

VALUE: Registry có thể có ba loại dữ liệu: chuỗi, thông tin nhị phân và giá trị DWORD. Giá trị mặc định thường là chuỗi, mặc dù nó xuất hiện như "(value not set)" cho đến khi nó chứa dữ liệu. Nếu dữ liệu bị loại bỏ thì nó chứa chuỗi rỗng "" thay vì "(value not set)".

DATA: Dữ liệu Registry thì thường đuợc chứa trong một value. Một mẫu dữ liệu thì thường không lớn hơn 64KB.

· Cách truy xuất Registry để lấy thông tin của các Icon chương trình.

Như chúng ta đã biết một File được lưu trữ sẽ có hai phần: phần tên và phần mở rộng, phần mở rộng này dùng để xác định kiểu của File. Trong Registry muốn biết được Icon tương ứng của một File chúng ta có thể lấy được thông tin về chương trình tạo ra File đó và từ đó có thể truy xuất đến key tương ứng để lấy được thông tin về icon mặc định ( đường dẫn chỉ vị trí File chứa Icon chương trình đó trên đĩa ) của chương trình.

B) Một số hàm API liên quan đến việc truy xuất Registry

* RegCloseKey

Ý nghĩa: Đóng một Registry key mà trước đó đã được mở bởi hàm API. Bạn phải đóng Registry key khi chấm dứt làm việc với nó.

Khai báo:

Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long

Tham số
Mô tả

hKey
Từ khóa để đóng có kiểu dữ liệu là Long

Giá trị trả về: trả về con số kiểu Long, 0 ( ERROR_SUCCESS) thì thành công. Tất cả các giá trị khác thì có lỗi trong mã.

* RegConnectRegistry

Ý nghĩa: Cho phép bạn truy cập vào một phần của Registry trên máy mạng

Khai báo:

Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As Long

Tham số
Mô tả

LpMachineName
Tên của hệ thống để connect tới có kiểu dữ liệu là kiểu chuỗi.

Hkey
Là HKEY_LOCAL_MAHCINE hoặc HKEY_USER kiểu dữ liệu Long.

PhkResult
Biến dùng để Load Handle với một khóa cụ thể.

Giá trị trả về: trả về con số kiểu Long, 0 ( ERROR_SUCCESS) thì thành công. Tất cả các giá trị khác thì có lỗi trong mã.

* RegCreateKey

Ý nghĩa: Cho phép bạn tạo một từ khóa mới trong Registry. Nếu từ khóa với cùng các thuộc tính có sẵn đã được mở.

Khai báo:

Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Tham số
Mô tả

hKey
Kiểu Long. Handle của một Key đã mở hoặc một số tiêu chuẩn của tên Key.

lpSubKey
Kiểu chuỗi. Tên của một SubKey mới để tạo. Bạn có thể tạo nhiều khóa cùng một lúc bởi dấu gạch chéo ngược giữa chúng.

VD: level1\level2\newkey

phkResult
Kiểu Long. Biến dùng để Load một Handle với subkey mới.

Giá trị trả về: Kiểu Long. 0 ( ERROR_SUCCESS) thì thành công. Tất cả các giá trị khác thì có lỗi trong mã.

* RegCreateKeyEx

Ý nghĩa: Hàm này cho phép bạn thêm vào thông tin bảo mật mà có thể được đặt trên thực thể Registry.

Khai báo:

Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long

Tham số
Mô tả

HKey
Kiểu Long. Handle của một Key đã mở hoặc một số tiêu chuẩn của tên Key.

LpSubKey
Kiểu chuỗi. Tên của một SubKey mới để tạo. Bạn có thể tạo nhiều khóa cùng một lúc bởi dấu gạch chéo ngược giữa chúng.

VD: level1\level2\newkey

Reserved
Kiểu Long. Được thiết lập bằng 0.

LpClass
Kiễu chuỗi. Tên một lớp cho Key.

DwOptions
Kiểu Long. Bằng 0 hoặc hằng số sau: REG_OPITON_VOLATILE. Khóa này thì không lưu giữ lại mà biến mất sau khi khởi động lại hệ thống.

samDesired
Kiểu Long. Một hoặc nhiều hằng số có tiếp đầu ngữ là KEY_?? kết hợp với mô tả của mỗi tác vụ cho Key này.

lpSecurityAttributes
SECRUITY ATTRIBUTES. Mô tả cấu trúc bảo vệ cho Key này.

phkResult
Kiểu Long. Biến để Load một Handle với một subkey mới.

LpdwDisposition
Kiểu Long. Biến để Load một trong số ngững hằng số sau:

· REG_CREATED_NEW_KEY. Một Key mới vừa được tạo.

· REG_OPENED_EXISTING_KEY.Một Key đã có đượ mở.

Giá trị trả về: Kiểu Long. 0 ( ERROR_SUCCESS ) thì thành công. Tất cả các giá trị khác thì có lỗi trong mã.

Kiểu dữ liệu:

Type SECURITY_ATTRIBUTES

nLength As Long

lpSecurityDescriptor As Long

bInheritHandle As Long

End Type

* RegDeleteKey

Ý nghĩa: Xóa một Registry key và giá trị kết hợp của nó

Khai báo:

Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Tham số
Mô tả

HKey
Kiểu Long. handle của một Key được mở hoặc một số tiêu chuẩn của tên Key.

LpSubKey
Kiểu chuỗi. Tên của một Key để Delete. Mọi subkeys của key đều được xóa.

Giá trị trả về: Kiểu Long. 0 ( ERROR_SUCCESS ) thì thành công. Tất cả các giá trị khác thì có lỗi trong mã.

* RegDeleteValue

Ý nghĩa: Xóa giá trị của một Registry key

Khai báo:

Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Tham số
Mô tả

hKey
Kiểu Long. handle của một key được mở hoặc một số tiêu chuẩn của tên key.

lpValueName
Kiểu chuỗi. Tên của giá trị cần xóa. Có thể là vbNullString hoặc một chuỗi rổng cần xóa giá trị mặc định cho Key.

Giá trị trả về: Kiểu Long. 0 ( ERROR_SUCCESS ) thì thành công. Tất cả các giá trị khác thì có lỗi trong mã.

* RegEnumKey / RegEnumKeyEx

Ý nghĩa: Cho phép bạn truy xuất mỗi tên từng bước một của một subkey được định vị dưới một từ khóa cụ thể.

Khai báo:

Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long

Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long

Tham số
Mô tả

Hkey
Kiểu Long. handle của một Key được mở hoặc một số tiêu chuẩn của tên Key.

DwIndex
Kiểu Long. Chỉ số của giá trị được lấy, giá trị đàu tiên là số 0.

LpName
Kiểu chuỗi. một buffer dùng để Load tên của key tại một chỉ số cụ thể.

lpcbName
Kiểu Long. một biến có chiều dài được định bởi lpName (bao gồm cả ký tự Null). Trả về một con số của ký tự được Load vào trong lpName hiện thời.

lpReserved
Kiểu Long. Không sử dụng, được thiết lập bằng 0.

lpClass
Kiểu chuỗi. Tên của một lớp được sử dụng cho Key. Có thể là vbNullString.

lpcbClass
Kiểu Long. một biến có chiều dài được định bởi lpClass. Trả về một con số của ký tự được Load vào trong buffer.

lpftLastWriteTime
FILETIME. thời gian sửa đổi lần cuối cùng của subkey được lấy.

Giá trị trả về: Kiểu Long. 0 ( ERROR_SUCCESS ) thì thành công. Tất cả các giá trị khác thì có lỗi trong mã.

Type FILETIME

dwLowDateTime As Long

dwHighDateTime As Long

End Type

* RegEnumValue

Ý nghĩa: Cho phép bạn truy xuất mỗi tên từng bước một của một subkey được định vị dưới một từ khóa cụ thể.

Khai báo:

Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long

Tham số
Mô tả

hKey
Kiểu Long. handle của một Key được mở hoặc một số tiêu chuẩn của tên Key.

dwIndex
Kiểu Long. Chỉ số của giá trị được lấy, giá trị đàu tiên là số 0.

lpValueName
Kiểu chuỗi. một buffer dùng để Load tên của giá trị tại một chỉ số cụ thể.

lpcbValueName
Kiểu Long. một biến có chiều dài được định bởi lpValueName. Trả về một con số của ký tự được Load vào trong buffer.

lpReserved
Kiểu Long. không sử dụng, được thiết lập bằng 0.

lpType
Kiểu Long. Một biến dùng Load giá trị của loại mã.

lpData
Byte. Buffer dùng để Load dữ liệu dành cho giá trị.

lpcbData
Kiểu Long. một biến có chiều dài được định bởi lpData. Trả về một con số của byte được Load vào trong buffer.

Giá trị trả về: Kiểu Long. 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì lỗi.

* RegFlushKey

Ý nghĩa: Ghi thông tin vào Registry ngay lập tức.

Khai báo:

Declare Function RegFlushKey Lib "advapi32.dll" Alias "RegFlushKey" (ByVal hKey As Long) As Long

Tham số
Mô tả

hKey
Kiểu Long. Một Handle của một Key dùng để Flush.

Giá trị trả về: Kiểu Long. 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì bị lỗi.

* RegLoadKey

Ý nghĩa: Nạp thông tin Registry từ một tập tin đã được tạo trước đó bởi RegSaveKey.

Khai báo:

Declare Function RegLoadKey Lib "advapi32.dll" Alias "RegLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpFile As String) As Long

Tham số
Mô tả

hKey
Kiểu Long. HKEY_LOCAL_MACHINE, HKEY_USERS hoặc một Key được tạo sử dụng RegConnectRegistry.

lpSubKey
Kiểu chuỗi. Tên của một subKey mới được tạo.

lpFile
Kiểu chuỗi. một tên File đã đăng ký.

Giá trị trả về: Kiểu Long. 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì bị lỗi.

* RegNotifyChangeKeyValue

Ý nghĩa: Cho phép ứng dụng của bạn quan sát việc đăng ký từ khóa và nhận được thông báo khi từ khóa bị thay đổi.

Khai báo:

Declare Function RegNotifyChangeKeyValue Lib "advapi32.dll" Alias "RegNotifyChangeKeyValue" (ByVal hKey As Long, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long, ByVal hEvent As Long, ByVal fAsynchronus As Long) As Long

Tham số
Mô tả

hKey
Kiểu Long. một handle của Key dùng để xem.

bWatchSubtree
Kiểu Long. TRUE (nonzero ) sẽ thất được subkey tương tự như một Key cụ thể.

dwNotifyFilter
Kiểu Long. Một hoặc nhiều hằng số sau đây: REG_NOTIFY_CHANGE_NAME:nhận biết việc đổi tên, tạo hoặc xóa một Key.

REG_NOTIFY_CHANGE_ATTRIBUTES: nhận biết việc thay đổi thuộc tính.

REG_NOTIFY_CHANGE_LAST_SET: xác định thời gian sửa đổi cuối cùng.

REG_NOTIFY_CHANGE_SECURITY: nhận biết việc thay đổi của việc bảo mật.

hEvent
Kiểu Long.Một Handle đến một Event. nếu bỏ qua thì fAsynchronus bằng False.

fAsynchronus
Kiểu Long.Nếu bằng 0 thì hàm không trả về cho đến khi một sự thay đổi được nhận biết. Nếu khác 0 thì hàm sẽ trả về và sự kiện của hEvent sẽ báo hiệu khi có sự thay đổi.

Giá trị trả về: Kiểu Long. 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì bị lỗi.

* RegOpenKey/ RegOpenKeyEx

Ý nghĩa: Mở một từ khóa được chỉ định. RegOpenKeyEx cũng mở một từ khóa nhưng thêm vào các tham số bảo mật.

Khai báo:

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Tham số
Mô tả

hKey
Kiểu Long. handle của một Key được mở

lpSubKey
Kiểu chuỗi. tên của key để mở.

ulOptions
Kiểu Long. Không sử dụng và được thiết lập bằng 0.

samDesired
Kiểu Long. Một hoặc nhiều hằng số có tiếp đầu ngữ là KEY_?? kết hợp với việc mô tả mỗi tác vụ được cho phép đối với key.

phkResult
Kiểu Long. Biến để Load một Handle đến Key đượ mở.

Giá trị trả về: Kiểu Long. 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì bị lỗi.

* RegQueryInfoKey

Ý nghĩa: Cho phép ứng dụng của bạn lấy được thông tin về từ khóa.

Khai báo:

Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long

Tham số
Mô tả

Hkey
Kiểu Long. handle của Key được mở.

LpClass
Kiểu chuỗi. Một chuỗi để Load tên lớp cho Key

LpcbClass
Kiểu Long.Một biến mà chiều dài được xác định bởi lpClass. Trả về sẽ thiết lập con số kiểu Byte thực sự, Load vào buffer.

LpReserved
Kiểu Long. Không sử dụng và được thiết lập bằng 0.

LpSubKeys
Kiểu Long. một biến để Load con số của SubKey cho key này.

LpcbMaxSubKeyLen
Kiểu Long. Một biến dùng để Load chiều dài dài nhất của subkey name cho key này (không bao gồm ký tự NULL )

LpcbMaxClassLen
Kiểu Long. Một biến dùng để Load chiều dài dài nhất của tên lớp của subkey cho key này (không bao gồm ký tự NULL )

LpcValues
Kiểu Long. Một biến dùng để Load con số giá trị cho Key.

LpcbMaxValueNameLen
Kiểu Long. một biến dùng để Load giá trị tên với chiều dài lớn nhất của subkey cho Key (không bao gồm ký tự NULL )

LpcbMaxValueLen
Kiểu Long. Một biến để Load với kích cở yêu cầu của buffer để giữ giá trị dữ liệu lớn nhất cho Key này.

LpcbSecurityDescriptor
Kiểu Long. một biến dùng để Load có chiều dài bằng mô tả bảo mật của Key.

lpftLastWriteTime
Kiểu FILETIME. Một cấu trúc dùng để Load I gian tạo lập cuối cùng cho Key.

Giá trị trả về: Kiểu Long. Bằng 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì bị lỗi. Hàm trả về ERROR_MORE_DATA nếu như một trong các buffer không có đủ chi62u dài để chứa dữ liệu trả về.

* RegQueryValue/ RegQueryValueEx

Ý nghĩa: Lấy giá trị mặc định cho từ khóa. RegQueryValueEx lấy thông tin bảo mật của từ khóa.

Khai báo:

Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Tham số
Mô tả

hKey
Kiểu Long. Handle của một Key được mở.

lpValueName
Kiểu chuỗi. Tên của giá cần lấy.

lpReserved
Kiểu Long.Không được sử dụng và được thiết lập bằng 0.

lpType
Kiểu Long.Một biến dùng để Load có kiểu dữ liệu cần tìm.

lpData
Mọi kiểu dữ liệu. Một buffer dùng để Load với một giá trị cụ thể.

lpcbData
Kiểu Long.Một biến mà có chiều dài được định bởi lpData. Khi trả về thì thiết lập con số kiểu Byte để Load vào bộ đệm

Giá trị trả về: Kiểu Long. 0 (ERROR_SUCCESS ) thì thành công, các giá trị khác thì bị lỗi.

* RegReplaceKey

Ý nghĩa: Thay đổi thông tin Registry của một File và tạo File Backup của thông tin đã thay đổi.

Khai báo:

Declare Function RegReplaceKey Lib "advapi32.dll" Alias "RegReplaceKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpNewFile As String, ByVal lpOldFile As String) As Long

Tham số
Mô tả

HKey
Kiểu Long. handle của một key được mở.

LpSubKey
Kiểu chuỗi. tên của subkey cần Replace, nó phải là thư mục nằm trong HKEY_LOCAL_MACHINE hoặc HKEY_USERS.

LpNewFile
Kiểu chuỗi. Tên của File chứa thông tin đăng ký, File này được tạo bằng cách sử dụng hàm RegSaveKey.

LpOldFile
Kiểu chuỗi. Tên của File khi Backup thông tin đăng ký hiện tại.

Giá trị trả về: Kiểu Long. 0 ( ERROR_SUCCESS ) thì thành công, các giá trị khác thì bị lỗi.

* RegRestoreKey

Ý nghĩa: Khôi phục thông tin từ một tập tin mà đã được tạo bởi hàm RegReplaceKey.

Khai báo:

Declare Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" (ByVal hKey As Long, ByVal lpFile As String, ByVal dwFlags As Long) As Long

Tham số
Mô tả

Hkey
Kiểu Long. handle của một Key mở.

LpFIle
Kiểu chuỗi. Tên của File cần Restore thông tin.

dwFlags
Kiểu Long. 0 thì trả lại giá trị như cũ. REG_WHOLE_HIVE_VOLATIVE dùng để khôi phục lại thông tin tạm thời ( chưa Save khi hệ thống khởi động lại ). Trong trường hợp này thì hKey phải tham khỏa đến HKEY_LOCAL_MACHINE hoặc HKEY_USERS.

Giá trị trả về: Kiểu Long. 0 ( ERROR_SUCCESS ) thì thành công, các giá trị khác thì bị lỗi.

* RegSaveKey

Ý nghĩa: Lưu một Registry key cũng như tất cả các subkey của nó lên một File trên đĩa. Tập tin này có thể được sử dụng sau đó bởi hàm RegLoadKey.

Khai báo:

Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As Long, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Tham số
Mô tả

HKey
Kiểu Long. Handle của một Key mở.

LpFIle
Kiểu chuỗi. Tên của Disk để lưu giữ thông tin cần đăng ký.

LpSecurityAttributes
SECRITY_ATTRIBUTES. Thông tin bảo mật cho thông tin vừa được lưu. Có thể là Null để mặc định thông tin bảo mật

Giá trị trả về: Kiểu Long. bằng 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì bị lỗi.

* RegSetValue/ RegSetValueEx

Ý nghĩa: Thay đổi giá trị của một từ khóa cụ thể.

Khai báo:

Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Tham số
Mô tả

HKey
Kiểu Long. handle của một Key mở

LpValueName
Kiểu chuỗi. Tên của giá trị được thiết lập.

Reserved
Kiểu Long. Không sử dụng và được thiết lập bằng 0.

DwType
Kiểu Long. Kiểu dữ liệu để thiết lập.

LpData
Kiểu Byte. Byte đầu tiên trong trong buffer chứa dữ liệu.

CbData
Kiểu Long. chiều dài của buffer lpData.

Giá trị trả về: Kiểu Long. bằng 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì bị lỗi.

* RegUnloadKey

Ý nghĩa: Đóng và loại bỏ khỏi bộ nhớ một từ khóa đã được mở trước đó bởi hàm RegLoadKey.

Khai báo:

Declare Function RegUnLoadKey Lib "advapi32.dll" Alias "RegUnLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Tham số
Mô tả

HKey
Kiểu Long. HKEY_LOCAL_MACHINE, HKEY_USERS, hoặc một Key đã được mở sử dụng hàm RegConnectRegistry.

LpSubKey
Kiểu chuỗi. tên của SubKey để UnLoad. Phải được Load trước đó bằng hàm RegLoadKey.

Giá trị trả về: Kiểu Long. bằng 0 (ERROR_SUCCESS ) thì thành công. Các giá trị khác thì bị lỗi.

Nguồn : http://www.echip.com.vn

Tiếp tục....

VB có 6 lệnh tương tác trực tiếp với hệ điều hành:

ChDrive (Drive as String) ' thay đổi ổ đĩa đăng nhập đối với hệ điều hành nền
VD: ChDrive ("D:\")

ChDir (Path as String) ' thay đổi thư mục hiện hành
VD: ChDir ("C:\Windows\Temp")

MkDir (Path as String) ' tạo mới thư mục
VD: MkDir ("C:\MyDir") ' tạo mới thư mục MyDir trên ổ C

RmDir ("Path as String") ' loại bỏ một thư mục
VD: RmDir ("C:\MyDir")

Name [Source] As [Dest] ' đổi tên và di chuyển tập tin
VD: Name "C:\myFile.txt" As "D:\FileChua.txt" sẽ move tập tin myFile.txt từ C:\ đến D:\ với tên mới: FileChua.txt

Kill (PathName as String) ' xoá tập tin với tham số PathName chấp nhận ký tự đại diên (như Dos)
VD: Kill ("C:\*.txt") sẽ xoá tất cả tập tin có phần mở rộng là txt trong thư mục gốc của ổ C
-------------------------------------------------------------------------------------------------------
Ôn lại một chút về khái niệm "hiện hành" có từ thời của Dos để hiểu rõ hơn về 6 lệnh này của Vb vì thực sự chúng rất mạnh.
Ví dụ khi file thực thi của bạn nằm tại "C:\MyDir\MyFile.exe" thì lệnh MkDir ("NewDir") sẽ tạo mới một Path: "C:\MyDir\NewDir" tức là thư mục NewDir nằm cùng cấp với MyFile.exe. Nhưng nếu trước đó có câu lệnh ChDir ("C:\Windows") thì lệnh trên sẽ tạo Path: "C:\Windows\NewDir". Tương tự như vậy với lệnh ChDrive. Quan trọng là bạn phải biết "mình đang ở đâu?" bằng không với câu lệnh không chỉ rõ Path: Kill (*.*) sẽ bụp sạch các File không mong muốn nếu trước đó đã xài ChDir mà quên.
--------------------------------------------------------------------------------------------------------

CurDir (Drive) ' trả về một chuỗi với tên đầy đủ của ổ đĩa hiện hành nếu tham số Drive để trống ( )
VD:
CurDir ( ) ---> tên ổ đĩa hiện hành
CurDir ( "D") ---> tên đầy đủ "D:\"
CurDir ("X") ---> sẽ báo lỗi nếu hệ thống không có tới ổ thứ X này

Dir (PathName, Attributes) ' tìm kiếm tập tin với đường dẫn đặt tại tham số 1. Tham số 2(Attributs) tùy chọn để chuyên biệt thuộc tính tìm kiếm. Mặc định la vbNormal
VD:
tmp = Dir ("C:\boot.ini") ---> tmp = ""
tmp = Dir ("C:\boot.ini", vbHidden) ---> tmp = "boot.ini"

FileCopy (Source as String, Destination as String) ' sao chép tập tin từ đường dẫn nguồn (Source) đến đường dẫn khác (Destination)
VD:
Filecopy "C:\Config.sys", "D:\Config.sys"

Filelen (PathNam As String) As Long ' trả về kích thước của tập tin

FileDateTime (PathName as string) ' trả về ngày tháng và thời gian tập tin đã được tạo ra hoặc được chỉnh sữa lần gần nhất.
VD:
Msgbox FileDateTime ("C:\Config.sys")

GetAttr (PathName as String) as Integer ' trả về một số nguyên là trị thuộc tính của File
Các hằng thuộc tính gồm:
vbNormal = 0
vbReadOnly = 1
vbHiden = 2
vbSystem = 4
vbVolume = 8
vbDirectory = 16
vbArchive = 32

VD:
GetAttr "C:\boot.ini" = 35 (file Boot.ini mang các thuộc tính sau: ReadOnly(1) + Hiden(2) + Archive(32)

SetAttr (PathName as String, Attributes as vbFileAttribute) ' Xác lập thông tin thuộc tính của File. Sử dụng các hằng thuộc tính hoặc các giá trị ở bảng trên cho tham số Attributes
VD:
SetAttr "C:\Boot.ini, 0" ---> xác lập file boot.ini chỉ mang một thuộc tính là Normal
SetAttr "C:\Boot.ini,3" ---> xác lập boot.ini mang thuộc tính chỉ đọc và ẩn.

FreeFile ' trả về một số integer là chỉ số (ID) để HDH theo dõi và quản lý các file đang mở (Open). Dùng một biến nguyên để lưu giá trị này dùng cho các cuôc gọi lệnh Open (file). Khi đó ta không cần quan tâm đến các chỉ số(ID) này nữa. FreeFile sẽ theo dõi và cung cấp cho ta các chỉ số(ID) chưa dùng.
VD:

Mã PHP:
Dim Filenum# 
FileNum = FreeFile 
Open [PathName] For Output As #Filenum 

Open [PathName as String] For [Mode] As [ID File] ' Mỗi khi thấy lệnh Open, VB sẽ sẵn sàng cho các thao tác đọc và ghi lên File được cung cấp ở tham số [PathName]. Có năm chế độ mở tập tin được đặt ở tham số [Mode], và [ID File] dĩ nhiên là chỉ số của tập tin đang mở.
Các dạng thức cơ bản của lệnh Open:
Open [Pathname] For Input As Filenum ' mở File và chỉ đọc được thông tin, không ghi lên được.
Open [PathName] For Output As Filenum ' mở File để xuất thông tin. Khi được mở theo dạng này mọi thông tin cũ trên File sẽ bị mất.
Open [PathName] For Append As Filenum ' mở File để đọc và ghi tiếp lên được.
Open [PathName] For Random As Filenum ' mở và truy cập ngẫu nhiên các bản ghi và các trường trên File (phải biết được cấu trúc của các bản ghi)
Open [PathName] For Binary As Filenum ' đọc ghi theo Byte. Đây là dạng tổng quát và linh hoạt nhất.

Input [Number, #Filenum] ' đọc nội dung File với số lượng xác định ở tham số Number
VD: Str = Input (10, #Filenum) ' đọc 10 ký tự vào biến Str.
Dạng khác của Input:
Input [#Filenum, Str] ' ở đây biến Str thường ở dạng Variant

Line Input [#FileNum, Str] ' đọc thông tin theo từng dòng vào biến Str. Thường kết hợp với hàm EOF để lấy hết thông tin

EOF (Filenum) ' trả về vị trí chấm dứt của File khi đang mở
VD:

Mã PHP:
Do While Not EOF (Filenum) ' lập nếu không phải ở end of file 
Line Input #Filenum, Str ' đọc từng dòng vào biến Str 
Loop 

LOF (Filenum) ' trả về kích thước của File khi đang mở.
VD:

Mã PHP:
Str = Input (LOF(Filenum), #Filenum) 

' sẽ lấy hết nội dung của File (không nên sử dụng với File có kích thước vài Mb sẽ bị lỗi "out of memory")

Write [#Filenum, Expression] ' ghi lên File
VD:
Write #FileNum, "12345" ---> "12345"
Write #Filenum, 12345 --->12345

Print [#Filenum, Expression] ' làm việc chính xác như khi Print lên Form
VD:

Mã PHP:
Print #Filenum, 123; 456 

---> 123 456

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. Mỗi khi lấy ra 1 byte con trỏ tập tin tự động chuyển tới vị trí byte kế tiếp.
VD:

Mã PHP:
Dim Str as String * 4 

Get #Filenum, 3, Str ---> lấy 4 byte bắt đầu từ byte thứ 3 lưu vào Str.
(nếu có câu lệnh Get tiếp theo mà tham số Position bỏ trống, thì vị trí bắt đầu lấy ra sẽ là byte thứ 8)

Loc (#Filenum) ' Trả về vị trí byte đọc/ghi hiện tại trong tập tin đang mở.

Seek [#Filenum, Position] ' dịch chuyển con trỏ tập tin đến vị trí qui định bởi tham số Position
VD:
Seek #Filenum, 3
Get #Filenum, , Str ---> vị trí lấy ra sẽ bắt đầu tại byte thứ 3

Seek (#Filenum) ' trả về vị trí hiện tại của con trỏ tập tin
Put [#Filenum, Position, ByteArray] ' đặt nội dung của mảng ByteArray vào vị trí byte thứ[Position].
Lệnh Put se ghi đè lên mọi thứ và chỉ dùng cho truy cập Random và Binary
VD: Put #filenum, , Str ---> sẽ ghi 4 byte bắt đầu ở vị trí byte thứ 1

Reset ' Đóng tất cả các tập tin đã được mở bằng lệnh Open

Code:

Mã PHP:
Option Explicit
Private Sub Form_Load()
Dim FileNumber
   For FileNumber = 1 To 5
       Open "TEST" & FileNumber For Output As #FileNumber ' Mở file
           Write #FileNumber, "Hello World"   ' Ghi dữ liệu vào file.
   Next FileNumber
   Reset   ' Đóng file và cập nhật dữ liệu vào file
End Sub 

Close (#Filenum) ' Đóng tập tin đã được mở bằng lệnh Open.

Lock [#Filenum, Expression] ' khoá tập tin không cho người khác truy cập khi App của bạn đang mở. Tham số thứ hai chuyên biệt vị trí khoá. Nếu bỏ qua tham số tùy chọn này, lệnh Lock sẽ khoá toàn bộ tập tin. Đối với các tập tin mở theo truy cập tuần tự lệnh Lock sẽ khoá toàn bộ tập tin bất kể khoảng do tham số 2 qui định.
VD:
Lock #Filenum, 1 To 100 ---> sẽ khoá 100 byte từ byte thứ 1

Unlock [#Filenum, Expression] ' mở khoá tập tin, tham số sử dụng như Lock.

Chú ý: cần bảo đảm loại bỏ tất cả các khoá với câu lệnh Unlock tương ứng trước khi đóng tập tin hoặc thoát khỏi chương trình(các đối số phải tương hợp chính xác). Nếu không tập tin có thể bị rối loạn.
----------------------------------------------------------------------------------------------------------
Để điều khiển sự chia sẽ tập tin vào thời gian bạn mở tập tin. Có thể dùng câu lệnh tổng quát nhất của lệnh Open
Cú pháp:
Open PathName [For mode] [Access access] [Lock] As #Filenum [Len=reclength] ' trong đó:

PathName là chuỗi chứa đường dẫn đến tập tin

Mode là từ khoá chuyên biệt chế độ tập tin như Input, Append, Random...

Access là từ khoá chuyên biệt các thao tác được phép trên tập tin mở. Có ba thao tác: Read, Write, ReadWrite VD:Open PathName For Binary Access Read As #Filenum --> cho phép bạn đọc nhưng không cho phép thực hiện các thay đổi đối với tập tin.

Lock là từ khoá chuyên biệt các thao tác được phép trên tập tin mở đối với các quá trình khác.
Khác với Access : điều khiển cách thức chương trình bạn làm việc với tập tin. Với từ khoá Lock có bốn khả năng:
1- [Shared] các quá trình khác có thể đọc và viết vào tập tin mặc dù chương trình của bạn đang làm việc với tập tin đó.
2- [LockRead] chương trình khác không thể mở để đọc tập tin, trong khi chương trình của bạn đang làm việc với tập tin đó.
3- [LockWrite] không thể mở để viết lên tập tin trong khi chương trình bạn đang làm việc với tập tin đó.
4- [LockReadWrite] chương trình khác không thể làm việc với tập tin trong khi chương trình bạn đang làm việc với tập tin đó.
VD: Open PathName For binary Access Lock Read #Filenum ---> sẽ ngăn chận các chương trình khác sử dụng tập tin khi bạn đang làm việc với tập tin đó.

Reclength đây là số nguyên từ 1 đến 32767. Đối các tập tin mở ở chế độ Random số này đưa ra chiều dài bản ghi. Đối với các tập tin chuỗi thứ tự, giá trị này là số lượng các ký tự đươc đệm trong hệ điều hành

Tổng hợp các hàm Toán học cơ bản ( có ví dụ)

Sat, 16 Apr 2016 05:19:19 +0000

1. Hàm ABS()

Lấy trị tuyệt đối của một số

Cú pháp: = ABS(number)
number: Số muốn tính trị tuyệt đối

Ví dụ:
ABS(2) = 2

ABS(-5) = 5

ABS(A2) = 7 (A2 đang chứa công thức = 3.5 x -2)

2. Hàm CEILING() và Hàm FLOOR()

Hai hàm này, hao hao giống hàm MROUND(), là làm tròn đến bội số gần nhất của một số được chỉ định, chỉ khác đôi chút về cách tính: CEILING() luôn luôn làm tròn một số ra xa số 0, còn FLOOR() làm tròn về số 0.

Cú pháp:

= CEILING(number, significance)
= FLOOR(number, significance)

number: Con số sẽ làm tròn
significance: Con số mà bạn cần làm tròn number đến bội số của nó
- Nếu number và significancekhác dấu, hàm sẽ báo lỗi #NUM!
- Nếu number là bội số của significance, kết quả là chính số đó

Ví dụ: So sánh giữa CEILING(), FLOOR() và MROUND()

- ở ví dụ này, xem như significance là multiple của MROUND()

undefined

3. Hàm COMBIN()

Trả về số tổ hợp của một số phần tử cho trước

Cú pháp: = COMBIN(number, number_chosen)

number: Tổng số phần tử

number_chosen: Số phần tử trong mỗi tổ hợp

Chú ý:

- Nếu các đối số là số thập phân, hàm chỉ lấy phần nguyên
- Nếu các đối số không phải là số, COMBIN sẽ báo lỗi #VALUE!
- Nếu number < 0, number_chosen < 0, hoặc number < number_chosen, COMBIN sẽ báo lỗi #NUM!
- Tổ hợp khác với hoán vị: Tổ hợp không quan tâm đến thứ tự của các phần tử trong mỗi tổ hợp; còn hoán vị thì thứ tự của mỗi phần tử đều có ý nghĩa.
COMBIN được tính như công thức sau đây (với n = number, k = number_chosen)

undefined

Trong đó:

undefined

Ví dụ:

Với 4 phần tử Mai, Lan, Cúc, Trúc có thể xếp được bao nhiêu tổ hợp khác nhau, với mỗi tổ hợp gồm 2 phần tử ?

= COMBIN(4, 2) = 6

6 tổ hợp này là: Mai-Lan, Mai-Cúc, Mai-Trúc, Lan-Cúc, Lan-Trúc và Cúc-Trúc

4. Hàm EVEN() và Hàm ODD()

Hai hàm này làm tròn rất đơn giản. EVEN() làm tròn đến số nguyên chẵn gần nhất, còn ODD() làm tròn đến số nguyên lẻ gần nhất. Cả hai đều làm tròn theo kiểu chạy xa khỏi số 0.

Cú pháp: = EVEN(number) | = ODD(number)

Ví dụ:

EVEN(14.2) = 16
EVEN(-23) = 24
ODD(58.1) = 59
ODD(-6) = -7

5. Hàm EXP()

Tính lũy thừa của cơ số e (2.71828182845905...)

Cú pháp: = EXP(number)
number: số mũ của cơ số e

Lưu ý:
- Để tính lũy thừa của cơ số khác, bạn có thể dùng toán tử ^ (dấu mũ), hoặc dùng hàm POWER()

- Hàm EXP() là nghịch đảo của hàm LN(): tính logarit tự nhiên của một số

Ví dụ:
EXP(1) = 2.718282 (là chính cơ số e)
EXP(2) = 7.389056 (bình phương của e)

6. Hàm FACT()

Tính giai thừa của một số.

Cú pháp: = FACT(number)
number: số cần tính giai thừa

Lưu ý:
- number phải là một số dương

- Nếu number là số thập phân, FACT() sẽ lấy phần nguyên của number để tính

Ví dụ:
FACT(5) = 120 (5! = 1 x 2 x 3 x 4 x 5 = 120)

FACT(2.9) = 2 (2! = 1 x 2 = 2)

FACT(0) = 1 (0! = 1)

FACT(-3) = #NUM!

7. Hàm FACTDOUBLE()

Tính giai thừa cấp hai của một số.

Giai thừa cấp hai (ký hiệu bằng hai dấu !!) được tính như sau:

- Với số chẵn: n!! = n x (n-2) x (n-4) x ... x 4 x 2

- Với số lẻ: n!! = n x (n-2) x (n-4) x ... x 3 x 1

Cú pháp: = FACTDOUBLE(number)
number: số cần tính giai thừa cấp hai

Lưu ý:
- number phải là một số dương

- Nếu number là số thập phân, FACTDOUBLE() sẽ lấy phần nguyên của number để tính

Ví dụ:
FACTDOUBLE(6) = 48 (6!! = 6 x 4 x 2 = 24)

FACTDOUBLE(7) = 105 (7!! = 7 x 5 x 3 x 1 = 105)

8. Hàm CEILING() và Hàm FLOOR()

Hai hàm này, hao hao giống hàm MROUND(), là làm tròn đến bội số gần nhất của một số được chỉ định, chỉ khác đôi chút về cách tính: CEILING() luôn luôn làm tròn một số ra xa số 0, còn FLOOR() làm tròn về số 0.

Cú pháp:

= CEILING(number, significance)
= FLOOR(number, significance)
number: Con số sẽ làm tròn

significance: Con số mà bạn cần làm tròn number đến bội số của nó
- Nếu number và significancekhác dấu, hàm sẽ báo lỗi #NUM!
- Nếu number là bội số của significance, kết quả là chính số đó

Ví dụ: So sánh giữa CEILING(), FLOOR() và MROUND() - ở ví dụ này, xem như significance là multiple của MROUND()

undefined

9. Hàm GCD()

GCD là viết tắt của chữ Greatest Common Divisor: Ước số chung lớn nhất.

Cú pháp: = GCD(number1, number2 [,number3...])
number1, number2...: những số mà bạn bạn cần tìm ước số chung lớn nhất

GCD() có thể tìm ước số chung lớn nhất của một dãy có đến 255 giá trị (với Excel 2003 trở về trước thì con số này là 19)

Lưu ý:

Nếu có bất kỳ một number nào < 0, GCD() sẽ báo lỗi #NUM!

Nếu có bất kỳ một number nào không phải là một con số, GDC() sẽ báo lỗi #VALUE!

Nếu number là số thập phân, GCD() chỉ tính toán với phần nguyên của nó.

Ví dụ: GCD(5, 2) = 1 ; GCD(24, 36) = 12 ; GCD(5, 0) = 5

10. Hàm INT() và hàm TRUNC()

Hai hàm này gần như giống nhau nếu như bạn muốn làm tròn một số thành một số nguyên.

Cú pháp:

= INT(number)

= TRUNC(number [, num_digits])

number: Số cần làm tròn
num_digits: Là một số nguyên, chỉ cách mà bạn muốn cắt bớt số

num_digits > 0 : nếu number là một số thập phân, thì num_digits chỉ ra số con số thập phân mà bạn muốn giữ lại (sau dấu phẩy)

num_digits = 0 hoặc không nhập: cắt bỏ hết phần thập phân của number (nếu có)

num_digits < 0 : làm tròn number thành một số nguyên và làm tròn number sang trái thành một bội số của 10 (xem thêm ở ví dụ)

Hàm INT() làm tròn một số tới số nguyên gần nhất

Đối với số dương, hàm INT() và TRUNC() cho kết quả giống nhau (num_digits của TRUNC() = 0 hoặc không có), nhưng đối với số âm thì hai hàm này sẽ cho kết quả hoàn toàn khác nhau.
Ví dụ:
INT( 123.456) = 123 | TRUNC( 123.456) = 123

INT(-123.456) = -124 | TRUNC(-123.456) = -123

Khi num_digits khác 0, TRUNC() khác hẳn với ROUND() ở chỗ: ROUND() thì làm tròn, còn TRUNC() chỉ cắt bỏ bớt số chứ không làm tròn.

Một số ví dụ về hàm TRUNC()

undefined
admin - April 7, 2008 03:09 AM (GMT)

11. Hàm LCM()

LCM là viết tắt của chữ Lowest common multiple: Bội số chung nhỏ nhất.
Cú pháp: = LCM(number1, number2 [,number3...])
number1, number2...: những số mà bạn bạn cần tìm bội số chung nhỏ nhất

LCM() có thể tìm bội số chung nhỏ nhất của một dãy có đến 255 giá trị (với Excel 2003 trở về trước thì con số này là 19)

Lưu ý:

Hàm LCM()

LCM là viết tắt của chữ Lowest common multiple: Bội số chung nhỏ nhất.
Cú pháp: = LCM(number1, number2 [,number3...])
number1, number2...: những số mà bạn bạn cần tìm bội số chung nhỏ nhất

LCM() có thể tìm bội số chung nhỏ nhất của một dãy có đến 255 giá trị (với Excel 2003 trở về trước thì con số này là 19)

Lưu ý:
Nếu có bất kỳ một number nào < 0, GDC() sẽ báo lỗi #NUM!

Nếu có bất kỳ một number nào không phải là một con số, GDC() sẽ báo lỗi #VALUE!

Nếu number là số thập phân, LCM() chỉ tính toán với phần nguyên của nó.

Ví dụ: LCM(5, 2) = 10 ; LCM(24, 36) = 72

Nếu có bất kỳ một number nào < 0, GDC() sẽ báo lỗi #NUM!

Nếu có bất kỳ một number nào không phải là một con số, GDC() sẽ báo lỗi #VALUE!

Nếu number là số thập phân, LCM() chỉ tính toán với phần nguyên của nó.

Ví dụ: LCM(5, 2) = 10 ; LCM(24, 36) = 72

12. Hàm LN()

Tính logarit tự nhiên của một số (logarit cơ số e = 2.71828182845905...)

Cú pháp: = LN(number)
number: số thực, dương mà ta muốn tính logarit tự nhiên (logarit cơ số e) của nó

Lưu ý:
- Hàm LN() là nghịch đảo của hàm EXP(): tính lũy thừa của cơ số e

Ví dụ:
LN(86) = 4.454347 (logarit cơ số e của 86)
LN(2.7181818) = 1 (logarit cơ số e của e)
LN(EXP(3)) = 3 (logarit cơ số e của e lập phương)

13. Hàm LOG()

Tính logarit của một số với cơ số được chỉ định

Cú pháp: = LOG(number [, base])
number: Số thực, dương mà ta muốn tính logarit tự nhiên (logarit cơ số e) của nó
base: Cơ số để tính logarit (mặc định là 10) - Nếu bỏ trống, hàm LOG() tương đương với hàm LOG10()

Ví dụ:
LOG(10) = 1 (logarit cơ số 10 của 10)
LOG(8, 2) = 3 (logarit cơ số 2 của 8)
LOG(86, 2.7182818) = 4.454347 (logarit cơ số e của 86)

14. Hàm LOG10()

Tính logarit cơ số 10 của một số

Cú pháp: = LOG10(number)
number: số thực, dương mà ta muốn tính logarit tự nhiên (logarit cơ số e) của nó
Ví dụ:

LOG10(10) = LOG(10) = 1 (logarit cơ số 10 của 10)
LOG10(86) = LOG(86) = 1.93449845 (logarit cơ số 10 của 86)
LOG10(1E5) = 5 (logarit cơ số 10 của 1E5)
LOG10(10^5) = 5 (logarit cơ số 10 của 10^5)

15. MDETERM (array) : Tính định thức của một ma trận

Trước khi trình bày các hàm về ma trận, xin giải thích chút xíu về định nghĩa ma trận.

Định nghĩa Ma Trận

Ma trận là một bảng có m hàng và n cột

undefined

A còn được gọi là một ma trận cỡ m x n
Một phần tử ở hàng thứ i và cột thứ j sẽ được ký hiệu là undefined

Hàm MDETERM()

MDETERM viết tắt từ chữ Matrix Determinant: Định thức ma trận
Hàm này dùng để tính định thức của một ma trận vuông

Cú pháp: = MDETERM(array)
array: mảng giá trị chứa ma trận vuông (có số hàng và số cột bằng nhau)

Lưu ý:
- array có thể một dãy ô như A1:C3; hoặc một mảng như {1,2,3 ; 4,5,6 ; 7,8,9}; hoặc là một khối ô đã được đặt tên...

- Hàm MDETERM() sẽ báo lỗi #VALUE! khi:

array không phải là ma trận vuông (số hàng khác số cột)
Có bất kỳ 1 vị trí nào trong array là rỗng hoặc không phải là dữ liệu kiểu số
- Hàm MDETERM() có thể tính chính xác với ma trận 4 x 4 (có 16 ký số)

- Ví dụ về cách tính toán của hàm MDETERM() với ma trận 3 x 3 (A1:C3):

MDETERM(A1:C3) = A1*(B2*C3 - B3*C2) + A2*(B3*C1 - B1*C3) + A3*(B1*C2 - B2*C1)

Ví dụ:

MDETERM(A14) = 88

undefined

MDETERM(A1:C4) = #VALUE! (A1:C4 không phải là ma trận vuông)

MDETERM({3,6,1 ; 1,1,0 ; 3,10,2}) = 1

MDETERM({3,6 ; 1,1}) = 1

16. Hàm MINVERSE()

MINVERSE viết tắt từ chữ Matrix Inverse: Ma trận nghịch đảo
Hàm này dùng để tính ma trận nghịch đảo của một ma trận vuông

Cú pháp: = MINVERSE(array)
array: mảng giá trị chứa ma trận vuông (có số hàng và số cột bằng nhau)

Lưu ý:
- array có thể một dãy ô như A1:C3; hoặc một mảng như {1,2,3 ; 4,5,6 ; 7,8,9}; hoặc là một khối ô đã được đặt tên...

- Giống hàm MDETERM, hàm MINVERSE() sẽ báo lỗi #VALUE! khi:

array không phải là ma trận vuông (số hàng khác số cột)

Có bất kỳ 1 vị trí nào trong array là rỗng hoặc không phải là dữ liệu kiểu số

Ma trận không thể tính nghịch đảo (ví dụ ma trận có định thức = 0)

- Hàm MINVERSE() có thể tính chính xác với ma trận 4 x 4 (có 16 ký số)

Ví dụ về cách sử dụng hàm MINVERSE():

Ví dụ bạn có một ma trận A14, để tìm ma trận nghịch đảo của ma trận này, bạn quét chọn một khối ô tương ứng với A14, ví dụ A69 (cùng có 4 hàng và 4 cột), tại A6, gõ công thức = MINVERSE(A14) và sau đó nhấn Ctrl-Shift-Enter, bạn sẽ có kết quả tại A69 là một ma trận nghịch đảo của ma trận A14

undefined

17. Hàm MMULT()

MMULT viết tắt từ chữ Matrix Multiple: Ma trận tích
Hàm này dùng để tính tích của hai ma trận

Cú pháp: = MMULT(array1, array2)
array1, array 2: mảng giá trị chứa ma trận

Lưu ý:
- array1, array2 có thể một dãy ô như A1:C3; hoặc một mảng như {1,2,3 ; 4,5,6 ; 7,8,9}; hoặc là một khối ô đã được đặt tên...

- Số cột của array1 phải bằng số dòng của array2
- Công thức tính tích hai ma trận (A = B x C) có dạng như sau:

Trong đó: i là số hàng của array1 (B), j là số cột của array2 ©; n là số cột của array1 (= số dòng của array2)

- Nếu có bất kỳ một phần tử nào trong hai ma trận là rỗng hoặc không phải là dữ liệu kiểu số, MMULT() sẽ báo lỗi #VALUE!

- Để có kết quả chính xác ở ma trận kết quả, phải dùng công thức mãng

Ví dụ:

Mời bạn xem hình sau:

undefined

Để tính tích của hai ma trận B và C, quét chọn khối C78
gõ công thức = MMULT(A2:C3,E2:F4) rồi nhấn Ctrl-Shift-Enter
sẽ có kết quả là ma trận A như trên hình.

18. Hàm MOD()

Dùng để lấy số dư của một phép chia

Cú pháp: = MOD(number, divisor)
number: Số bị chia
divisor: Số chia

Ví dụ: MOD(24, 10) = 4 (24 chia 10 được 2, dư 4)

Một công thức để tính toán số thời gian chênh lệch:

Chúng ta đã biết cách để tính số thời gian chênh lệch, đó là lấy thời gian hoàn thành (EndTime) trừ đi thời gian bắt đầu (StartTime), và để phòng hờ trường hợp thời gian xuyên qua một ngày (khi đó có thể thời gian lúc hoàn thành nhỏ hơn thời gian bắt đầu, ví dụ làm từ 20 giờ ngày hôm trước đến 8 giờ ngày hôm sau), thì ta dùng công thức:
= IF(EndTime < StartTime, 1 + EndTime - StartTime, EndTime - StartTime)

Tuy nhiên, ta cũng đã biết rằng, Excel tính toán với thời gian như tính toán với một con số chạy từ 0 cho tới 1, và lại bắt đầu từ 0 vào lúc nửa đêm. Do đó, ta có thể dùng hàm MOD() để thay cho công thức ở trên:
= MOD(EndTime - StartTime, 1)

Ví dụ:

Tính số thời gian làm việc từ 10 giờ sáng đến 11 giờ đêm:
= MOD(23:00 - 10:00, 1) = 13

Tính số thời gian làm việc từ 10 giờ đêm đến 11 giờ trưa hôm sau:
= MOD(11:00 - 22:00, 1) = 13

Cộng các ô cách nhau một số hàng cố định

Có một bài toán như sau:

Trong một cột dữ liệu, người ta muốn tính tổng của cách ô cách nhau mỗi n hàng nào đó.
Ví dụ, trong dãy A1:A20, tính tổng của các ô cách nhau 5 ô, nghĩa là lấy A1 + A6 + A11 + A16

Nói tới hàng, ta nghĩ đến hàm ROW(): ROW(A1) = 1, ROW(A6) = 6, v.v...

Và ở ví dụ vừa nêu trên đây, ta để ý các con số 1, 6, 11, 16 khi đem chia cho 5 đều dư 1, vậy ta nghĩ đến hàm MOD(), lấy số thứ tự của hàng chia cho 5: MOD(ROW(A1), 5) = 1, MOD(ROW(A6), 5) = 1, v.v...

Vậy ta sẽ lập công thức cho mảng A1:A20:
Xét trong khối A1:A20, ô nào có số thứ tự của hàng chia cho 5 mà dư 1, thì lấy các ô đó cộng lại:

{= SUM(IF(MOD(ROW(A1:A20), 5) = 1, A1:A20, 0))}

Hay cụ thể hơn, gọi dãy ô để tính tổng là range, và số hàng cách nhau giữa các ô là n, ta sẽ có công thức:

{= SUM(IF(MOD(ROW(range), n) = 1, range, 0))}

Con số 1 ở đây không phải là con số cố định, mà nó là số dư của phép chia của số thứ tự cho n. Do đó, tùy vào điều kiện của bài toán mà ta thay bằng con số thích hợp.
Chẳng hạn, cũng ví dụ trên đây, như ta muốn tính tổng của các ô A2, A7, A12, A17 thì công thức sẽ là:

{= SUM(IF(MOD(ROW(A1:A20), 5) = 2, A1:A20, 0))}

(2 là số dư của 2, 7, 12, 17 cho 5)

Cộng các ô có số thứ tự hàng là chẵn, hoặc có số thứ tự hàng là lẻ

Từ bài toán trên đây, ta có công thức để cộng các ô có số thứ tự hàng làm chẵn:

{= SUM(IF(MOD(ROW(Range), 2) = 0, Range, 0))}

Và công thức để cộng các ô có số thứ tự hàng làm lẻ:

{= SUM(IF(MOD(ROW(Range), 2) = 1, Range, 0))}

Xem một năm có phải là năm nhuận hay không

Nếu bạn muốn có một công thức để xem thử một năm nào đó có phải là năm nhuận hay không, bạn có thể dùng hàm MOD().
Năm nhuận, là năm chia hết cho 4, hay phép dư của phép chia số năm cho 4 thì bẳng 0 ở công thức sau đây:
= MOD(year, 4)

Số năm phải là một con số có 4 chữ số.

Công thức trên chỉ đúng trong khoảng từ năm 1901 đến 2099 (có lẽ chúng ta cũng sống tối đa trong khoảng thời gian này thôi). Công thức này không đúng với năm 1900 và 2100, bởi vì điều kiện để tính năm nhuận còn có chuyện: Năm nhuận là năm chia hết cho 4, nếu năm này tận cùng bằng hai con số 0 thì nó phải chia hết cho 400 (ví dụ, năm 2000).

Vậy, để có một công thức đúng cho tất cả mọi năm, ta làm một công thức luận lý như sau:
= (MOD(year, 4) = 0) - (MOD(year, 100) = 0) + (MOD(year, 400) = 0)

Nếu công thức này cho đáp số là 1 (TRUE), thì đó là năm nhuận, còn nếu cho đáp số là 0 (FALSE), thì đó không phải là năm nhuận.

Ứng dụng của hàm MOD() trong định dạng bảng tính

Chắc cũng có một lúc nào đó, bạn thích định dạng cho bảng tính của mình theo kiểu Ledger Shading. Ledger Shading là kiểu định dạng các hàng có màu xen kẽ nhau (ví dụ, xanh và trắng). Loại định dạng này thích hợp cho những danh sách dài, có nhiều cột, giúp ta phân biệt được hàng này với hàng kia cách dễ dàng, ít khi bị nhìn lầm dữ liệu giữa các hàng...

Hình sau đây là một ví dụ:

undefined

Dĩ nhiên là việc này rất dễ thực hiện, chúng ta chỉ cần chọn các hàng xen kẽ nhau và tô màu cho nó. Tuy nhiên, nếu làm thủ công bằng tay, thì sẽ có một số bất tiện sau:

- Rất lâu cho những bảng dữ liệu lớn.

- Mỗi khi chèn thêm một hàng hoặc xóa bớt một hàng, thì phải định dạng lại.

Để tránh những bất tiện đó, bạn có thể dùng một liên kết giữa hàm MOD() và chức năng Conditional Formatting (định dạng có điều kiện) của Excel.

Cách làm như sau:

1. Chọn vùng bạn muốn định dạng

2. Gọi hộp thoại Conditional Formatting, và chọn New Ruler để mở hộp thoại New Formatting Ruler

3. Chọn Use a Formula to Determine Which Cells to Format

Trong khung Format values where this formular is true, gõ công thức = MOD(ROW(), 2)

undefined

4. Nhấn nút Format... để mở hộp thoại Format Cells

5. Chọn tab Fills, chọn màu bạn thích tô cho các hàng xen kẽ với màu trắng, rồi nhấn OK để quay về hộp thoại New Formatting Ruler

6. Nhấn OK

Công thức = MOD(ROW(), 2) sẽ trả về 1 cho những hàng có số thứ tự lẻ và trả về 0 cho những hàng có số thứ tự chẵn. Bởi vì 1 thì tương đương với TRUE, nên Excel sẽ áp dụng màu tô mà bạn đã chọn cho tất cả những hàng có số thứ tự lẻ trong vùng bạn muốn định dạng, và bỏ qua những hàng có số thứ tự chẵn.

Tương tự,

- Nếu muốn định dạng các cột có màu xen kẽ, bạn chỉ cần thay công thức ở trên thành:
= MOD(COLUMN(), 2)

- Nếu thích định dạng cho hàng có số thứ tự lẻ thì không tô màu, còn hàng có số thứ tự chẵn mới tô màu, bạn thay đổi công thức trên một tí:
= MOD(ROW() + 1, 2)

19. Hàm MROUND()

Làm tròn đến bội số của một số khác

Cú pháp: = MROUND(number, multiple)
number: Con số sẽ làm tròn

multiple: Con số mà bạn cần làm tròn number đến bội số của nó
- Nếu number và multiple khác dấu, hàm sẽ báo lỗi #NUM!
- Nếu number và multiple bằng nhau, kết quả là chính số đó
- MROUND() sẽ làm tròn lên, nếu phần chia của phép chia number cho multiple lớn hơn hoặc bằng 1/2 multiple, và làm tròn xuống nếu phần chia của phép chia number cho multiple nhỏ hơn 1/2 multiple

Ví dụ:
MROUND(5, 2) = 6 (do 5/2 > 2/2, bội số của 2 gần nhất mà lớn hơn 5 là 6)
MROUND(11, 5) = 10 (do 11/5 < 5/2, bội số của 5 gần nhất mà nhỏ hơn 11 là 10)
MROUND(13, 5) = 15 (do 13/5 > 5/2, bội số của 5 gần nhất mà lớn hơn 13 là 15)
MROUND(5, 5) = 5 (number và multiple bằng nhau)
MROUND(7.31, 0.5) = 7.5 (do 7.31/0.5 > 0.5/2, bội số của 0.5 gần nhất mà lớn hơn 7.31 là 7.5)
MROUND(-11, -5) = -10 (do -11/-5 > -5/2, bội số của -5 gần nhất mà lớn hơn -11 là -10)
MROUND(-11, 5) = #NUM! (number và multiple khác dấu)

20. Hàm MULTINOMIAL()

Dùng để tính tỷ lệ giữa giai thừa tổng và tích giai thừa của các số

Xin ví dụ cho dễ hiểu: Giả sử ta có 3 số a, b và c

undefined

Cú pháp: = MULTINOMIAL(number1, number2, ...)

number1, number2,... : là những con số mà ta muốn tính tỷ lệ giữa giai thừa tổng và tích giai thừa của chúng

Ghi chú:

- number1, number2, ... có thể lên đến 255 con số (với Excel 2003 trở về trước, con số này chỉ là 30)

- Nếu có bất kỳ một number nào không phải là dữ liệu kiểu số, MULTINOMIAL() sẽ báo lỗi #VALUE!

Nếu có bất kỳ một number nào < 0, MULTINOMIAL() sẽ báo lỗi #NUM!

Ví dụ: MULTINOMIAL(2, 3, 4) = 1,260

admin - April 7, 2008 03:33 AM (GMT)

21. Hàm EVEN() và Hàm ODD()

Hai hàm này làm tròn rất đơn giản. EVEN() làm tròn đến số nguyên chẵn gần nhất, còn ODD() làm tròn đến số nguyên lẻ gần nhất. Cả hai đều làm tròn theo kiểu chạy xa khỏi số 0.

Cú pháp: = EVEN(number) | = ODD(number)

Ví dụ:

EVEN(14.2) = 16
EVEN(-23) = 24
ODD(58.1) = 59
ODD(-6) = -7

22. Hàm PI()

Trả về giá trị của số Pi = 3.14159265358979, lấy chính xác đến 15 chữ số.

Cú pháp: = PI()
Hàm này không có tham số

Ví dụ:
PI() = 3.14159265358979
PI()/2 = 1.570796327
PI()*(3^2) = 28.27433388

23. Hàm POWER()

Tính lũy thừa của một số.
Có thể dùng toán tử ^ thay cho hàm này. Ví dụ: POWER(2, 10) = 2^10

Cú pháp: = POWER(number, power)

Trong đó:

number: Số cần tính lũy thừa

power: Số mũ

Ví dụ:
POWER(5, 2) = 25
POWER(98.6, 3.2) = 2,401,077
POWER(4, 5/4) = 5.656854

24. Hàm PRODUCT()

Dùng để tính tích của các số

Cú pháp: = PRODUCT(number1, number2, ...)

number1, number2,... : là những con số mà ta muốn tính tỷ lệ giữa giai thừa tổng và tích giai thừa của chúng

Ghi chú:

- number1, number2, ... có thể lên đến 255 con số (với Excel 2003 trở về trước, con số này chỉ là 30)

- Nếu các number nằm trong một mảng dữ liệu, thì chỉ có những giá trị kiểu số trong mảng đó mới được tính; những giá trị không phải là kiểu số sẽ được bỏ qua.

Ví dụ: PRODUCT(2, 3, 4) = 24

25. Hàm QUOTIENT()

Lấy phần nguyên của phép chia.

Cú pháp: = QUOTIENT(numberator, denominator)

numberator: Số bị chia

denominator: Số chia

Ghi chú:

- Nếu các thông số không phải là dữ liệu kiểu số, hàm sẽ báo lỗi #VALUE!

- Hàm này tương đương với hàm INT(): QUOTIENT(a, b) = INT(a/b)

Ví dụ:
QUOTIENT(5, 2) = 2
QUOTIENT(4.5, 3.1) = 1
QUOTIENT(-10, 3) = -3

Đôi khi, chúng ta cần có một dữ liệu mô phỏng để thử nghiệm một công việc, một kế hoạch gì đó, và cần điền một vài con số vào để có cái mà thử nghiệm. Trong nhiều trường hợp, chúng ta sẽ cần có những con số ngẫu nhiên, không biết trước. Excel cung cấp cho chúng ta hai hàm để lấy số ngẫu nhiên, đó là RAND() và RANDBETWEEN().

26. Hàm RAND()

Cú pháp: = RAND()

Hàm RAND() trả về một con số ngẫu nhiên lớn hơn hoặc bằng 0 và nhỏ hơn 1. Nếu dùng hàm để lấy một giá trị thời gian, thì RAND() là hàm thích hợp nhất.

Bên cạnh đó, cũng có những cách để ép RAND() cung cấp cho chúng ta những con số ngẫu nhiên nằm giữa hai giá trị nào đó.
Để lấy một số ngẫu nhiên lớn hơn hoặc bằng 0 và nhỏ hơn n, ta dùng cú pháp:
RAND() * n
Ví dụ, công thức sau đây sẽ cung cấp cho chúng ta một con số ngẫu nhiên giữa 0 và 30:

= RAND() * 30

Trường hợp khác, mở rộng hơn, chúng ta cần có một con số ngẫu nhiên lớn hơn hoặc bằng số m nào đó, và nhỏ hơn số n nào đó, ta dùng cú pháp:
RAND() * (n - m) + m
Ví dụ, để lấy một số ngẫu nhiên lớn hơn hoặc bằng 100 và nhỏ hơn 200, ta dùng công thức:

= RAND() * (200 - 100) + 100

Lưu ý:

Do hàm RAND() là một hàm biến đổi (volatile function), tức là kết quả do RAND() cung cấp có thể thay đổi mỗi khi bạn cập nhật bảng tính hoặc mở lại bảng tính, ngay cả khi bạn thay đổi một ô nào đó trong bảng tính...

Để có một kết quả ngẫu nhiên nhưng không thay đổi, bạn dùng cách sau:
Sau khi nhập công thức = RAND() vào, bạn nhấn F9 và sau đó nhấn Enter. Động tác này sẽ lấy một con số ngẫu nhiên ngay tại thời điểm gõ công thức, nhưng sau đó thì luôn dùng con số này, vì trong ô nhập công thức sẽ không còn hàm RAND() nữa.

Lấy một số ngẫu nhiên nguyên dương, gồm có x chữ số

Trong một số trường hợp, bài toán yêu cầu của chúng ta là lấy một số ngẫu nhiên nguyên, dương và gồm có 6 chữ số; hoặc chúng ta muốn có một cái mã số thuế ngẫu nhiên (nguyên, dương, có 10 chữ số), v.v...

Dựa vào công thức lấy số ngẫu nhiên trong một khoảng ở ví dụ trên, ta dùng hàm INT() để lấy phần nguyên:
INT(RAND() * (n - m) + m)

Và trong trường hợp này, để lấy một số ngẫu nhiên mà cố định số chữ số, chúng ta sẽ đặt n = 10^x và m = 10^(x-1); với x là số chữ số theo yêu cầu (dấu ^ là lũy thừa).

Chẳng hạn, để lấy một con số ngẫu nhiên có 8 chữ số, ta dùng công thức:

= INT(RAND() * (100000000 - 10000000) + 10000000)

Công thức này sẽ cho chúng ta một con số ngẫu nhiên lớn hơn hoặc bằng 10,000,000 và nhỏ hơn 99,999,999

Lấy một ký tự ngẫu nhiên

Ngoài việc cho kết quả là một con số ngẫu nhiên, hàm RAND() có thể cho cho kết quả là một ký tự ngẫu nhiên không ? Thưa được.

Ví dụ, để lấy một ký tự ngẫu nhiên trong bảng chữ cái tiếng Anh:

Chúng ta biết rằng bảng chữ cái tiếng Anh có 26 chữ cái, vậy trước hết ta sẽ yêu cầu RAND() cung cấp cho ta một con số ngẫu nhiên giữa 1 và 26:

INT(RAND() * 26 + 1)

Bây giờ, dựa theo bảng mã ANSI, ta biết những ký tự viết hoa (A tới Z) nằm từ mã ANSI 65 đến mã ANSI 90, và hàm dùng để lấy kết quả là chữ dựa vào bảng mã ANSI là CHAR(), ta có công thức sau:

= CHAR(INT(RAND() * 26 + 1) + 64)

Tương tự, để lấy một ký tự ngẫu nhiên là ký tự viết thường (a tới z), nằm từ mã ANSI 97 đến mã ANSI 122, ta dùng công thức:

= CHAR(INT(RAND() * 26 + 1) + 96)

Mỗi ký tự mà chúng ta có thể nhập vào màn hình này, đều mang một mã số (numeric code). Ví dụ, chữ A (hoa) là 65, dấu & (và) là số 38...

Những ký tự này, có cái chúng ta có thể nhập trực tiếp từ bàn phím, tuy nhiên cũng có những ký tự chúng ta phải nhập bằng phím Alt và một mã số thích hợp ở bên bàn phím số. Ví dụ, mã số của ký tự bản quyền © là 169, để gõ ký tự này, chúng ta sẽ nhấn Alt+0169 (dùng số bên nhóm phím số, và nhớ là luôn luôn thêm số 0 cho những ký tự lớn hơn 127).

Tất cả những mã số đại diện cho các ký tự này, người ta thường gọi là bảng mã ANSI (The ANSI code). Bảng mã ANSI gồm từ 1 đến 255, tuy nhiên 31 số đầu tiên chỉ là những ký tự rỗng, ký tự đặc biệt (dấu ngắt câu, xuống hàng, v.v...)

27. Hàm CHAR()

Chuyển đổi một mã số trong bộ mã ANSI (có miền giá trị từ 1 - 255) sang ký tự tương ứng.

Cú pháp: = CHAR(number)
Number : là một mã số trong bảng mã ANSI.

Ví dụ: Để kết quả có được là ký tự bản quyền ©, chúng ta nhập: = CHAR(169)

Ở bài trên, tôi đã trình bày cách lấy một số ngẫu nhiên nằm trong một khoảng {n, m} nào đó:
= RAND() * (n - m) + m
Có một hàm nữa trong Excel có chức năng tương tự công thức trên: Hàm RANDBETWEEN().
RANDBETWEEN() chỉ khác RAND() ở chỗ: RANDBETWEEN() cho kết quả là số nguyên, còn RAND() thì cho kết quả vừa là số nguyên vừa là số thập phân.

28. Hàm RANDBETWEEN()

Hàm RANDBETWEEN() trả về một số nguyên ngẫu nhiên nằm trong một khoảng cho trước.

Cú pháp: = RANDBETWEEN(bottom, top)

bottom: Số nhỏ nhất trong dãy tìm số ngẫu nhiên (kết quả sẽ lớn hơn hoặc bằng số này)

top: Số lớn nhất trong dãy tìm số ngẫu nhiên (kết quả sẽ nhỏ hơn hoặc bằng số này)

Ví dụ: = RANDBETWEEN(0, 59) sẽ cho kết quả là một số nguyên nằm trong khoảng 0 tới 59.

29. Hàm ROMAN()

Dùng để chuyển đổi một số dạng Ả-rập sang dạng số La-mã

Cú pháp: = ROMAN(number, form)

number: Số cần chuyển đổi

form: dạng chuyển đổi
0 (hoặc TRUE, hoặc không nhập): Dạng cổ điển

1 cho đến 3: Dạng cổ điển nhưng được rút gọn, số càng lớn rút gọn càng nhiều (xem thêm ở ví dụ)

4 (hoặc FALSE): Dạng hiện đại

Chú ý:

number phải là số dương, nếu number < 0 hàm sẽ báo lỗi #VALUE!

Nếu number là số thập phân, ROMAN() chỉ chuyển đổi phần nguyên của nó

Hàm ROMAN() chỉ xử lý được tới số lớn nhất là 3999, nếu number > 3999 hàm sẽ báo lỗi #VALUE!

Sau khi đã chuyển đổi, kết quả sẽ là một dữ liệu dạng text, và không thể tính toán với nó được nữa

Ví dụ:

ROMAN(499, 0) = CDXCIX = ROMAN(499) = ROMAN(499, TRUE)

ROMAN(499, 1) = LDVLIV

ROMAN(499, 2) = XDIX

ROMAN(499, 3) = VDIV

ROMAN(499, 4) = ID = ROMAN(499, FALSE)

ROMAN(2008) = MMVIII

30. Hàm ROUND()

Cú pháp: = ROUND(number, num_digits)

number: Con số sẽ làm tròn
num_digits: Là một số nguyên, chỉ cách mà bạn muốn làm tròn
num_digits > 0 : làm tròn đến số thập phân được chỉ định
num_digits = 0 : làm tròn đến số nguyên gần nhất
num_digits < 0 : làm tròn đến phần nguyên được chỉ định

Ví dụ: Với con số 1234.5678
ROUND(1234.5678, 3) = 1234.568
ROUND(1234.5678, 2) = 1234.57
ROUND(1234.5678, 1) = 1234.6
ROUND(1234.5678, 0) = 1235
ROUND(1234.5678, -1) = 1230
ROUND(1234.5678, -2) = 1200
ROUND(1234.5678, -3) = 1000

admin - April 7, 2008 03:57 AM (GMT)

31. Hàm ROUNDDOWN() và Hàm ROUNDUP()

Hai hàm này, về cơ bản thì giống hàm ROUND(), chỉ khác là chúng chỉ làm tròn theo một chiều: ROUNDDONW() luôn luôn làm tròn một số về số 0, còn ROUNDUP() thì luôn luôn làm tròn một số ra xa số 0.

Cú pháp:

= ROUNDDOWN(number, num_digits)
= ROUNDUP(number, num_digits)

number: Con số sẽ làm tròn
num_digits: Là một số nguyên, chỉ cách mà bạn muốn làm tròn
num_digits > 0 : làm tròn đến số thập phân được chỉ định

num_digits = 0 : làm tròn đến số nguyên gần nhất

num_digits < 0 : làm tròn đến phần nguyên được chỉ định

Ví dụ: So sánh giữa ROUNDDOWN() và ROUNDUP()

undefined

32. Hàm SERIESSUM()

Dùng để tính tổng lũy thừa của một chuỗi số, theo công thức sau đây:

undefined

Cú pháp: = SERIESSUM(x, n, m, coefficients)

x : giá trị nhập vào cho chuỗi lũy thừa

n : lũy thừa khởi tạo để tăng tới x

m : bước tăng cho mỗi phần tử trong chuỗi

coefficients : tập hợp hệ số sẽ được nhân với mỗi lũy thừa của x

Các thông số này phải là các dữ liệu kiểu số, nếu không, hàm sẽ báo lỗi #VALUE!

Ví dụ:

SERIESSUM(5, 0, 2, {1, 2, 3, 4}) = 64,426

Diễn giải chi tiết: (x = 5, n = 0, m = 2, coefficients = 1, 2, 3, 4)

undefined

33. Hàm SIGN()

Trả về dấu của số: 1 nếu là số dương, 0 (zero) nếu là số 0 và -1 nếu là số âm.

Cú pháp: = SIGN(number)

Ví dụ:
SIGN(10) = 1
SIGN(4-4) = 0
SIGN(-0.057) = -1

34. Hàm SQRT()

Dùng để tính căn bậc hai của một số

Cú pháp: = SQRT(number)

number: Số thực, dương (nếu number < 0 hàm sẽ báo lỗi #NUM!)

Ví dụ: Giả sử ở ô A2, có con số -16

SQRT(16) = 4
SQRT(A2) = #NUM!
SQRT(ABS(A2)) = 4

35. Hàm SQRTPI()

Dùng để tính căn bậc hai của một số nhân với Pi (= 3.14159265358979)

Cú pháp: = SQRTPI(number)

number: Số thực, dương nhân với Pi (nếu number < 0 hàm sẽ báo lỗi #NUM!)

Ví dụ: Giả sử ở ô A2, có con số -16

SQRT(1) = 1.772454 (căn bậc hai của Pi)
SQRT(2) = 2.506628 (căn bậc hai của 2*Pi)

36. Hàm SUBTOTAL()

Hàm SUBTOTAL là một hàm rất linh hoạt nhưng cũng là một trong các hàm hơi khó sử dụng của Excel. Điều khó hiểu thứ nhất chính là cái tên của nó, vì nó thực sự làm được nhiều thứ hơn ý nghĩa của tên hàm. Đối số thứ nhất của hàm bắt buộc bạn phải nhớ con số đại diện cho phép tính cần thực hiện trên tập số liệu (trong Excel 2007 có tính năng AutoComplete giúp chúng ta khỏi nhớ các con số này). Hàm SUBTOTAL được Microsoft nâng cấp kể từ phiên bản Excel 2003 với sự gia tăng các tuỳ chọn cho đối số thứ nhất của hàm, tuy nhiên điều này dẫn đến sự không tương thích với các phiên bản cũ nếu chúng ta sử dụng các tính năng mới bổ sung này.

Đối số đầu tiên của của hàm SUBTOTAL xác định hàm thực sự nào sẽ được sử dụng khi tính toán (xem trong danh sách bên dưới). Ví dụ nếu đối số là 1 thì hàm SUBTOTAL hoạt động giống nhưng hàm AVERAGE, nếu đối số thứ nhất là 9 thì hàm hàm SUBTOTAL hoạt động giống nhưng hàm SUM.

SUBTOTAL là hàm tính toán cho một nhóm con trong một danh sách hoặc bảng dữ liệu tuỳ theo phép tính mà bạn chọn lựa trong đối số thứ nhất.

Cú pháp: = SUBTOTAL(function_num, ref1, ref2,...)
Function_num: Các con số từ 1 đến 11 (hay 101 đến 111) qui định hàm nào sẽ được dùng để tính toán trong SUBTOTAL

undefined

Ref1, ref2: Các vùng địa chỉ tham chiếu mà bạn muốn thực hiện phép tính trên đó.
Trong Excel 2007, bạn có thể dùng đến 254 ref (với Excel 2003 trở vế trước thì con số này chỉ là 29)

Ghi chú:

- Nếu có hàm SUBTOTAL khác đặt lồng trong các đối số ref1, ref2,… thì các hàm lồng này sẽ bị bỏ qua không được tính, nhằm tránh trường hợp tính toán 2 lần.
- Đối số function_num nếu từ 1 đến 11 thì hàm SUBTOTAL tính toán bao gồm cả các giá trị ẩn trong tập số liệu (hàng ẩn). Đối số function_num nếu từ 101 đến 111 thì hàm SUBTOTAL chỉ tính toán cho các giá trị không ẩn trong tập số liệu (bỏ qua các giá trị ẩn).
- Hàm SUBTOTAL sẽ bỏ qua không tính toán tất cả các hàng bị ẩn bởi lệnh Filter (Auto Filter) mà không phụ thuộc vào đối số function_num được dùng (1 giống 101...).
- Hàm SUBTOTAL được thiết kế để tính toán cho các cột số liệu theo chiều dọc, nó không được thiết kế để tính theo chiều ngang.
- Hàm này chỉ tính toán cho dữ liệu 2-D, do vậy nếu dữ liệu tham chiếu dạng 3-D (Ví dụ về tham chiếu 3-D: =SUM(Sheet2:Sheet13!B5) thì hàm SUBTOTAL báo lỗi #VALUE!

Ví dụ:
SUBTOTAL(9, {120, 10, 150, 23}) = 303 = 120 + 10 + 150 + 23
SUBTOTAL(1, {120, 10, 150, 23}) = 75.75 = (120 + 10 + 150 + 23) / 4

37. Hàm SUM()

Khi cộng các giá trị với nhau trong Excel, ta có thể dùng dấu cộng (+) hoặc dùng hàm SUM()

Cú pháp: = SUM(number1 [, number2...])

Trong Excel 2007, bạn có thể dùng SUM() để để tính tổng của 255 giá trị lại với nhau (trong những version trước, con số này chỉ là 30)

Ví dụ: = SUM(A2:A13, C2:C13, E2:E13)

Phép cộng lũy tiến

Tôi có một bảng công nợ khách hàng như sau:
Ở cột I, tôi muốn rằng mỗi khi có một phát sinh nào đó (mua hàng thêm, hoặc trả tiền hàng, trả hàng, v.v...) thì cột Số Nợ sẽ phản ánh con số nợ còn lại ngay tại thời điểm có phát sinh.

undefined

Tôi dùng công thức sau (tại I12 và kéo xuống cho cả cột I):
= SUM($G$12:G12) - SUM($H$12:H12)

"Bí quyết" ở đây là dùng địa chỉ tuyệt đối để giữ G12 và H12 lại.
Ví dụ, tại I20, tôi sẽ có công thức:
= SUM($G$12:G20) - SUM($H$12:H20)

Cộng riêng số dương và số âm

Tôi có một vùng dữ liệu, trong đó có cả số dương và số âm lẫn lộn. Làm cách nào để tôi biết tổng của tất cả những số dương, hoặc tổng của tất cả những số âm?
Tính tổng, thì dùng SUM(), nhưng làm sao cho nó biết số nào là dương số nào là âm để cộng lại?
Thoạt tiên tôi nghĩ đến hàm SUMIF... Nhưng, có một cách hay hơn, là dùng công thức mảng cho SUM:

Tổng các số âm trong vùng dữ liệu (tạm đặt tên cho nó là range):

{= SUM((range < 0) * range)}

Xin nhắc lại, cặp dấu {} không phải do ta gõ vào, mà là do ta nhấn Ctrl-Shift-Enter sau khi nhập công thức bình thường.

Tương tự, tổng các số dương trong vùng dữ liệu range

{= SUM((range > 0) * range)}

38. Hàm SUMIF()

Tính tổng các ô trong một vùng thỏa một điều kiện cho trước.

Cú pháp: = SUMIF(range, criteria, sum_range)

Range : Dãy các ô để tính tổng, có thể là ô chứa số, tên, mảng, hay tham chiếu đến các ô chứa số. Ô rỗng và ô chứa giá trị text sẽ được bỏ qua.

Criteria : Điều kiện để tính tổng. Có thể ở dạng số, biểu thức, hoặc text. Ví dụ, criteria có thể là 32, "32", "> 32", hoặc "apple", v.v...

Sum_range : Là vùng thực sự để tính tổng. Nếu bỏ qua, Excel sẽ coi như sum_range = range.

Lưu ý:
- Sum_range không nhất thiết phải cùng kích thước với range. Vùng thực sự để tính tổng được xác định bằng ô đầu tiên phía trên bên trái của sum_range, và bao gồm thêm những ô tương ứng với kích thước của range. Ví dụ:
- Nếu Range là A1:A5, Sum_range là B1:B5, thì vùng thực sự để tính tổng là B1:B5
- Nếu Range là A1:A5, Sum_range là B1:B3, thì vùng thực sự để tính tổng là B1:B5
- Nếu Range là A1:B4, Sum_range là C14, thì vùng thực sự để tính tổng là C14
- Nếu Range là A1:B4, Sum_range là C12, thì vùng thực sự để tính tổng là C14
Có thể dùng các ký tự đại diện trong điều kiện: dấu ? đại diện cho một ký tự, dấu * đại diện cho nhiều ký tự (nếu như điều kiện là tìm những dấu ? hoặc *, thì gõ thêm dấu ~ ở trước dấu ? hay *).
Khi điều kiện để tính tổng là những ký tự, SUMIF() không phân biệt chữ thường hay chữ hoa.

Ví dụ: Có bảng tính như sau

undefined

Tính tổng của những huê hồng mà có doanh thu > 160,000 ?
= SUMIF(A2:A5, ">160000", B2:B5) = 63,000
Tính tổng của những doanh thu > 160,000 ?
= SUMIF(A2:A5, ">160000") = 900,000
Tính tổng của những huê hồng mà có doanh thu = 300,000 ?
= SUMIF(A2:A5, "=300000", B2:B3) = 21,000

39. Hàm SUMPRODUCT()

Sum = Tổng / Product = Tích
SUMPRODUCT = Tổng của tích (các mảng dữ liệu)

Cú pháp: = SUMPRODUCT(array1, array2, ...)
array1, array2, ... : Có thể dùng từ 2 tới 255 mảng (với Excel 2003 trở về trước thì con số này chỉ là 30) và các mảng này phải cùng kích thước với nhau

Lưu ý:

- Nếu các mảng không cùng kích thước, SUMPRODUCT sẽ báo lỗi #VALUE!

- Bất kỳ một phần tử nào trong mảng không phải là dữ liệu kiểu số, sẽ được SUMPRODUCT coi như bằng 0 (zero)

Ví dụ:

undefined

SUMPRODUCT(A1:B3, C13) = 156

Cách tính: 156 = (3*2)+(4*7)+(8*6)+(6*7)+(1*5)+(9*3)

Nếu dùng SUM() với công thức mảng, sẽ cho kết quả tương đương:

{SUM(A1:B3 * C13)} = SUMPRODUCT(A1:B3, C13) = 156

Mình xin phân tích cách dùng SumProduct và Công thức mảng.

Hàm SumProduct:

Cấu trúc: SUMPRODUCT(array1,array2,array3, ...)

Array - Mảng dữ liệu là một tập hợp dãy giá trị liên tiếp trong một khảng nào đó. VD A1:C1 hoặ A1:A10,...

Phép tính này cho phép chúng ta tính tổng của tích array1*array2*array3* ...array30.
VD: A: Số lượng; B: Đơn giá
A1 =2 B1=20 C1="Cam" D1="Giống lai"
A2 =3 B2=10 C2="Bưởi" D2="Không"
A3 =4 B3=25 C3="Cam" D3="Không"

Bây giờ cần tính doanh thu của các loại hoa quả
array1=A1:A3
array2=B1:B3
Công thức =SumProduct(A1:A3, B1:B3) = 170
Bản chất công thức làm việc như thế này =A1*B1+A2*B2+A3*B3 kết quả là 170
Nhắc lại về phép tính logic:
Giá trị kiểu logic chỉ cho ra 1 trong 2 giá trị là TRUE/1, FALSE/0
Phép toán logic:<, >, <>, =, >=, <=, Not()
VD:
2>3=False
3>1=True
4>3=True
*) Logic và - AND
=(2>3)*(3>1)*(4>3)=False*True*True=0*1*1=False/0 tương đương với hàm AND(2>3,3>1,4>3). Ít nhất một logic=False thì kết quả sẽ là False hay 0.
* Logic hoặc - OR
=(2>3)+(3>1)+(4>3)=False+True+True=0+1=True/1 tương đương với hàm OR(2>3,3>1,4>3). Ít nhất một logic=True thì kết quả sẽ là True hay 1.
Lưu ý tổng của các giá trị là True=True=1).

*) Tính tổng có nhiều điều kiện:

Cách 1: dùng SUMPRODUCT

Tính tổng doanh thu của loại là "Cam"
=SUMPRODUCT(A1:A3,B1:B3*(C1:C3="Cam")) hoặc =SUMPRODUCT(A1:A3*B1:B3*(C1:C3="Cam")) = 140
Công thức tính như sau:
=A1*B1*(C1="Cam")+A2*B2*(C2="Cam")+A3*B3*(C3="Cam" )
=2*20*True+3*10*False+4*25*True
=2*20*1+3*10*0+4*25*1= 140

Cách 2: Dùng Công thức mảng - "Formula Array"

=Sum(IF(C1:C3="Cam",A1:A3*B1:B3,0))
Kết thức nhẫn tổ hợp CTRL+SHIFT+ENTER. Với cách làm này EXCEL sẽ phân tích như sau:
Xét trên từng dòng trong mảng (array)
dòng1: (c1="Cam")=true nên lấy A1*B1=2*20
dòng2: (c2="Cam")=false nên lấy 0 (theo cách của lấy của hàm IF)
dòng3: (c3="Cam")=true nên lấy A3*B3=4*25
Sau khi chạy hết các dòng, EXCEL sẽ dùng hàm SUM để tính tổng kết quả tính được ở từng dòng=2*20+0+2*25=140. Nếu trong công thức là hàm khác hàm SUM thì cách tính sẽ theo hàm đó.

Như vậy có 2 cách tính:

=SUMPRODUCT(A1:A3*B1:B3*(C1:C3="Cam")) và
=Sum(IF(C1:C3="Cam",A1:A3*B1:B3,0))

*) Vậy tại sao không dùng là =SUM(A1:A3*B1:B3*(C1:C3="Cam"))
mà phải dùng hàm =SUMPRODUCT(A1:A3*B1:B3*(C1:C3="Cam")) ?

Các bạn nhớ lại cấu trúc của SUM là
SUM(number1,number2, ...)
Còn SUMPRODUCT là
SUMPRODUCT(array1,array2,array3, ...)
number <> array

Nếu SUMPRODUCT(A1:A3*B1:B3*(C1:C3="Cam")) rồi ENTER là đúng vì đối số của nó phải là mảng - Array.

Nếu công thức =SUM(A1:A3*B1:B3*(C1:C3="Cam")) rồi ENTER kết quả là #VALUE! -lỗi vì A1:A3 là một array chứ không phải là một number.

Nếu nhấn tổ hợp CTRL+SHIFT+ENTER. Với cách làm này EXCEL sẽ phân tích như sau:
Xét trên từng dòng trong mảng (array)
dòng1: A1*B1*(c1="Cam")=2*20*True=2*20*1
dòng2: A2*B2*(c2="Cam")=3*10*False=3*10*0
dòng3: A3*B3*(c3="Cam")=2*25*True=4*25*1

Sau khi chạy hết các dòng, EXCEL sẽ dùng hàm SUM để tính tổng kết quả tính được ở từng dòng=2*20*1+3*10*0
+4*25*1=140.

Vậy vẫn dùng được =SUM(A1:A3*B1:B3*(C1:C3="Cam")) với điều kiện nhấn tổ hợp phím CTRL+SHIFT+ENTER

Như vậy đến đây chúng ta có có 3 cách tính:

=SUMPRODUCT(A1:A3*B1:B3*(C1:C3="Cam")) nhấn phím ENTER
=SUM(IF(C1:C3="Cam",A1:A3*B1:B3,0)) nhấn phím CTRL+SHIFT+ENTER
=SUM(A1:A3*B1:B3*(C1:C3="Cam")) nhấn phím CTRL+SHIFT+ENTER

Chúng có thể kết hợp rất nhiều điều kiện vào trong hàm thông qua phép toán logic nhân-và- And, cộng - hoặc - Or.

*) Dùng hàm SUMPRODUCT hay dùng SUM kết hợp CTRL+SHIFT+ENTER đều cho ra được kết quả như nhau chính là do phép toán logic của bạn.
*) Hàm SUMPRODUCT chỉ có thể tính tổng theo nhiều điều kiện
*) Công thức mảng - Formula Array ngoài việc tính tổng có nhiều điều kiện còn làm rất nhiều phép tính khác do cách sử dụng hàm mà thôi.

40. Hàm SUMSQ()

Dùng để tính tổng các bình phương của các số

Cú pháp: = SUMSQ(number1, number2, ...)

number1, number2, ... : Có thể dùng đến 255 tham số (với Excel 2003 trở về trước, con số này chỉ là 30)
Các tham số (number) có thể là một số, là một mảng, một tên, hay là một tham chiếu đến một ô chứa số, v.v...

Ví dụ: SUMSQ(3, 4) = (3^2) + (4^2) = 9 + 16 = 25

41. Hàm SUMX2MY2(), Hàm SUMXPY2() và Hàm SUMXMY2()

Để dễ nhớ tên của ba hàm này, bạn đọc chúng từ trái sang phải với các quy ước sau:

SUM = Tổng, M (Minus) = Trừ (hiệu số), P (Plus) = Cộng (tổng số), 2 = Bình phương, X và Y là hai mảng gì đó, có chứa nhiều phần tử x và y
Vậy, định nghĩa và cách tính toán của 3 hàm này là:

- SUMX2MY2: Tổng của hiệu hai bình phương của các phần tử tương ứng trong 2 mảng dữ liệu

undefined

- SUMX2PY2: Tổng của tổng hai bình phương của các phần tử tương ứng trong 2 mảng dữ liệu

undefined

- SUMXMY2: Tổng của bình phương của hiệu các phần tử tương ứng trong 2 mảng dữ liệu

undefined

Cú pháp:

= SUMX2MY2(array_x, array_y)

= SUMX2PY2(array_x, array_y)

= SUMXMY2(array_x, array_y)

array_x và array_y là các dãy ô hoặc giá trị kiểu mảng

Lưu ý:

- array_x và array_y bắt buộc phải có cùng kích thước, nếu không, hàm sẽ báo lỗi #NA!

- Nếu trong array_x hoặc array_y có những giá trị kiểu text, kiểu logic hoặc rỗng, thì sẽ được bỏ qua (không tính), tuy nhiên các giá trị = 0 vẫn được tính.

Ví dụ:
Với hai mảng X = {1, 2, 3, 4} và Y = {5, 6, 7, 8}

SUMX2MY2({1, 2, 3, 4}, {5, 6, 7, 8}) = -144

= (1^2 - 5^2) + (2^2 - 6^2) + (3^2 - 7^2) + (4^2 - 8^2) = -144

SUMX2PY2({1, 2, 3, 4}, {5, 6, 7, 8}) = 204

= (1^2 + 5^2) + (2^2 + 6^2) + (3^2 + 7^2) + (4^2 + 8^2) = -204
SUMXMY2({1, 2, 3, 4}, {5, 6, 7, 8}) = 64

= (1 - 5)^2 + (2 - 6)^2 + (3 - 7)^2 + (4 - 8)^2 = 64

Tổng hợp hàm xử lý văn bản và chuỗi ( Có ví dụ)

Sat, 16 Apr 2016 05:17:16 +0000

Các hàm xử lý chuỗi

Space (Num as Long) 'trả về chuỗi chỉ toàn khoảng trống với số khoảng trống được ấn định bởi tham số Num
VD: str = space (3) ---> str = " "

String (Num as Long, character) 'trả về một chuõi (theo dạng variant) gồm các ký tự lặp lại. Ký tự lặp lại là ký tự đầu của biểu thức chuổi được truyền ở tham số thứ hai của hàm (character). Tham số thứ nhất (Num) xác nhận số lần lặp lại.
VD: str = string (5, "a")
str = string (5, "abc")
str = string (5, 97)
cả 3 ví dụ này đều cho ra chuỗi "aaaaa"

Trim (String) ' cắt các khoảng trống ở 2 đầu chuỗi
VD: str = Trim (" Yêu em ") ----> str = "Yeu em"

LTrim (String) ' cắt các khoảng trống ở đầu chuỗi

RTrim (String) ' cắt các khoảng trống cuối chuõi

Len ( ) ' trả về chiều dài của chuỗi bao gồm các khoảng trống và các ký tự
VD: str = Len ("caulacboVB") ---> str = 10

Mid (string, start as Long, length) ' trích từ tham số 1(string) một chuỗi ở vị trí bắt đầu được xác định bởi tham số 2(start), với số ký tự được qui định bởi tham số 3(length). Nếu bỏ wa tham số length thì hàm Mid sẽ trích đến hết chuỗi.
VD: str = Mid ("caulacboVB", 1, 8) ---> str = "caulacbo"

InStr (start, string1, string2, compare) ' trả về vị trí bắt đầu của một chuỗi con cần tìm trong một chuỗi mẹ. tham số 1(start) xác định vị trí bắt đầu tìm, tham sô 2(string1) là chuỗi mẹ, tham số 3(string2) là chuỗi cần tìm, tham số 4(compare) mặc định là so sánh nhạy ký tự.
Khi bỏ wa tham số thứ nhất thì vị trí bắt đầu tìm mặc định là 1
VD: pos = InStr ("caulacboVB", "VB") ---> pos = 9

InStrRev (StringCheck as string, StringMatch as string, Start as Long, Compare) ' chức năng như InStr nhưng InStrRev hoạt động ngược lại từ cuối chuỗi và cú pháp khác hơn. Cả hai hàm đều là hàm tìm kiếm nhạy ký tự nên cần chú ý chữ thường và chữ HOA. InStrRev thường kết hơp với Mid để tách một tên File khỏi đường dẫn và tên mở rộng.
VD:
PathFile = "C:\temp\001.tmp"
Pos = InStrRev (pathFile, "\")
PathFile = Mid (PathFile, Pos + 1)
Pos = InStrRev (PathFile, ".")
PathFile = Mid (PathFile, 1, Pos - 1) --->PathFile = "001"

Left (String, Length as Long) ' trích từ đầu một chuỗi của tham số 1(String) với số lượng xác định bởi tham số 2(Length)
VD: str = Left ("caulacboVB", 6) ---> str = "caulac"

Right (String, Length as Long) ' như Left nhưng trích ngược từ cuối chuỗi

Replace (Expression as string, Find as string, Replace as string, start, count, compare) ' tìm trong tham số thứ 1(Expression) một chuỗi xác định bởi tham số 2(Find) và thay thế bằng một chuỗi được đặt ở tham số 3(Replace). Ba tham số còn lại là tùy chọn. Start qui định vị trí bắt đầu tìm chuỗi cần được thay, nếu bỏ wa mặc định la 1. Count qui định số lần thay thế trong chuỗi, nếu bỏ wa mặc định Replace sẽ tìm và thay thế cho đến hết chuỗi.
VD: str = "bcbcbc"
tmp = Replace (str, "b", "a") ---> str = "acacac"
tmp = Replace (str, "b", "a", 2) ---> str = "cacac"
tmp = Replace (str, "b", "a", 1, 1) ---> str = "acbcbc"

StrComp (String1, String2, Compare) ' dùng để so sánh 2 chuỗi.
Trị trả về: (String1 < String2) = -1; (String1 = String2) = 0; (String1 > String2) = 1

Like ' 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
VD: "abcd" Like "*bcd" = True
"abcd" Like "a?cd" = True
"a1cd" Like "a#cd" = True
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

Chr(charcode as Long) ' Chuyển mã Ascii thành ký tự
VD:
MyChar = Chr(65) ' Returns A.
MyChar = Chr(97) ' Returns a.
MyChar = Chr(62) ' Returns >.
MyChar = Chr(37) ' Returns %.

Asc(String as String) ' trả về mã Ascii của ký tự
VD: Asc ("a") = 65

ChrW(charcode) ' Chuyển mã Ascii thành ký tự (Hỗ trợ Unicode)
VD: ChrW(&H1EC7) = “ệ”

AscW (string) ' Chuyển ký tự thành mã Ascii (hỗ trợ Unicode)
VD: AscW(“ệ”) = 7879 = H1EC7

LCase(String) ' chuyển đổi chuỗi sang chữ in thường

UCase (String) ' ngược với LCase

Join (SourceArray, Delimiter) ' tạo chuỗi mới từ một mảng chuỗi (SourceArray) với các phần tử được phân định bởi tham số Delimiter
VD: Arr (0) = "a"
Arr (1) = "b"
Arr (2)= "c"
Print Join (Arr, " ") = "a b c"

Split (Expression as String, Delimiter, Count, Compare) ' tạo mảng chuỗi từ một chuỗi (Expression). Đặt tham số Delimiter để chuyên biệt chỗ ngắt, nếu bỏ wa tham số này mặc định Split sẽ tách tại các khoảng trống của chuỗi. Tham số Count qui định số lần tách. Ba tham số cuối là tùy chọn
VD: Dim str as string, Arr as Variant
str = "cau lac bo vb"
Arr = Split (str) ' dùng For duyệt mảng Arr sẽ cho ra : Arr ( 0 ) = "cau"; Arr ( 1 ) = "lac" ...Arr ( 3 ) = "vb"
Arr = Split (str, "a") ---> Arr (0) = "c"; Arr (1) = "u l"; Arr (2) = "c bo vb"
Arr = Split (str, " ", 2) ---> Arr (0) = "cau"; Arr(1) = "lac bo vb"

Filter (sourcearray, match [, include [, compare]]) ' Lọc mảng sourcesrray với giá trị lọc là match ; include: Lọc đảo (True hoặc False) ; compare: chỉ rõ kiểu dữ liệu để so sánh trong quá trình lọc.
Dùng cho tham số compare
vbUseCompareOption = –1 : Chế độ tùy chọn, VB sẽ tự động lựa lọai dữ liệu thích hợp
vbBinaryCompare = 0 : So sánh nhị phân
vbTextCompare = 1 : So sánh chuỗi
vbDatabaseCompare = 2 : So sánh dữ liệu
VD:
Dim selNames() As String
Dim Names(1 To 5) As String
Names(1) = "A"
Names(2) = "B"
Names(3) = "C"
Names(4) = "D"
Names(5) = "E"
selNames = Filter(Names, "A") ' Returns "A"
selNames = Filter(Names, "B", False) 'Returns "A" , "C", "D", "E"

StrReverse(expression as String) ' Đảo chuỗi expression
VD: StrReverse("1234567") ' Returns "7654321"

Trên Excel dùng được và Access cũng thế.

1. Hàm ASC()

Dùng để đổi các ký tự double-byte sang các ký tự single-byte cho những ngôn ngữ sử dụng bộ ký tự double-byte.

Cú pháp: = ASC(text)

text : Là chữ hoặc tham chiếu đến một ô có chứa chữ. Nếu text không chứa bất kỳ mẫu tự nào thuộc loại double-byte, thì text sẽ không được chuyển đổi.

Ví dụ:
= ASC("Excel") = Excel

2. Hàm BAHTTEXT()

Dùng để chuyển đổi một số thành dạng chữ của tiếng Thái, rồi thêm hậu tố "Bath" vào.

Cú pháp: = BAHTTEXT(number)

number : Là một số hoặc tham chiếu đến một ô có chứa số.

Ví dụ:

undefined

3. Hàm CHAR()

Chuyển đổi một mã số trong bộ mã ANSI (có miền giá trị từ 1 - 255) sang ký tự tương ứng.

Cú pháp: = CHAR(number)

Number : là một mã số trong bảng mã ANSI.

Ví dụ: Để kết quả có được là ký tự bản quyền ©, chúng ta nhập: = CHAR(169)

5. Hàm CLEAN

Công dụng: Xóa tất cả những ký tự không in ra được (nonprintable characters) trong chuỗi văn bản

Công thức: =CLEAN(text)

___text: chuỗi văn bản cần xóa những ký tự không in ra được

Những ký tự không in ra được là những ký tự có mã số từ 1 đến 31 trong bảng mã ANSI.
Hàm CLEAN() thường được dùng để gỡ bỏ những dấu ngắt đoạn, ngắt câu (có được do nhấn phím Enter), nghĩa là nối những đoạn bị xuống hàng lại với nhau.

Ví dụ: Hình sau đây cho thấy công dụng của hàm CLEAN.

undefined

6. Hàm CODE

Hàm CODE() là ngược lại với hàm CHAR(), nghĩa là, cho 1 ký tự, CODE() sẽ cho biết mã số của ký tự đó. Nếu đối số của CODE() là một chuỗi, thì kết quả trả về sẽ là mã số của ký tự đầu tiên trong chuỗi đó.

Cú pháp: = CODE(text)

text : Là một ký tự hoặc một chuỗi (một câu)

Ví dụ:

CODE("a") = 97
CODE("A") = 65

7. Hàm CONCATENATE

Công dụng: Dùng nối nhiều chuỗi lại với nhau

Công thức: =CONCATENATE(text1,text2,...)

Ví dụ: =CONCATENATE("Giải pháp", "Excel", " - ", "Công cụ tuyệt vời của bạn) → Giải pháp Excel - Công cụ tuyệt vời của bạn

8. Hàm EXACT

Công dụng: Dùng để so sánh hai chuỗi với nhau.

Công thức: =EXACT(text1,text2)

Hàm EXACT phân biệt chữ thường và chữ hoa.

Nếu 2 chuỗi text1, text2 giống nhau hoàn toàn, hàm sẽ trả về TRUE; nếu không, sẽ trả về trị FALSE

Ví dụ:

=EXACT("Giải pháp", "Giải pháp") → TRUE
=EXACT("Giải pháp", "Giải Pháp") → FALSE

9. Hàm T

Công dụng: Trả về một chuỗi nếu trị tham chiếu là chuỗi, ngược lại, sẽ trả về chuỗi rỗng

Công thức: =T(value)

Hàm này ít khi được dùng.

10. Hàm VALUE

Công dụng: Dùng để đổi một chuỗi đại diện cho một số thành kiểu số

Công thức: =VALUE(text)

text phải là định dạng số, ngày tháng hoặc bất kỳ một thời gian nào miễn là được Excel công nhận.

Nếu 2 chuỗi text1, text2 giống nhau hoàn toàn, hàm sẽ trả về TRUE; nếu không, sẽ trả về trị FALSE

Ví dụ:
Để trích ra số 6500 trong SQA6500, bạn có thể dùng hàm RIGHT()
=RIGHT("SQA6500", 4) → 6500

Tuy nhiên kết quả do hàm RIGHT() có được sẽ ở dạng text, bạn không thể nhân chia cộng trừ gì với cái "6500" này được.

Để có thể tính toán với "6500", bạn phải đổi nó sang dạng số:

=VALUE(RIGHT("SQA6500",4)) → 6500

Cũng là 6500, nhưng bây giờ bạn có thể cộng trừ nhân chia với nó.

11. Hàm DOLLAR

Chuyển đổi một số thành dạng tiền tệ (dollar Mỹ), có kèm theo dấu phân cách hàng ngàn, và có thể làm tròn theo ý muốn.

Cú pháp: = DOLLAR(number, decimals)

Number : Số cần chuyển sang dạng tiền tệ

Decimals : Số số thập phân, mặc định là 2, nếu là số âm thì sẽ làm tròn về bên trái

Ví dụ:
= "Tổng chi phí ngoại tệ của năm 2007 là " & DOLLAR(1500670000, 0) → Tổng chi phí ngoại tệ của năm 2007 là $1,500,670,000
Ở đây, số tiền này đã được định dạng thành số nguyên (decimals = 0).

12. Hàm FIND và Hàm SEARCH

Công dụng: Dùng để tìm vị trí bắt đầu của một chuỗi con (substring) trong một chuỗi

Công thức:

__ =FIND(find_text, within_text [, start_num])

__ =SEARCH(find_text, within_text [, start_num])

___find_text: chuỗi văn bản cần tìm (chuỗi con)

___within_text: chuỗi văn bản chứa chuỗi cần tìm (chuỗi mẹ)

___start_num: vị trí bắt đầu tìm trong chuỗi within_text (mặc định là 1)

Một số lưu ý:

- Kết quả của hai hàm này là một con số, chỉ vị trí bắt đầu (tính từ start_num) của find_text trong within_text

- Dùng SEARCH() khi muốn tìm một chuỗi bất kỳ. Ví dụ: SEARCH(“e”, “Expenses”) sẽ cho kết quả là 1.

- Dùng FIND() khi muốn tìm chính xác một chuỗi có phân biệt chữ hoa, chữ thường. Ví dụ: FIND(“e”, “Expenses”) sẽ cho kết quả là 4.

- Nếu không tìm thấy find_text, hàm sẽ báo lỗi #VALUE

- Có thể dùng những ký tự đại diện như *, ? trong find_text của hàm SEARCH()

- Với hàm SEARCH(), nếu muốn tìm chính ký tự * hoặc ? thì gõ dấu ~ trước ký tự đó ( ~* hoặc là ~?)

Trích xuất họ và tên (ví dụ dùng để trích cho tên tiếng Anh, bỏ qua tên đệm)

Đây là dạng bài toán đã được rất nhiều bạn hỏi trên GPE.

Cách làm là dùng hàm FIND() để tìm những khoảng trắng phân cách giữa họ và tên, sau đó dùng hàm LEFT() để tách phần tên, và hàm RIGHT() để tách phần họ.

Để lấy phần tên (First Name), chúng ta dùng công thức sau (giả sử họ tên nằm ở cell A2):
=LEFT(A2, FIND(" ", A2) - 1)

Nghĩa là dùng hàm FIND() để tìm vị trí của ký tự trắng đầu tiên kể từ bên trái, ví dụ nó là vị trí thứ 5,
khi đó hàm LEFT() sẽ xác định được cái tên này gồm có 4 chữ (= 5-1).

Để lấy phần họ (Last Name), chúng ta dùng công thức:
=RIGHT(A2, LEN(A2) - FIND(" ", A2))

Bạn tự dịch câu này nhé!

Hình sau đây là một số ví dụ của bài vừa rồi.

undefined

Công thức ở D2: =RIGHT(A2, LEN(A2) - FIND(" ", A2)) & ", " & LEFT(A2, FIND(" ", A2) - 1)

13. Hàm FIXED

Công dụng: Chuyển đổi một số thành dạng văn bản (text), có hoặc không kèm theo dấu phân cách hàng ngàn, và có thể làm tròn theo ý muốn.

Công thức: =FIXED(number [,decimals] [,no_commas])
___number là số cần chuyển sang dạng text
___decimals là số số thập phân, mặc định là 2, nếu là số âm thì sẽ làm tròn về bên trái
___no_commas: TRUE hoặc FALSE, dùng TRUE nếu không muốn có dấu phân cách hàng ngàn, và FALSE (mặc định) thì có bao gồm cả dấu phân cách hàng ngàn

Bài tập: Bạn thử dùng hàm FIXED với con số 123456789,85 để ra lập công thức cho ra kết quả giống như cột B nhé.

undefined

HÀM TRÍCH XUẤT KÝ TỰ HOẶC CHUỖI (Extracting a Substring)

--------------------------------------------------------------------------------

Một giá trị chuỗi có thể bao gồm nhiều chuỗi nhỏ hoặc nhiều từ đơn lẻ.
Ví dụ trong một cột chứa Họ và Tên, có thể bạn chỉ muốn lọc ra Họ mà thôi, hoặc Tên mà thôi, để sắp xếp chẳng hạn;
hoặc có thể bạn muốn trích ra vài ký tự đầu trong một danh sách hàng hóa, để dựa vào đó làm ra mã số hàng hóa, v.v...

Excel cung cấp cho bạn 3 hàm sau đây, chuyên để trích xuất 1 từ, 1 chữ hoặc nhiều từ, nhiều chữ từ một chuỗi có sẵn: Hàm LEFT, RIGHT và MID.

14. Hàm LEFT

Công dụng: Dùng để trích xuất phần bên trái của một chuỗi một hoặc nhiều ký tự tùy theo sự chỉ định của bạn

Công thức: =LEFT(text [,num_chars])

___text: chuỗi văn bản cần trích xuất ký tự
___num_chars: số ký tự cần trích ra phía bên trái chuỗi text, mặc định là 1

- num_chars phải là số nguyên dương
- Nếu num_chars lớn hơn độ dài của chuỗi thì kết quả trả về sẽ là toàn bộ chuỗi text

Ví dụ:___=LEFT(“Karen Elizabeth Hammond”, 5) → Karen

15. Hàm TRIM

Công dụng: Xóa tất cả những khoảng trắng vô ích trong chuỗi văn bản, chỉ chừa lại những khoảng trắng nào dùng làm dấu cách giữa hai chữ.
Những khoảng trắng vô ích này có thể nằm ở bất kỳ đâu trong đoạn văn: ở đầu, ở cuối hoặc ở giữa...

Công thức: =TRIM(text)
___text: chuỗi văn bản cần xóa những khoảng trắng vô ích

Ví dụ: Hình sau đây cho thấy công dụng của hàm TRIM.
Mỗi chuỗi văn bản trong khối A2:A7 đều có những khoảng trắng vô ích, nằm ở đầu, ở giữa hoặc ở cuối.
Tôi đặt hàm TRIM ở cột C.
Để các bạn thấy công dụng của hàm TRIM, tôi có dùng thêm hàm LEN() đặt ở cột B và D, để đếm số ký tự trong chuỗi trước và sau khi thực hiện hàm TRIM

undefined

16. Hàm LEN

Công dụng: Dùng để đếm số ký tự trong một chuỗi văn bản

Công thức: =LEN(text)

___text: chuỗi văn bản mà bạn cần đếm số ký tự có trong đó

17. Hàm LOWER

Công dụng: Hàm LOWER đổi tất cả các ký tự trong một chuỗi văn bản thành chữ thường.

Công thức: =LOWER(text)

___với text là một chuỗi, hoặc tham chiếu đến một chuỗi cần định dạng

Ví dụ: Công thức sau đây sẽ sửa cell A2 (Giải pháp Excel) thành toàn là chữ thường
=LOWER(A2) → giải pháp excel
Hàm LOWER thường được dùng khi bạn cần định dạng lại một câu văn (thường là do chép ở đâu đó dán vào trong Excel) mà trong đó, chữ thường chữ hoa được gõ hoặc bị thay đổi lung tung...

18. Hàm MID

Công dụng: Dùng để trích xuất một chuỗi con (substring) từ một chuỗi

Công thức: =MID(text, start_num, num_chars])

___text: chuỗi văn bản cần trích xuất
___start_num: vị trí bắt đầu trích ra chuỗi con, tính từ bên trái sang
___num_chars: số ký tự của chuỗi con cần trích ra

- num_chars phải là số nguyên dương
- start_num phải là số nguyên dương
- Nếu start_num lớn hơn độ dài của chuỗi thì kết quả trả về sẽ là chuỗi rỗng

Ví dụ:___=MID(“Karen Elizabeth Hammond”, 7, 9) → Elizabeth

19. Hàm PROPER

Công dụng: Hàm PROPER đổi ký tự đầu tiên trong một chữ của một chuỗi văn bản thành chữ in hoa, còn tất cả các ký tự còn lại trong chuỗi đó trở thành chữ thường.

Công thức: =PROPER(text)

___với text là một chuỗi, hoặc tham chiếu đến một chuỗi cần định dạng

Ví dụ: Công thức sau đây sẽ định dạng lại chuỗi văn bản cell A7 (công cụ tuyệt vời của bạn) theo kiểu Proper
=PROPER(A7) → Công Cụ Tuyệt Vời Của Bạn

20. Hàm REPLACE

Công dụng: Dùng để thay thế một phần của chuỗi bằng một chuỗi khác, dựa vào số ký tự được chỉ định

Công thức: =REPLACE(old_text, start_num, num_chars, new_text)

___old_text: chuỗi văn bản cần được xử lý
___start_num: vị trí bắt đầu tìm cái sẽ thay thế, tính từ bên trái sang
___num_chars: số ký tự của chuỗi cần được thay thế
___new_text: chuỗi văn bản sẽ thay thế cho số ký tự đã chọn bởi start_num và num_chars

Cái khó của hàm này là xác định được bởi start_num và num_chars. Làm sao biết được bắt đầu từ đâu và thay thế bao nhiêu chữ? Tôi gợi ý nhé:

- Bạn dùng hàm FIND() hoặc SEARCH() để xác định vị trí bắt đầu (start_num)

- Dùng hàm LEN() để xác định số ký tự của chuỗi sẽ được thay thế (num_chars)

Ví dụ: đế thay số 2007 bằng 2008 trong câu Expense Budget for 2007

Dùng công thức như sau:

=REPLACE(A1, FIND("2007", A1), LEN("2007"), "2008")→ Expense Budget for 2008
Với A1 = Expense Budget for 2007

21. Hàm REPT

Công dụng: Dùng để lập đi lập lại (nhân bản) một ký tự hoặc một từ, với số lần được định trước.

Công thức: =REPT(text, times)

___text: ký tự (character), một con số hoặc một từ (string) cần được nhân bản
___times: số lần lập đi lập lại của text

- Nếu times = 0, hàm REPT() sẽ trả về một chuỗi rỗng
- Nếu text là một con số, REPT() sẽ làm tròn con số đó thành số nguyên

Điền thêm dấu chấm cuối hàng

Mời bạn xem hình sau:

undefined

Bạn sẽ nghĩ tôi dùng cách "căn đều hai biên" cho mấy cái cell ở cột B ?

Không đâu, tôi dùng hàm REPT() đấy. Tại B1, tôi gõ công thức:

=A1 & REPT(“.”, 20 - LEN(A1))

Rồi tôi kéo công thức xuống tới B5.
Bạn có thể thay con số 20 bằng số khác, tùy vào bạn muốn độ rộng của cột B là bao nhiêu...

Làm biểu đồ bằng hàm REPT

Mặc dù Excel 2007 đã có những biểu đồ rất đẹp (làm bằng Conditional Formating),
tuy nhiên, chúng ta có thể áp dụng hàm REPT() để làm chuyện này.

Mời bạn xem hình sau, và để ý công thức ở cell C12 nhé

undefined

Thêm một biểu đồ nữa:

undefined

Để làm được cái biểu đồ như thế này, tôi dùng font Webbings (một loại font symbol), chọn ký tự tương ứng trên bàn phím là "g", vì nó có hình dạng giống như một khối vuông; rồi tô màu xanh nhạt.
Đế lấy trị giá times cho hàm REPT(), tôi nhân giá trị phần trăm bên cột B cho 100, và để cho mấy "bar" này không quá lớn, tôi chia giá trị đó cho 5.
Và kết quả là như cái hình bạn đang xem đó.

22. Hàm RIGHT

Công dụng: Dùng để trích xuất phần bên phải của một chuỗi một hoặc nhiều ký tự tùy theo sự chỉ định của bạn

Công thức: =RIGHT(text [,num_chars])

___text: chuỗi văn bản cần trích xuất ký tự
___num_chars: số ký tự cần trích ra phía bên phải của chuỗi text, mặc định là 1

- num_chars phải là số nguyên dương
- Nếu num_chars lớn hơn độ dài của chuỗi thì kết quả trả về sẽ là toàn bộ chuỗi text

Ví dụ:___=RIGHT(“Karen Elizabeth Hammond”, 7) → Hammond

23. Hàm SUBSTITUTE

Công dụng: Dùng để thay thế một chuỗi này bằng một chuỗi khác. Hàm này cũng tương tự hàm REPLACE(), nhưng dễ sử dụng hơn.

Công thức: =SUBSTITUTE(text, old_text, new_text [,instance_num])
___text: chuỗi văn bản gốc, cần được xử lý
___old_text: chuỗi văn bản cần được thay thế
___new_text: chuỗi văn bản sẽ thay thế vào
___instance_num: số lần thay thế old_text bằng new_text, nếu bỏ qua thì tất cả old_text tìm được sẽ được thay thế bằng new_text

Ví dụ: Để thay số 2007 bằng 2008 trong câu Expense Budget for 2007

Dùng công thức như sau:
=SUBSTITUTE("Expense Budget for 2007", "2007", "2008") → Expense Budget for 2008

24. Hàm TEXT

Công dụng: Chuyển đổi một số thành dạng văn bản (text) theo định dạng được chỉ định

Công thức: =TEXT(number,format)

___number là số cần chuyển sang dạng text
___format: kiểu định dạng số hoặc ngày tháng năm

Ví dụ: Công thức sau sẽ dùng hàm AVERAGE() để tính số trung bình của mảng cell A1:A31, và dùng hàm TEXT để chuyển đổi kết quả ra dạng nhiệt độ
=”Nhiệt độ trung bình của lò phản ứng là “ & TEXT(AVERAGE(A1:A31), “#,##0.00°F”) → Nhiệt độ trung bình của lò phản ứng là 7,560.00°F

Thể hiện thời gian cập nhật bảng tính lần sau cùng
Có bao giờ bạn muốn biết được lần cuối cùng bảng tính này có thay đổi là khi nào không?

Một trong những cách làm là đặt chế độ tính toán của Excel là thủ công (manual calculation mode) và sử dụng hàm NOW() trong một cell nào đó (hàm này cho ra kết quả là ngày giờ hiện tại).

Như vậy, hàm NOW() sẽ không tự cập nhật trừ phi bảng tính được lưu (save), hoặc được tính toán lại (recalculate), và nhờ đó mà bạn luôn biết được lần cuối cùng bảng tính này có thay đổi là khi nào.

Ví dụ, bạn dùng công thức:
=”This workbook last updated: “ & NOW()
Tuy nhiên, nếu chỉ có chừng đó, thì e rằng kết quả bạn nhận được sẽ không như ý, vì có thể nó sẽ là như thế này:
This workbook last updated: 38572.51001
Do Excel luôn hiểu ngày và giờ là một con số, cho nên con số này: 38572.51001 được hiểu là: con số phía bên trái của dấu phân cách (38572) là số chỉ ngày, và con số phía bên phải của dấu phân cách (51001) là số chỉ giờ... Chỉ có ai rành lắm mới may ra đọc và hiểu được!

Vì vậy, ta nên sửa công thức trên bằng cách dùng hàm TEXT để định dạng nó ra kiểu ngày giờ đàng hoàng, chẳng hạn kiểu DD/MM/YYYY HH:MM
=”This workbook last updated: “ & TEXT(NOW(), “dd/mm/yy hh:mm”) → This workbook last updated: 08/08/2005 12:14:00 PM

25. Hàm UPPER

Công dụng: Hàm UPPER đổi tất cả các ký tự trong một chuỗi văn bản thành chữ in hoa.

Công thức: = UPPER(text)

___với text là một chuỗi, hoặc tham chiếu đến một chuỗi cần định dạng

Ví dụ:
Công thức sau đây sẽ nối chuỗi văn bản trong cell A5 (Giải pháp) và cell B5 (Excel) lại với nhau, ở giữa có một dấu cách, tất cả ký tự cell mới toàn là chữ in hoa.
=UPPER(A5) & " " & UPPER(B5) → GIẢI PHÁP EXCEL

Tổng hợp các hàm Toán học nâng cao: thống kê, xác xuất, tuyến tính..(Ví dụ)

Sat, 16 Apr 2016 05:15:23 +0000

Các hàm thống kê có thể chia thành 3 nhóm nhỏ sau: Nhóm hàm về Thống Kê, nhóm hàm về Phân Phối Xác Suất, và nhóm hàm về Tương Quan và Hồi Quy Tuyến Tính

1. NHÓM HÀM VỀ THỐNG KÊ

1. AVEDEV (number1, number2, ...): Tính trung bình độ lệch tuyệt đối các điểm dữ liệu theo trung bình của chúng. Thường dùng làm thước đo về sự biến đổi của tập số liệu

2. AVERAGE (number1, number2, ...): Tính trung bình cộng

3. AVERAGEA (number1, number2, ...): Tính trung bình cộng của các giá trị, bao gồm cả những giá trị logic

4. AVERAGEIF (range, criteria1): Tính trung bình cộng của các giá trị trong một mảng theo một điều kiện

5. AVERAGEIFS (range, criteria1, criteria2, ...): Tính trung bình cộng của các giá trị trong một mảng theo nhiều điều kiện

6. COUNT (value1, value2, ...): Đếm số ô trong danh sách

7. COUNTA (value1, value2, ...): Đếm số ô có chứa giá trị (không rỗng) trong danh sách

8. COUNTBLANK (range): Đếm các ô rỗng trong một vùng

9. COUNTIF (range, criteria): Đếm số ô thỏa một điều kiện cho trước bên trong một dãy

10. COUNTIFS (range1, criteria1, range2, criteria2, …): Đếm số ô thỏa nhiều điều kiện cho trước

11. DEVSQ (number1, number2, ...): Tính bình phương độ lệch các điểm dữ liệu từ trung bình mẫu của chúng, rồi cộng các bình phương đó lại.

12. FREQUENCY (data_array, bins_array): Tính xem có bao nhiêu giá trị thường xuyên xuất hiện bên trong một dãy giá trị, rồi trả về một mảng đứng các số. Luôn sử dụng hàm này ở dạng công thức mảng

13. GEOMEAN (number1, number2, ...): Trả về trung bình nhân của một dãy các số dương. Thường dùng để tính mức tăng trưởng trung bình, trong đó lãi kép có các lãi biến đổi được cho trước…

14. HARMEAN (number1, number2, ...): Trả về trung bình điều hòa (nghịch đảo của trung bình cộng) của các số

15. KURT (number1, number2, ...): Tính độ nhọn của tập số liệu, biểu thị mức nhọn hay mức phẳng tương đối của một phân bố so với phân bố chuẩn

16. LARGE (array, k): Trả về giá trị lớn nhất thứ k trong một tập số liệu

17. MAX (number1, number2, ...): Trả về giá trị lớn nhất của một tập giá trị

18. MAXA (number1, number2, ...): Trả về giá trị lớn nhất của một tập giá trị, bao gồm cả các giá trị logic và text

19. MEDIAN (number1, number2, ...): Tính trung bình vị của các số.

20. MIN (number1, number2, ...): Trả về giá trị nhỏ nhất của một tập giá trị

21. MINA (number1, number2, ...): Trả về giá trị nhỏ nhất của một tập giá trị, bao gồm cả các giá trị logic và text

22. MODE (number1, number2, ...): Trả về giá trị xuất hiện nhiều nhất trong một mảng giá trị

23. PERCENTILE (array, k): Tìm phân vị thứ k của các giá trị trong một mảng dữ liệu

24. PERCENTRANK (array, x, significance): Trả về thứ hạng (vị trí tương đối) của một trị trong một mảng dữ liệu, là số phần trăm của mảng dữ liệu đó

25. PERMUT (number, number_chosen): Trả về hoán vị của các đối tượng.

26. QUARTILE (array, quart): Tính điểm tứ phân vị của tập dữ liệu. Thường được dùng trong khảo sát dữ liệu để chia các tập hợp thành nhiều nhóm…

27. RANK (number, ref, order): Tính thứ hạng của một số trong danh sách các số

28. SKEW (number1, number2, ...): Trả về độ lệch của phân phối, mô tả độ không đối xứng của phân phối quanh trị trung bình của nó

29. SMALL (array, k): Trả về giá trị nhỏ nhất thứ k trong một tập số

30. STDEV (number1, number2, ...): Ước lượng độ lệch chuẩn trên cơ sở mẫu

31. STDEVA (value1, value2, ...): Ước lượng độ lệch chuẩn trên cơ sở mẫu, bao gồm cả những giá trị logic

32. STDEVP (number1, number2, ...): Tính độ lệch chuẩn theo toàn thể tập hợp

33. STDEVPA (value1, value2, ...): Tính độ lệch chuẩn theo toàn thể tập hợp, kể cả chữ và các giá trị logic

34. VAR (number1, number2, ...): Trả về phương sai dựa trên mẫu

35. VARA (value1, value2, …): Trả về phương sai dựa trên mẫu, bao gồm cả các trị logic và text

36. VARP (number1, number2, ...): Trả về phương sai dựa trên toàn thể tập hợp

37. VARPA (value1, value2, …): Trả về phương sai dựa trên toàn thể tập hợp, bao gồm cả các trị logic và text.

38. TRIMMEAN (array, percent): Tính trung bình phần trong của một tập dữ liệu, bằng cách loại tỷ lệ phần trăm của các điểm dữ liệu ở đầu và ở cuối tập dữ liệu.

2. NHÓM HÀM VỀ PHÂN PHỐI XÁC SUẤT

1. BETADIST (x, alpha, beta, A, B): Trả về giá trị của hàm tính mật độ phân phối xác suất tích lũy beta.

2. BETAINV (probability, alpha, beta, A, B): Trả về nghịch đảo của hàm tính mật độ phân phối xác suất tích lũy beta.

3. BINOMDIST (number_s, trials, probability_s, cumulative): Trả về xác suất của những lần thử thành công của phân phối nhị phân.

4. CHIDIST (x, degrees_freedom): Trả về xác xuất một phía của phân phối chi-squared.

5. CHIINV (probability, degrees_freedom): Trả về nghịch đảo của xác xuất một phía của phân phối chi-squared.

6. CHITEST (actual_range, expected_range): Trả về giá trị của xác xuất từ phân phối chi-squared và số bậc tự do tương ứng.

7. CONFIDENCE (alpha, standard_dev, size): Tính khoảng tin cậy cho một kỳ vọng lý thuyết

8. CRITBINOM (trials, probability_s, alpha): Trả về giá trị nhỏ nhất sao cho phân phối nhị thức tích lũy lớn hơn hay bằng giá trị tiêu chuẩn. Thường dùng để bảo đảm các ứng dụng đạt chất lượng…

9. EXPONDIST (x, lambda, cumulative): Tính phân phối mũ. Thường dùng để mô phỏng thời gian giữa các biến cố…

10. FDIST (x, degrees_freedom1, degrees_freedom2): Tính phân phối xác suất F. Thường dùng để tìm xem hai tập số liệu có nhiều mức độ khác nhau hay không…

11. FINV (probability, degrees_freedom1, degrees_freedom2): Tính nghịch đảo của phân phối xác suất F. Thường dùng để so sánh độ biến thiên trong hai tập số liệu

12. FTEST (array1, array2): Trả về kết quả của một phép thử F. Thường dùng để xác định xem hai mẫu có các phương sai khác nhau hay không…

13. FISHER (x): Trả về phép biến đổi Fisher tại x. Thường dùng để kiểm tra giả thuyết dựa trên hệ số tương quan…

14. FISHERINV (y): Tính nghịch đảo phép biến đổi Fisher. Thường dùng để phân tích mối tương quan giữa các mảng số liệu…

15. GAMMADIST (x, alpha, beta, cumulative): Trả về phân phối tích lũy gamma. Có thể dùng để nghiên cứu có phân bố lệch

16. GAMMAINV (probability, alpha, beta): Trả về nghịch đảo của phân phối tích lũy gamma.

17. GAMMLN (x): Tính logarit tự nhiên của hàm gamma

18. HYPGEOMDIST (number1, number2, ...): Trả về phân phối siêu bội (xác suất của một số lần thành công nào đó…)

19. LOGINV (probability, mean, standard_dev): Tính nghịch đảo của hàm phân phối tích lũy lognormal của x (LOGNORMDIST)

20. LOGNORMDIST (x, mean, standard_dev): Trả về phân phối tích lũy lognormal của x, trong đó logarit tự nhiên của x thường được phân phối với các tham số mean và standard_dev.

21. NEGBINOMDIST (number_f, number_s, probability_s): Trả về phân phối nhị thức âm (trả về xác suất mà sẽ có number_f lần thất bại trước khi có number_s lần thành công, khi xác suất không đổi của một lần thành công là probability_s)

22. NORMDIST (x, mean, standard_dev, cumulative): Trả về phân phối chuẩn (normal distribution). Thường được sử dụng trong việc thống kê, gồm cả việc kiểm tra giả thuyết

23. NORMINV (probability, mean, standard_dev): Tính nghịch đảo phân phối tích lũy chuẩn

24. NORMSDIST (z): Trả về hàm phân phối tích lũy chuẩn tắc (standard normal cumulative distribution function), là phân phối có trị trung bình cộng là zero (0) và độ lệch chuẩn là 1

25. NORMSINV (probability): Tính nghịch đảo của hàm phân phối tích lũy chuẩn tắc

26. POISSON (x, mean, cumulative): Trả về phân phối poisson. Thường dùng để ước tính số lượng biến cố sẽ xảy ra trong một khoảng thời gian nhất định

27. PROB (x_range, prob_range, lower_limit, upper_limit): Tính xác suất của các trị trong dãy nằm giữa hai giới hạn

28. STANDARDIZE (x, mean, standard_dev): Trả về trị chuẩn hóa từ phân phối biểu thị bởi mean và standard_dev

29. TDIST (x, degrees_freedom, tails): Trả về xác suất của phân phối Student (phân phối t), trong đó x là giá trị tính từ t và được dùng để tính xác suất.

30. TINV (probability, degrees_freedom): Trả về giá trị t của phân phối Student.

31. TTEST (array1, array2, tails, type): Tính xác xuất kết hợp với phép thử Student.

32. WEIBULL (x, alpha, beta, cumulative): Trả về phân phối Weibull. Thường sử dụng trong phân tích độ tin cậy, như tính tuổi thọ trung bình của một thiết bị.

33. ZTEST (array, x, sigma): Trả về xác suất một phía của phép thử z.

3. NHÓM HÀM VỀ TƯƠNG QUAN VÀ HỒI QUY TUYẾN TÍNH

1. CORREL (array1, array2): Tính hệ số tương quan giữa hai mảng để xác định mối quan hệ của hai đặc tính

2. COVAR (array1, array2): Tính tích số các độ lệch của mỗi cặp điểm dữ liệu, rồi tính trung bình các tích số đó

3. FORECAST (x, known_y's, known_x's): Tính toán hay dự đoán một giá trị tương lai bằng cách sử dụng các giá trị hiện có, bằng phương pháp hồi quy tuyến tính

4. GROWTH (known_y's, known_x's, new_x's, const): Tính toán sự tăng trưởng dự kiến theo hàm mũ, bằng cách sử dụng các dữ kiện hiện có.

5. INTERCEPT (known_y's, known_x's): Tìm điểm giao nhau của một đường thẳng với trục y bằng cách sử dụng các trị x và y cho trước

6. LINEST (known_y's, known_x's, const, stats): Tính thống kê cho một đường bằng cách dùng phương pháp bình phương tối thiểu (least squares) để tính đường thẳng thích hợp nhất với dữ liệu, rồi trả về mảng mô tả đường thẳng đó. Luôn dùng hàm này ở dạng công thức mảng

7. LOGEST (known_y's, known_x's, const, stats): Dùng trong phân tích hồi quy. Hàm sẽ tính đường cong hàm mũ phù hợp với dữ liệu được cung cấp, rồi trả về mảng gía trị mô tả đường cong đó. Luôn dùng hàm này ở dạng công thức mảng

8. PEARSON (array1, array2): Tính hệ số tương quan momen tích pearson ®, một chỉ mục không thứ nguyên, trong khoảng từ -1 đến 1, phản ánh sự mở rộng quan hệ tuyến tính giữa hai tập số liệu

9. RSQ (known_y's, known_x's): Tính bình phương hệ số tương quan momen tích Pearson ®, thông qua các điểm dữ liệu trong known_y's và known_x's

10. SLOPE (known_y's, known_x's): Tính hệ số góc của đường hồi quy tuyến tính thông qua các điềm dữ liệu
liệu

11. STEYX (known_y's, known_x's): Trả về sai số chuẩn của trị dự đoán y đối với mỗi trị x trong hồi quy.

Tổng hợp các hàm ngày tháng ( Vidu minh họa)

Sat, 16 Apr 2016 05:12:31 +0000

1. Hàm DATE()

Trả về một ngày tháng năm nào đó

Cú pháp: = DATE(year, month, day)

year: Số chỉ năm
Con số này có thể là 1 đến 4 ký số.
- Nếu nhỏ hơn 1900, Excel sẽ tự động cộng thêm 1900 vào để tính (ví dụ year = 100 thì Excel sẽ hiểu đó là năm 2000)
- Nếu từ 1900 đến 9999, thì Excel sẽ coi đó chính là năm cần tính
- Nếu nhỏ hơn 0 hoặc lớn hơn 10.000, Excel sẽ báo lỗi #NUM!

month: Số chỉ tháng
Nếu con số này lớn hơn 12, thì Excel sẽ tự động quy đổi thành 12 bằng 1 năm và tăng số năm lên.

day: Số chỉ ngày
Nếu con số này lớn hơn số ngày của tháng, thì Excel sẽ tự động quy đổi thành số ngày nhiều nhất của tháng cho phù hợp và tăng số tháng lên, nếu cần thì tăng cả số năm lên luôn.

Ví dụ:
DATE(2007, 12, 25) = Giáng Sinh năm 2007

DATE(2007, 12, 32) = 01/01/2008

DATE(2007, 13, 25) = 25/01/2008

DATE(7, 25, 32) = 01/02/1909
(số ngày (date) = 32, lớn hơn số ngày nhiều nhất của một tháng (31), do đó, Excel sẽ lấy ngày là 01, và tăng số tháng (month) thêm 1; số tháng (month) = 25 + 1 = 26 = 2 + (2 x 12), do đó Excel sẽ lấy tháng là 02, và tăng số năm thêm 2; số năm (year) = 7 + 2 = 9, Excel sẽ cộng thêm 1900 = 1909)

Hàm DATE() rất hữu dụng khi year, month, day là những công thức mà không phải là một con số, nó sẽ giúp chúng ta tính toán chính xác hơn
Khi nhập hàm DATE(), bạn phải cẩn thận thứ tự year, month, day, vì nó rất dễ nhầm lẫn (theo kiểu VN chúng ta: ngày, tháng, năm)

2. Hàm DATEVALUE()

Chuyển đổi một chuỗi văn bản có dạng ngày tháng năm thành một giá trị ngày tháng năm để có thể tính toán được

Cú pháp: = DATEVALUE(date_text)

- date_text: Chuỗi văn bản cần chuyển đổi
- date_text có giới hạn trong khoảng từ 01/01/1900 đến 31/12/9999, nếu nằm ngoài khoảng này, hàm sẽ báo lỗi #VALUE!
- date_text phải được nhập trong cặp dấu móc kép ("")
- Nếu date_text chỉ có hai phần, Excel sẽ hiểu như sau: nếu phần sau là một giá trị < 13 và phần đầu là một giá trị < 32, nó xem như phần đầu là ngày, phần sau là tháng, và lấy năm hiện hành làm giá trị để tính năm; còn nếu phần sau là một giá trị > 12 và phần đầu là một giá trị < 13, nó xem như phần đầu là tháng, phần sau là năm, và cho giá trị tính ngày là 1.

Ví dụ:
DATEVALUE("25/12/2007") = 39441 (= 25/12/2007)

DATEVALUE("25/12") = 39807 (= 25/12/2008)

DATEVALUE("12/25") = 45992 (= 01/12/2025)

DATEVALUE("12/25/2007") = #VALUE!

DATEVALUE("25 December 2009") = 40172 = 25/12/2009

3. Hàm YEAR()

Cho biết số chỉ năm trong một giá trị ngày tháng

Cú pháp: = YEAR(serial_number)
serial_number: Biểu thức ngày tháng hoặc là một con số chỉ giá trị ngày tháng

Ví dụ: YEAR(TODAY()) = 2008

4. Hàm MONTH()

Cho biết số chỉ tháng trong một giá trị ngày tháng

Cú pháp: = MONTH(serial_number)

serial_number: Biểu thức ngày tháng hoặc là một con số chỉ giá trị ngày tháng

Ví dụ: MONTH(TODAY()) = 1

5. Hàm DAY()

Cho biết số chỉ ngày trong một giá trị ngày tháng

Cú pháp: = DAY(serial_number)

serial_number: Biểu thức ngày tháng hoặc là một con số chỉ giá trị ngày tháng

Ví dụ: DAY(TODAY()) = 3

Tính số ngày chênh lệch theo kiểu một năm có 360 ngày

Hiện nay, vẫn còn một số hệ thống kế toán dùng kiểu tính thời gian là một tháng coi như có 30 ngày và một năm coi như có 360 ngày!
Gặp trường hợp này, việc tính toán thời gian sẽ không đơn giản, vì thực tế thì số ngày trong mỗi tháng đâu có giống nhau.
Có lẽ vì nghĩ đến chuyện đó, nên Excel có một hàm dành riêng cho các hệ thống kế toán dựa trên cơ sở một năm có 360 ngày, đó là hàm DAYS360.

6. Hàm DAYS360()

Cú pháp: = DAYS360(start_date, end_date [, method])

start_date, end_date: Ngày tháng đại diện cho ngày bắt đầu và ngày kết thúc của khoảng thời gian cần tính toán. Nên nhập bằng hàm DATE(), hoặc dùng một kết quả trả về của một công thức khác, vì có thể sẽ xảy ra lỗi nếu bạn nhập trực tiếp ngày tháng dưới dạng text.

method: Một giá trị logic (TRUE, FALSE) để chỉ cách tính toán, theo kiểu châu Âu hay theo kiểu Mỹ.

FALSE: (hoặc không nhập) Tính toán theo kiểu Mỹ: Nếu start_date là ngày 31 của tháng, thì nó được đổi thành ngày 30 của tháng đó. Nếu end_date là ngày 31 của tháng và start_date nhỏ hơn 30, thì end_date được đổi thành ngày 1 của tháng kế tiếp.

TRUE: Tính toán theo kiểu châu Âu: Hễ start_date hoặc end_date mà rơi vào ngày 31 của một tháng thì chúng sẽ được đổi thành ngày 30 của tháng đó.

Ví dụ: So sánh số ngày chênh lệch giữa 01/01/2008 và 31/5/2008 theo kiểu một năm có 360 ngày và theo kiểu thường (dùng hàm DATEDIF)

DAYS360("01/01/2008", "31/5/2008") = 150

DAYS360("01/01/2008", "31/5/2008", TRUE) = 149

DATEDIF("01/01/2008", "31/5/2008", "d") = 151

Vấn đề với việc cộng trừ tháng

Đôi khi, chúng ta muốn tính một ngày trước hay sau vài tháng nữa, lấy số tháng cộng trừ, dùng hàm DATE() chẳng hạn ?
Vấn đề là: số ngày trong mỗi tháng đâu có bằng nhau, khi cộng trừ theo tháng, Excel sẽ tự động tính số ngày trong mỗi tháng cho phù hợp, và như thế, nhiều lúc không ra cái chúng ta mong muốn.

Tôi ví dụ, ô A1 đang chứa ngày 31/1/2008, có bạn đã dùng công thức sau để tính ngày cuối tháng của tháng 4, với mong muốn kết quả cho ra ngày 30/4/2008:

= DATE(YEAR(A1), MONTH(A1) + 3, DAY(A1))

Mới xem qua, thì hợp lý chứ... lấy tháng 1 cộng thêm 3 tháng nữa. Nhưng, nếu làm như vậy thì kết quả sẽ ra là ngày 31/4/2008, mà tháng 4 có 30 ngày thôi, nên Excel sẽ tự động cộng thêm 1 ngày sau ngày 30/4/2008, và kết quả của công thức trên sẽ là ngày 01/5/2008.

Vậy thì làm sao, ví dụ như để tìm ngày cuối tháng của một tháng nào đó?
Chúng ta cùng xem hai hàm sau đây (cũng trong nhóm Analysis Toolpak): EDATE() và EOMONTH()

7. Hàm EDATE()

Hàm này trả về một ngày nào đó tính từ mốc thời gian cho trước và cách mốc thời gian này một số tháng được chỉ định
Thường người ta dùng hàm này để tính hạn bảo hành cho một sản phẩm, hoặc ngày đáo hạn hợp đồng...

Cú pháp: = EDATE(start_date, months)
start_date: Ngày dùng làm mốc để tính. Nên nhập ngày này bằng hàm DATE(), hoặc dùng một kết quả trả về của một công thức khác, vì có thể sẽ xảy ra lỗi nếu bạn nhập trực tiếp ngày tháng dưới dạng text.

months: Số tháng trước hoặc sau mốc thời gian start_date (nếu trước thì dùng số âm). Trong trường hợp months là số không nguyên, nó sẽ được làm tròn.

Xin lấy lại ví dụ đã nói ở đầu bài: ô A1 đang chứa ngày cuối tháng 01/2008, tính ngày cuối tháng sau 3 tháng nữa, dùng công thức:
= EDATE(A1, 3) = 30/4/2008

Lưu ý: EDATE() không phải là hàm để tính ngày cuối tháng, mà cho kết quả là ngày trùng với ngày của mốc thời gian muốn tính (start_date). Nếu như trường hợp kết quả trả về là một ngày không hợp lệ của một tháng (ngày 31/4 chẳng hạn), thì EDATE() sẽ lấy ngày cuối tháng của tháng đó (30/4).

Ví dụ khác: Tôi mua một cái USB ngày hôm nay (08/01/2008), hạn bảo hành 36 tháng, vậy nó được bảo hành tới ngày nào?
= EDATE(TODAY(), 36) = 08/01/2011

8. Hàm EOMONTH()

Xin dịch ra để dễ hiểu: End Of Month = Ngày cuối tháng

Cú pháp: = EOMONTH(start_date, months)

start_date: Ngày dùng làm mốc để tính. Cũng giống hàm EDATE(), nên nhập ngày này bằng hàm DATE(), hoặc dùng một kết quả trả về của một công thức khác, vì có thể sẽ xảy ra lỗi nếu bạn nhập trực tiếp ngày tháng dưới dạng text.

months: Số tháng trước hoặc sau mốc thời gian start_date (nếu trước thì dùng số âm). Trong trường hợp months là số không nguyên, nó sẽ được làm tròn.

Ví dụ: EOMONTH(TODAY(), 25) = 40237 = 28/02/2010

Tính ngày cuối tháng của một tháng bất kỳ

Hàm EOMONTH() ở trên cho biết ngày cuối tháng của một tháng nào đó trong tương lai hoặc trong quá khứ.
Bây giờ, nếu bạn có một dữ liệu ngày tháng năm, và bạn muốn biết ngày cuối tháng của tháng trong cái dữ liệu đó (28, 29, 30, hay 31), thì làm sao?

Chúng ta đã biết rằng hàm DATE() sẽ tự động sửa ngày, tháng, năm thành một ngày hợp lệ, tùy vào các thông số ngày, tháng, năm chúng ta nhập trong công thức. Đây là một cái "mánh" của tôi:

Vì ngày cuối tháng bao giờ cũng là ngày trước ngày đầu tiên của tháng kế tiếp, ta cứ cho thông số ngày trong hàm DATE() là 0, và tăng số tháng muốn tính thêm 1; mà làm gì có ngày 0, nên chắc chắn DATE() sẽ cho ra kết quả là ngày cuối tháng của tháng trước tháng bị cộng 1, tức là ngay tháng ta muốn tính!

Và đây là công thức để tính ngày cuối tháng của một ngày tháng năm nào đó (MyDate)

= DATE(YEAR(MyDate), MONTH(MyDate) + 1, 0)

Ví dụ:

Today = 08/01/2008
= DATE(YEAR(TODAY()), MONTH(TODAY()) + 1, 0) = 31/01/2008

Năm nay có nhuận không?
= DATE(YEAR("01/02/2008"), MONTH("01/02/2008") + 1, 0) = 29/02/2008: Nhuận (!)

Trích ra từng giá trị của thời gian

Thời gian có 3 phần: Giờ, Phút và Giây. Khi cần trích ra riêng từng giá trị này, chúng ta dùng 3 hàm sau đây:

9. Hàm HOUR()

Cho biết số chỉ giờ trong một giá trị thời gian
Cú pháp: = HOUR(serial_number)
serial_number: Biểu thức thời gian hoặc là một con số chỉ giá trị thời gian

Ví dụ: HOUR(0.5) = 12 (giờ)

10. Hàm MINUTE()

Cho biết số chỉ phút trong một giá trị thời gian
Cú pháp: = MINUTE(serial_number)
serial_number: Biểu thức thời gian hoặc là một con số chỉ giá trị thời gian
Ví dụ: Bây giờ là 10:20 PM, MINUTE(NOW()) = 20 (phút)

11. Hàm SECOND()

Cho biết số chỉ giây trong một giá trị thời gian
Cú pháp: = SECOND(serial_number)
serial_number: Biểu thức thời gian hoặc là một con số chỉ giá trị thời gian
Ví dụ: SECOND("2:45:30 PM") = 30 (giây)

Tính số ngày làm việc giữa hai khoảng thời gian

Bình thường, nếu lấy ngày tháng trừ ngày tháng, kết quả sẽ bao gồm luôn những ngày lễ, ngày nghỉ, v.v... Còn nếu tính số ngày làm việc trong một khoảng thời gian, thì phải trừ bớt đi những ngày không làm việc.

Trong Excel có một hàm chuyên để tính toán những ngày làm việc giữa hai khoảng thời gian mà không bao gồm các ngày thứ Bảy, Chủ Nhật và những ngày nghỉ khác được chỉ định: Hàm NETWORKDAYS (đúng nguyên nghĩa của nó: net workdays).

Dĩ nhiên hàm này chỉ thích hợp với những cơ quan làm việc 5 ngày một tuần, chứ như chúng ta, làm tuốt, có khi là 365 ngày một năm (hic) thì hàm này vô tác dụng!

12. Hàm NETWORKDAYS()

Cú pháp: = NETWORKDAYS(start_date, end_date [, holidays])
start_date, end_date: Ngày tháng đại diện cho ngày bắt đầu và ngày kết thúc công việc. Nên nhập bằng hàm DATE(), hoặc dùng một kết quả trả về của một công thức khác, vì có thể sẽ xảy ra lỗi nếu bạn nhập trực tiếp ngày tháng dưới dạng text.

holidays: Danh sách những ngày nghỉ ngoài những ngày thứ Bảy và Chủ Nhật. Danh sách này có thể là một vùng đã được đặt tên. Nếu nhập trực tiếp thì phải bỏ trong cặp dấu móc {}.

Ví dụ: Công thức tính số ngày làm việc giữa ngày 1/12/2007 và ngày 10/1/2008, trong đó có nghỉ ngày Noel (25/12) và ngày Tết Tây (1/1):
= NETWORKDAYS("01/12/2007", "10/01/2008", {"12/25/2007", "1/1/2008"})

13. Hàm TODAY()

Trả về ngày tháng năm hiện hành
Cú pháp: = TODAY()
Hàm này không có thông số nào kèm theo cả.

Kết quả của hàm TODAY() là một con số, đại diện cho ngày tháng năm hiện hành, với thời gian được ngầm hiểu là 0 giờ (nửa đêm).
Ví dụ, hôm nay là ngày 02/01/2008, hàm TODAY() sẽ cho ra con số 39449.0, để xem được theo dạng "dễ nhìn", bạn chỉ cần định dạng lại ô.

14. Hàm NOW()

Trả về ngày tháng năm và giờ phút giây hiện hành
Cú pháp: = NOW()
Hàm này cũng không có thông số nào kèm theo cả.

Kết quả của hàm NOW() là một con số, đại diện cho ngày tháng năm và thời gian của hệ thống lúc vừa nhập xong công thức.
Ví dụ, hôm nay, và lúc này là 11 giờ 56 phút ngày 09/01/2008, hàm NOW() sẽ cho ra con số 39456.49643. Để xem được theo dạng "dễ nhìn", bạn chỉ cần định dạng lại ô, theo kiểu dd/mm/yyyy hh:ss:mm chẳng hạn.

Ghi chú:
- Không phải lúc nào hàm TODAY() và NOW() cũng cho ra một kết quả như nhau, mà mỗi khi bạn sửa chữa bảng tính, gõ một công thức khác, tính toán lại bảng tính, hoặc mở lại bảng tính... thì hàm TODAY() và NOW() sẽ cập nhật theo ngày giờ của hệ thống.
Sự khác nhau giữa hai hàm này chính là:
- TODAY nghĩa là hôm nay, mà lúc 7 giờ sáng hay 9 giờ 30 tối thì cũng là hôm nay. Kết quả của TODAY() vào những lúc khác nhau trong ngày sẽ giống nhau.
- NOW nghĩa là chính lúc này, là lúc ta vừa nhập xong NOW() và nhấn Enter... Kết quả của NOW() vào những lúc khác nhau trong ngày sẽ khác nhau.

15. Hàm TIME()

Trả về một giá trị thời gian nào đó
Cú pháp: = TIME(hour, minute, second)
hour: Số chỉ giờ, là một con số từ 0 đến 23. Nếu lớn hơn 23, Excel sẽ tự trừ đi một bội số của 24.

minute: Số chỉ phút, là một con số từ 0 đến 59. Nếu lớn hơn 59, Excel sẽ tính lại và tăng số giờ lên tương ứng.

second: Số chỉ giây, là một con số từ 0 đến 59. Nếu lớn hơn 59, Excel sẽ tính lại và tăng số phút, số giờ lên tương ứng.

Ví dụ:
TIME(14, 45, 30) = 2:45:30 PM

TIME(14, 65, 30) = 3:05:30 PM

TIME(25, 85, 75) = 2:26:15 AM

Cũng như DATE(), hàm TIME() rất hữu dụng khi hour, minute, second là những công thức mà không phải là một con số, nó sẽ giúp chúng ta tính toán chính xác hơn

16. Hàm TIMEVALUE()

Chuyển đổi một chuỗi văn bản có dạng thời gian thành một giá trị thời gian để có thể tính toán được
Cú pháp: = TIMEVALUE(time_text)
time_text: Chuỗi văn bản cần chuyển đổi
Ví dụ:
TIMEVALUE("26:15") = 0.09375 (= 2:15:00 AM)

17. Hàm WEEKDAY()

Cho biết số thứ tự của ngày trong tuần
Cú pháp: = WEEKDAY(serial_number [, return_type])
serial_number: Biểu thức ngày tháng hoặc là một con số chỉ giá trị ngày tháng

return_type: Chọn kiểu kết quả trả về
return_type = 1 (mặc định): Chủ Nhật là 1 (thứ Bảy là 7)
return_type = 2: Thứ Hai là 1 (Chủ Nhật là 7)
return_type = 3: Thứ Hai là 0 (Chủ Nhật là 6)
Ví dụ: (Today = 03/01/2008)
WEEKDAY(TODAY()) = 5
WEEKDAY(TODAY(), 2) = 4
WEEKDAY(TODAY(), 3) = 3

18. Hàm WEEKNUM()

Cho biết số thứ tự của tuần trong năm
Cú pháp: = WEEKNUM(serial_number [, return_type])
serial_number: Biểu thức ngày tháng hoặc là một con số chỉ giá trị ngày tháng

return_type: Chọn kiểu trả về (tùy thuộc vào cách chọn ngày đầu tiên trong tuần)
return_type = 1 (mặc định): Chủ Nhật là ngày đầu tuần
return_type = 2: Thứ Hai là ngày đầu tuần
Ví dụ: Thử xem ngày hạnh phúc của ANHPHUONG nằm vào tuần nào trong năm nay...
WEEKNUM("06/01/2008") = 2
WEEKNUM("06/01/2008", 2) = 1

Dự đoán ngày sẽ hoàn thành một công việc

Giả sử chúng ta có một dự án, theo dự tính sẽ hoàn thành trong một thời gian nào đó (tính bằng ngày), nhưng khoảng thời gian này, bình thường sẽ bao gồm cả số ngày làm việc, số ngày cuối tuần, và cả số ngày lễ nghỉ... Vấn đề là phải dự đoán được ngày nào sẽ hoàn thành dự án này, mà đã trừ bớt đi những ngày nghỉ, không làm...

Bạn có thể làm điều đó, bằng cách dùng hàm WORKDAY(), một hàm thuộc nhóm Analysis Toolpak (phải cài Add-in này thì mới sử dụng được), hàm này trả về số ngày làm việc trước hoặc sau ngày được chỉ định, và trừ đi những ngày nghỉ.

19. Hàm WORKDAY()

Cú pháp: = WORKDAY(start_day, days [, holidays])

start_day: Ngày làm mốc để tính.

days: Số ngày làm việc trước hoặc sau start_day. Dùng days > 0 cho số ngày làm việc của một dự án chưa hoàn thành, dùng days < 0 cho số ngày làm việc của một dự án đã kết thúc.

holidays: Danh sách các ngày nghỉ. Có thể gõ trực tiếp một ngày cụ thể, trong trường hợp có nhiều ngày thì các ngày cách nhau bằng dấu phẩy, và đặt tất cả trong một cặp dấu móc {}.

Ví dụ, để tính số ngày làm việc cho một dự án 30 ngày. tính từ hôm nay, ta dùng công thức:

= WORKDAY(TODAY(), 30)

Tính ngày hoàn thành của một dự án 30 ngày, khởi công ngày 1/12/2007, trong đó nghỉ ngày Noel (25/12) và ngày đầu năm (01/01/2008), dùng công thức:

= WORKDAY("1/12/2007", 30, {"25/12/2007", "1/1/2008"})

Tính tỷ lệ của một khoảng thời gian so với một năm

Trong công việc hằng ngày, chắc hẳn chúng ta hay nghĩ đến chuyện việc làm này của mình mất hết mấy phần trăm của một năm, ví dụ, một ngày ngủ hết 6 tiếng, là 1/4 ngày, vậy một năm chúng ta ngủ hết 25% (hic) thời gian...
Hoặc một nhân viên của công ty xin nghỉ việc vào tháng 5, lương tính theo năm, vậy công ty phải trả cho người đó bao nhiêu phần trăm lương khi cho nghỉ việc?
Excel có một hàm để tính tỷ lệ của một khoảng thời gian trong một năm, và cho phép tính theo nhiều kiểu (năm 365 ngày, hay năm 360 ngày, tính theo kiểu Mỹ hay theo kiểu châu Âu...):

20. Hàm YEARFRAC()

(Dịch từ chữ Year: năm, và Frac = Fraction: tỷ lệ)

Cú pháp: = YEARFRAC(start_date, end_date [, basis])
start_date, end_date: Ngày tháng đại diện cho ngày bắt đầu và ngày kết thúc của khoảng thời gian cần tính toán. Nên nhập bằng hàm DATE(), hoặc dùng một kết quả trả về của một công thức khác, vì có thể sẽ xảy ra lỗi nếu bạn nhập trực tiếp ngày tháng dưới dạng text.

basis: Một con số, quy định kiểu tính:

0 : (hoặc không nhập) Tính toán theo kiểu Bắc Mỹ, một năm có 360 ngày chia cho 12 tháng, một tháng có 30 ngày.

1 : Tính toán theo số ngày thực tế của năm và số ngày thực tế của từng tháng

2 : Tính toán theo một năm có 360 ngày, nhưng số ngày là số ngày thực tế của từng tháng

3 : Tính toán theo một năm có 365 ngày, và số ngày là số ngày thực tế của từng tháng

4 : Tính toán theo kiểu Châu Âu,mỗi tháng có 30 ngày (nếu start_date hoặc end_date mà rơi vào ngày 31 của một tháng thì chúng sẽ được đổi thành ngày 30 của tháng đó)

Ví dụ: Tính tỷ lệ giữa ngày 15/3/2007 và ngày 30/7/2007 so với 1 năm:

YEARFRAC("15/3/2007", "30/7/2007") = 37%

[Function] Code Xếp hạng

Mon, 20 Jul 2015 16:31:49 +0000

Trên Forum các bạn cũng đã có hướng dẫn một vài phương pháp để xử dụng xếp hạng (Cái này access dỡ hơn excel). Mình cũng gởi đến “góp vui cùng các bạn” một code xếp hạng trước đây mình xử dụng để xếp hạng khi còn đi dạy. Lúc trước do yêu cầu xếp hạng theo điểm nên functon này chỉ xếp được điểm lớn thì hạng cao. Nhưng để hoàn chỉnh mình xử lý cả 2 dạng: Điểm lớn hạng cao, điêm nhỏ hạng thấp và ngược lại (Ví dụ thi bơi lội thì thời gian càng ít hạng càng cao).
Tạo một module chứa

Mã PHP:
Function XepHang(TenQuery As String, FieldXepHang As String, FieldID As String, ValueID, Kieuxep As Integer) As String
On Error GoTo BiLoi
        Dim CSDL As Database
        Dim Bang As Recordset
        Dim Duocxephang As Long
        Dim Xep As Double
        Dim TrungHang As Double
    Xep = 1
    TrungHang = 0
    Set CSDL = CurrentDb
    Set Bang = CSDL.OpenRecordset(TenQuery, dbOpenDynaset, dbReadOnly)
    
    Bang.FindFirst FieldID & " = " & ValueID
    If Is_Null(Bang(FieldXepHang)) Then Exit Function
    Duocxephang = Bang(FieldXepHang)
    Bang.MoveFirst
    
Select Case Kieuxep
    Case 0 ' Lon hang cao
            Do Until Bang.EOF
                If Bang(FieldXepHang) > Duocxephang Then Xep = Xep + 1
                If Bang(FieldXepHang) = Duocxephang Then TrungHang = TrungHang + 1
                Bang.MoveNext
            Loop
            If TrungHang > 1 Then
                XepHang = Xep & "="
            Else
                XepHang = Xep
            End If
            Bang.Close
                Set Bang = Nothing
            Set CSDL = Nothing
 
    Case 1 ' Nho hang cao
              Do Until Bang.EOF
                If Bang(FieldXepHang) < Duocxephang Then Xep = Xep + 1
                If Bang(FieldXepHang) = Duocxephang Then TrungHang = TrungHang + 1
                Bang.MoveNext
            Loop
            If TrungHang > 1 Then
                XepHang = Xep & "="
            Else
                XepHang = Xep
            End If
            Bang.Close
            Set Bang = Nothing
            Set CSDL = Nothing
    Case Else
    
End Select
    
BiLoi:
 
End Function 

Trong đó biến Kieuxep là 0 thì giá trị FieldXepHang càng cao thì hạng càng cao, biến Kieuxep càng thấp thì hạng càng cao.
Để xử lý hàm này thì table của bạn phải có field ID Primary Key.

Ví dụ Bạn có table với các field: ID, TenHS, Diem
Tạo query: BangXepHangHocTap

Mã PHP:
SELECT DiemHocTap.ID, XepHang("BangXepHangHocTap","Diem","ID",[ID],0) AS ThuHang, DiemHocTap.TenHS, DiemHocTap.Diem
FROM DiemHocTap
ORDER BY DiemHocTap.Diem; 

Vài điểm cần lưu ý
Field ThuHang có function:

ThuHang: XepHang("BangXepHangHocTap","Diem","ID",[ID],0)

- "BangXepHangHocTap" là tên của query nó đang xử lý.
- "Diem", là Field để căn cứ giá trị lớn nhỏ để xếp hạng.
- "ID" và [ID] là Tên và giá trị Field Primary Key chỉ mục để vòng lặp xử lý việc xếp hạng. Nhớ là một cái trong " " và một cái trong [ ].
- Giá trị 0 để xếp hạng lớn Diem trước nhỏ sau, giá trị 1 để xếp hạng Diem nhỏ trước lớn sau.
- Nhớ Thay thế từ Is_Null = IsNull trong đoạn mã
Mong rằng function này sẽ hỗ trợ được cho các bạn trong công việc

Function Xep Hang

Demo_Tạo ra mật khẩu ngẫu nhiên (2 loại)

Sat, 18 Jul 2015 14:18:26 +0000

Đôi lúc bạn thấy nhàm chán phải suy nghĩ để tạo ra mật khẩu cho mình hoặc ai đó.
Có khi cần phải tạo ra một mật khẩu khác nhau cho vài trăm hay vài nghìn người thì sẽ ra sau.

Vâng đoạn code sau sẽ giúp các bạn tạo ra mật khẩu ấy.

Ở đây minh sẽ trình bày 2 loại Demo để tạo ra mật khẩu đi kèm với nó là 2 hàm riêng biệt.

Ở bài này xin trình bày 1 loại đầu tiên, đó là: lấy tất cả các ký tự trên bàn phím của mình, còn cái kế tiếp thì chỉ lấy 33 chữ cái + chữ số thôi.

Demo: Xem file đính kèm.

Code:

Mã PHP:
Public Function Taopassngaunhien(Dodaimatkhau As Integer) As String
    Dim RetVal As String
    Dim Max As Integer
    Dim Min As Integer, i As Integer
    Max = 126
    Min = 48
    Randomize Timer
    For i = 1 To Dodaimatkhau
    RetVal = RetVal & Chr(Int((Max - Min + 1) * Rnd + Min))
    Next i
    Taopassngaunhien = RetVal
End Function 

Khi cần thì alo:

Mã PHP:
Taopassngaunhien(8) 

Trong đó: số 8 là độ dài ký tự cần tạo ra.

Demo_Tao pass ngau nhien (Loai 1).zip (Kích cỡ: 14.96 KB / Tải về: 73)

Demo_[Hàm] Tính thâm niên như BHXH (maidinhdan)

Tue, 30 Jun 2015 08:03:40 +0000

Khu vực thư viện hàm trước đây có 1 bài viết của anh Xuân Thanh để tính thâm niên ( Link bài). Áp dụng ra nhưng vẫn chưa ưng ý theo nhu cầu lắm, nên xin chế ra 1 hàm mới để dùng

Bước 1: Tạo mới 1 Modules và chép đoạn code dưới đây vào:

Mã PHP:
Public Function Tinhthamnien(Ngaybatdau As Date, Ngayketthuc As Date) As String
' code by maidinhdan
Dim Sothang As Long
Dim Nam As String
Dim Thang As String
Sothang = DateDiff("m", Ngaybatdau, Ngayketthuc)
Nam = Int((Sothang) / 12) 
Thang = (Sothang) Mod 12 
Tinhthamnien = Nam & " Nam " & Thang & " tháng." 

End Function 

Bước 2: Khi nào cần sử dụng thì gõ Cú pháp sau:

Mã PHP:
Tinhthamnien([txt1],[txt2]) 

Trong đó:
- [txt1] là thời gian bắt đầu: ví dụ là ngày bắt đầu tham gia Bảo hiểm xã hội

- [txt2] là thời gian hiện tại cần tính.

=> cú pháp theo Demo của bài mình là: Tinhthamnien([NgaythamgiaBHXH],Date())
Hình minh họa: kết quả

Ghi chú: Hàm này không tính ngày nhé chỉ tính đến tháng thôi.

Link Demo của ongke ( tính năm, tháng, ngày): http://www.mediafire.com/download/nrpp41...amNien.mdb

Chúc các bạn thành công.

ThamNien(Demo Ongke).zip (Kích cỡ: 18.6 KB / Tải về: 85)

Hàm xử lý trường Họ Tên (Xóa bỏ khoảng trắng thừa, chữ hoa họ tên)

Wed, 24 Jun 2015 08:15:03 +0000

Thật là phiền phức khi sau một thời gian trường họ tên trở nên hỗn loạn. Từ tên một người, có bé nhập liệu đã biến ra 5 - 7 tên khác nhau. Đơn giản là cái máy tính không hiểu tiếng người kia nhận diện bằng ký tự chứ không phải bằng âm thanh. Vì thế, "Trần Quốc Tuấn" khác với "Trần Quốc Tuấn" và khác luôn " trần quốc Tuấn". Dù sau cũng còn may mắn vì nó cũng hiểu được "trần quốc Tuấn" cũng là "Trần Quốc Tuấn". Nhưng nếu nhìn vào trường họ tên với một lô, một lốc "trần Quốc tuấn", "lê quý đôn", "TRẦN bình Trọng" mà mặt mày vẫn vui vẻ, giọng nói vẫn nhẹ nhàng với cô bé nhập liệu kia mới lạ.
Có một cách để cô bé kia không làm bạn thất vọng là tặng ngay mấy cái code function vào ngay trường họ tên dưới đây:

1/Cắt bỏ các khoảng trắng thừa không mong muốn:

Mã PHP:
Function Xoakhoangtrang(DoanText As String)
    Dim XulyDoanText As String
    
        XulyDoanText = RTrim(DoanText)
        
    Do While InStr(XulyDoanText, "  ") > 0
        XulyDoanText = Left(XulyDoanText, InStr(XulyDoanText, "  ") - 1) & Mid(XulyDoanText, InStr(XulyDoanText, "  ") + 1)
    Loop
    
        Xoakhoangtrang = Trim(XulyDoanText)
End Function 

Lúc này dù cô bé nhập liệu có vừa đánh một tay, vừa nhai ổi " công văn số 145 của Ủy ban " thì máy vẫn sửa thành "công văn số 145 của Ủy ban".

2/Xử lý đối với trường họ tên:
Nếu dữ liệu của bạn là trường họ tên. Xử lý bằng code dưới đây để chuyển chữ hoa đầu từ. (trong code đã có phần xử lý khoảng trắng)

Mã PHP:
Function HoVaTen(strHoTen As String)
    Dim XulystrHoTen As String
    Dim SoChu, SoLan As Integer
    
    XulystrHoTen = RTrim(strHoTen)
    
    Do While InStr(XulystrHoTen, "  ") > 0
      XulystrHoTen = Left(XulystrHoTen, InStr(XulystrHoTen, "  ") - 1) & Mid(XulystrHoTen, _
                     InStr(XulystrHoTen, "  ") + 1)
    Loop
    
    XulystrHoTen = Trim(XulystrHoTen)

    SoChu = Len(XulystrHoTen)
    HoVaTen = UCase(Left(XulystrHoTen, 1))
    
    For SoLan = 1 To SoChu - 1
      If Mid(XulystrHoTen, SoLan, 1) = " " Then
        HoVaTen = HoVaTen & UCase(Mid(XulystrHoTen, SoLan + 1, 1))
      Else
        HoVaTen = HoVaTen & LCase(Mid(XulystrHoTen, SoLan + 1, 1))
      End If
    Next SoLan

End Function 

Chúng ta có thể đưa các Function trên vào Event Textbox_AfterUpdate() khi nhập dữ liệu hoặc tạo query để xử lý lại dữ liệu các table . Các đoạn code trên cũng xử lý tốt trên Excel. Code chỉ được test trên Office 2003 nên không chắc ăn khi chạy với các office khác. Đọc kỹ trước khi sử dụng.

Demo Hàm mở mọi loại file ( Access)

Sun, 19 Apr 2015 14:10:59 +0000

Giới hạn của code mở file là phải xác định file đó có phần mềm được cài trên máy hay chưa, sau đó ta phải xác đinh nó được cài trên ổ đĩa nào...sau đó dùng hàm Shell để gọi đến ứng dụng đang cài đặt trên máy...Rất phiền phức, đôi khi lại bất tiện.

Hôm nay

Đây là bài thứ 5 mình sẽ giới thiệu đó là: hàm mở mọi loại file gồm file:

+ Mọi loại file Office 2003,2007,2010,2013
+ Mọi loại file Âm nhạc, Video.....
+ Mọi loại file Nén: zip, rar, iso.....

Nói chung là muốn mở file nào cũng được, chỉ cần 1 hàm thôi, không cần biết ứng dụng nó được cài lên ổ nào cũng có thể mở nó lên....

Hình mình họa.

Demo đính kèm.

Ghi chú: Đường dẫn đến file phải không được có tiếng việt.

Bài thứ 6: Tạo hàm + form lấy tin Rss từ các trang Web.

Rất mong các ý kiến đóng góp của các anh/chị cùng các bạn.

Demo mo moi loai file v2(maidinhdan).zip (Kích cỡ: 26.37 KB / Tải về: 394)