Code của mình đây
Sub ToMau()
Dim mCell As Range
For Each mCell In [A1].CurrentRegion
mCell.Interior.Color = mCell
Next mCell
End Sub
Lúc bạn lấy giá trị màu đặt xuống cell sao bạn không tô màu lúc đó luôn?
Làm sao biết những ô nào cùng màu để gom? (trong số 1 triệu ô?)
Thì cứ hớn hở mả duyệt từng phần tử trong mảng thui. bạn nào cuồng đít sần sài cũng được, ai đam mê ado chắc cũng nghĩ ra một cái tuyệt chiêu nào nào đó.
nhiều ô mà sợ không khỏe thì chắc chia nhỏ theo lô khoảng 10000 ô, sau đó làm trên 10000 ô
Phải biết suy nghĩ 1 chút. Dù chỉ 100 ô màu ngẫu nhiên như đề bài cũng không có cách nào biết ô nào giống ô nào để mà gom, ngoại trừ việc chạy vòng lặp duyệt qua đủ 100 ô đó.
Lúc lấy giá trị màu xuống Cell em cũng dùng vòng lặp For mà gán vô mảng 2 chiều trước nên tốc độ nhanh hơn. Có cách để code tô màu chạy nhanh hơn là tắt ScreenUpdate do lệnh Interior.Color thao tác lên màn hình nên làm chậm code, mà em thì lại muốn giữ ScreenUpdate (có vẻ hơi mâu thuẫn).
Chắc sẽ suy nghĩ theo cách này.
Giữ screen update làm gì, nếu giữ thì chậm là chắc
Một cách khác không cần làm gì cả, chỉ cần.. tốn tiền là phải có 1 máy tính mạnh. Như máy tôi: core i5 thế hệ 8 + ram 8GB ---> Code chạy trong tích tắc
Lót dép hóng tổ sư phụ không dùng vòng lặp
máy em chạy lần đầu nhanh, mà chạy lần nữa thì mất 40s, hjk
Bạn tham khảo file này xem!
Một rừng code nhìn hoa mắt luôn. Mà mình thấy cách tô vẫn là theo từng Cell giống mình.
Mấy hôm nay xỉn quá về ngủ luôn, hôm nay tỉnh táo làm thử chơi cho vui, như đã nếu ở bài 16 không dùng vòng lặp chỉ sử dụng code sau:
Nếu áp dụng vô dữ liệu ở bài #1 thì có được không anh?
Dùng hàm API GetPixel của Windows, bác thử nghiên cứu xem.
Chuẩn chỉnh luôn nè và bác bị người ta "yểm bùa yêu" lúc nào mà không biết, chủ thớt dùng cái vòng gì gì đó, và không được, chủ thớt ra nhận định là dùng cái vòng này là không có được, thế là kêu gọi tẩy chay cái vòng đó. Dám cá bạc triệu với bác là nếu ai dùng cái vòng nào đó mà búng trìu một cái ra kết quả, là chủ thớt mừng rơi nước mắt luôn. không phân biệt vòng to vòng nhỏ, kể cả vòng của chị em.....
Bạn đang tự diễn giải theo cách của mình đối với tác giả và đặc biệt là với tôi, không yêu đương gì sất.
Cảm ơn bác đã chia sẻ, có gì nữa bác chia sẽ nhé, yêu bác nhiều nhiều, hihi
Mình chỉ hỏi là còn cách nào khác không thôi, chứ có kêu gọi tẩy chay gì đâu. Bạn cứ nói quá không hà. Dù sao thì cũng nhờ cái gợi ý của bạn mà tìm thêm được cách phủ từng lớp màu lên bức ảnh.[/QUOTE]
