Tôi cũng hay dùng code name vì không cần định nghĩa (gán vào biến) mà vẫn được VBA gợi ý đầy đủ phương thức và thuộc tính.
Vâng! Em cũng từng dùng nó với kiểu with thisworkbook.sheet1 và lỗi sau phải sử dụng for each và if then mới được anh ạ
Workbook chỉ có thuộc tính (đại khái coi như là biến). Codename Sheet1 là giá trị của thuộc tính ấy.
Em sử dụng thuộc tính này gần đây có 1 vấn đề thế này:
Chả thấy gì hay cả.
On Error Resume Next
Dim rg as object
Set rg = [Sheet1].Range("A1")
If Not rg Is Nothing Then
' Something'
End IfSao mình dùng Option Explicit và dùng codename thì khi chạy không bị lỗi bạn nhỉ? Mình thường dùng codename để tránh trường hợp người dùng đổi tên sheet và cũng gặp lỗi như trên khi làm việc giữa các workbooks như nói ở trên, lúc đó mình mới chuyển sang sheet name vì ít khi phải làm việc giữa nhiều file ah.
Option Explicit
Sub aa()
Sheet1.Range("A1") = "A"
End SubMình tưởng bạn nói cho tất cả trường hợp., hóa ra là chỉ nói cho trường hợp bạn hieuxd. Cảm ơn bạn.
Cảm ơn anh!
Bạn có thể Duyệt vòng lặp kiểu
For each ws as thisworkbook.Worksheets
If ws.codename = "....." then "......"
Next ws
