Nếu bạn đang tạo một ứng dụng hoàn chỉnh bằng Excel, bạn có thể muốn biết một chút về môi trường mà ứng dụng của bạn đang chạy. Ví dụ, bạn có thể muốn biết có bao nhiêu ổ đĩa được gắn vào hệ thống, ký tự ổ đĩa của chúng là gì và chúng còn bao nhiêu dung lượng.

Macro sau sẽ lấy thông tin được yêu cầu. Tất cả những gì bạn cần làm là cung cấp các tiêu đề cột. Macro giả định rằng bạn sẽ có ba cột: Trong ô A1, bạn nên đặt tiêu đề “Drive”, trong ô B1, bạn đặt tiêu đề “Miễn phí%” và trong ô C1, bạn đặt tiêu đề “Đã sử dụng%.” Ngoài ra, bạn nên định dạng cột B và C dưới dạng tỷ lệ phần trăm.

Sub DriveSizes()

Dim Drv As Drive     Dim fs As New FileSystemObject     Dim Letter As String     Dim Total As Variant     Dim Free As Variant     Dim FreePercent As Variant     Dim TotalPercent As Variant     Dim i As Integer

On Error Resume Next     i = 2     For Each Drv In fs.drives         If Drv.IsReady Then             Letter = Drv.DriveLetter             Total = Drv.TotalSize             Free = Drv.FreeSpace                          FreePercent = Free / Total             TotalPercent = 1 - FreePercent

Cells(i, 1).Value = Letter             Cells(i, 2).Value = FreePercent             Cells(i, 3).Value = TotalPercent             i = i + 1         End If     Next End Sub

Khi bạn lần đầu tiên chạy macro này, bạn có thể gặp lỗi. Nếu bạn làm vậy, điều đó có nghĩa là bạn cần định cấu hình macro của mình để tham chiếu Microsoft Scripting Runtime. Làm theo các bước sau từ bên trong VBA Editor:

  1. Chọn tùy chọn Tham chiếu từ menu Công cụ. VBA hiển thị hộp thoại Tham chiếu.

  2. Trong danh sách các tài liệu tham khảo có sẵn, đảm bảo Microsoft Scripting Runtime được chọn.

  3. Nhấp vào OK.

Bây giờ macro sẽ chạy tốt và bạn sẽ có một bảng được điền đầy đủ đại diện cho tất cả các ổ đĩa có sẵn trên hệ thống của bạn. (Nếu hệ thống của bạn có các ổ đĩa sử dụng phương tiện di động – chẳng hạn như ổ đĩa mềm – chúng có thể không hiển thị trừ khi bạn có phương tiện trong đó.)

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2716) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: