Thuộc tính trong Range, Cells áp dụng cho mảng VBA (5 người xem)

[bongmaihung]

 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

 

[dhn46]

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

For i = 1 to ubound(arr,1)
      Cells(i,1).Interior.ColorIndex = 6
Next

 

[bongmaihung]

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

For i = 1 to ubound(arr,1)
      Cells(i,1).Interior.ColorIndex = 6
Next

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é

 

[Quang_Hải]

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é

Được con khỉ. Trật lất rồi.

 

[bongmaihung]

Được con khỉ. Trật lất rồi.

Thế anh Hải sửa giúp em với

 

[Quang_Hải]

Thế anh Hải sửa giúp em với

Khi đưa dữ liệu vào mảng là để chạy cho nhanh, đằng này sau khi gán dữ liệu vào mảng thì cũng chạy trên Cells thì gán vào chi cho mất công vậy trời?

 

[bongmaihung]

Khi đưa dữ liệu vào mảng là để chạy cho nhanh, đằng này sau khi gán dữ liệu vào mảng thì cũng chạy trên Cells thì gán vào chi cho mất công vậy trời?

Vâng, vì em chưa biết sửa thế nào, nên cứ loay hoay vụ này anh ah

 

[Quang_Hải]

Vâng, vì em chưa biết sửa thế nào, nên cứ loay hoay vụ này anh ah

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

 

[bongmaihung]

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é

 

[tranhthurac]

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.

 

[Maika8008]

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.

 

[Hoàng Tuấn 868]

Làm gì có thuộc tính No mà gán.

Em thỉnh thoảng xuất hiện thuộc tính "Đói" anh ạ.