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.
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:
Nguồn:
-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
Excel | Version |
---|---|
Excel 2016 | 16 |
Excel 2013 | 15 |
Excel 2010 | 14 |
Excel 2007 | 12 |
Excel 2003 | 11 |
Excel 2002 | 10 |
Excel 2000 | 9 |
Excel 97 | 8 |
Excel 95 | 7 |
Excel 5.0 | 5 |
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ạn cần đăng nhập để thấy link