Thuộc tính trong Range, Cells áp dụng cho mảng VBA

Liên hệ QC

bongmaihung

Thành viên hoạt động
Tham gia
7/8/14
Bài viết
173
Được thích
39
Mã:
 Sub Mau()
Dim Clls As Range
For Each Clls In Range("A5:A13")
    If IsDate(Clls) Then
        Clls.Interior.ColorIndex = 6
    End If
Next Clls
End Sub
Em có một đoạn code đơn giản như sau. bình thường thuộc tính Interior dùng cho range, cells nhưng nếu dữ liệu nhiều không biết cho vào mảng thì áp dụng như thế nào ah. Em cảm ơn
 

File đính kèm

  • Mau.xlsm
    14.5 KB · Đọc: 27
Khi bạn cho vào mảng thì bạn sẽ có giá trị là vị trí của dữ liệu trong mảng => Tiếp đó lấy vị trí áp vào Cell để tô màu, bạn áp dụng cái sau mà tùy biến
Mã:
For i = 1 to ubound(arr,1)
      Cells(i,1).Interior.ColorIndex = 6
Next
 
Upvote 0
Khi bạn cho vào mảng thì bạn sẽ có giá trị là vị trí của dữ liệu trong mảng => Tiếp đó lấy vị trí áp vào Cell để tô màu, bạn áp dụng cái sau mà tùy biến
Mã:
For i = 1 to ubound(arr,1)
      Cells(i,1).Interior.ColorIndex = 6
Next
Mã:
Sub Mau()
Dim Arr, i&
Arr = Range("A5:A13")
For i = 1 To UBound(Arr, 1)
    If IsDate(Cells(i, 1)) Then
        Cells(i, 2).Interior.ColorIndex = 6
    End If
Next
End Sub
Như thế này cũng được đúng ko anh. Cảm ơn anh nhé
 
Upvote 0
Vâng, vì em chưa biết sửa thế nào, nên cứ loay hoay vụ này anh ah
PHP:
Sub Mau()
Dim Arr(), i As Long
Arr = Range("A5", [A65536].End(3)).Value
For i = 1 To UBound(Arr)
    If IsDate(Arr(i, 1)) Then
        Cells(i + 4, 1).Interior.ColorIndex = 6
    End If
Next
End Sub
 
Upvote 0
PHP:
Sub Mau()
Dim Arr(), i As Long
Arr = Range("A5", [A65536].End(3)).Value
For i = 1 To UBound(Arr)
    If IsDate(Arr(i, 1)) Then
        Cells(i + 4, 1).Interior.ColorIndex = 6
    End If
Next
End Sub
Trời, trước em cũng làm thế này rồi nhưng chưa biết hiểu bản chất của nó , cứ nghĩ dòng 2 phải arr(i,2) nhưng kiểu gì cũng báo lỗi vì interior của cells. dòng 2 vẫn dùng cells được, em cảm ơn anh nhé
 
Upvote 0
arrBar(j, arrNum(j)).No = 12
Nhờ mọi người giải thích giúp làm sao gán thuộc tính (.No) nhỉ, nếu sửa lại (.no) thì nó tự sửa lại (.No), nếu thay là (.mo) - chữ khác thì nó không đổi. Tìm khắp code không thấy chỗ nào gán .No
Cảm ơn mọi người.
 
Upvote 0
arrBar(j, arrNum(j)).No = 12
Nhờ mọi người giải thích giúp làm sao gán thuộc tính (.No) nhỉ, nếu sửa lại (.no) thì nó tự sửa lại (.No), nếu thay là (.mo) - chữ khác thì nó không đổi. Tìm khắp code không thấy chỗ nào gán .No
Cảm ơn mọi người.
Làm gì có thuộc tính No mà gán.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom