Tìm phiên bản của OS

tuhocvba

Administrator
Thành viên BQT
Thỉnh thoảng khi lỗi xảy ra, chúng ta vẫn thường hỏi nhau:
-Này, thế phiên bản office của bạn như nào đấy? Hệ điều hành win như nào đấy?

Thật ra, chúng ta cũng có thể đọc được những thông tin này bằng macro.
Ví dụ 1: Đoạn code dưới đây sẽ cho biết phiên bản Excel của bạn.
Mã:
Sub Sample1()
    MsgBox Application.Version
End Sub
Bạn cần đăng nhập để thấy đính kèm


ExcelVersion
Excel 201616
Excel 201315
Excel 201014
Excel 200712
Excel 200311
Excel 200210
Excel 20009
Excel 978
Excel 957
Excel 5.05

Giá trị trả về của Application.version là string, cho nên chúng ta không viết như sau:
If Application.Version > 10 Then
Chúng ta viết như sau:
If CInt(Application.Version) > 10 Then

Còn dưới đây sẽ là đoạn code thể hiện phiên bản windows:
Mã:
Sub Sample2()
    Dim Locator, Service, OsSet, os, msg As String
    Set Locator = CreateObject("WbemScripting.SWbemLocator")
    Set Service = Locator.ConnectServer
    Set OsSet = Service.ExecQuery("Select * From Win32_OperatingSystem")
    For Each os In OsSet
        msg = msg & os.Caption & vbCrLf
        msg = msg & os.Version
    Next os
    MsgBox msg, vbInformation
    Set Service = Nothing
    Set OsSet = Nothing
    Set Locator = Nothing
End Sub
Bạn cần đăng nhập để thấy đính kèm


Nguồn:
 
B

Bandit

Guest
Ngoài cách sử dụng VBA ra thì Excel có hỗ trợ 1 hàm để kiểm tra phiên bản đang sử dụng đó là hàm INFO, ví dụ minh họa
Bạn cần đăng nhập để thấy hình ảnh

Kết quả trả về giống như ví dụ mà ADMIN đã nói ở trên, ở đây kết quả 16 tương ứng với Office 2016
 
Top