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
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
For i = 1 to ubound(arr,1)
Cells(i,1).Interior.ColorIndex = 6
Next
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
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
Được con khỉ. Trật lất rồi.Như thế này cũng được đúng ko anh. Cảm ơn anh nhé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
Thế anh Hải sửa giúp em vớiĐược con khỉ. Trật lất rồi.
Vâng, vì em chưa biết sửa thế nào, nên cứ loay hoay vụ này anh ahKhi đư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
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é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
Làm gì có thuộc tính No mà gán.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.
Em thỉnh thoảng xuất hiện thuộc tính "Đói" anh ạ.Làm gì có thuộc tính No mà gán.