Tô màu bằng VBA

[Ngô Hải Đăng]

Mình có 1 vùng dữ liệu gồm 360 hàng và 480 cột, mỗi ô chứa 1 giá trị màu. Cho mình hỏi là có cách nào tô màu nhanh vùng dữ liệu này ngoài cách dùng vòng lặp For và tô màu từng ô không? Vì nếu kích thước dữ liệu là 1000 x 1000 thì tô từng ô rất lâu.

 

[snow25]

Mình có 1 vùng dữ liệu gồm 360 hàng và 480 cột, mỗi ô chứa 1 giá trị màu. Cho mình hỏi là có cách nào tô màu nhanh vùng dữ liệu này ngoài cách dùng vòng lặp For và tô màu từng ô không? Vì nếu kích thước dữ liệu là 1000 x 1000 thì tô từng ô rất lâu.

Code tô màu cũ của bạn đâu cho lên đây xem nào.

 

[SA_DQ]

Thay vì tô từng ô, bạn tô hẵn 1 cụm ô; Lúc đó tốc độ sẽ phụ thuộc vô cụm ô là bao lớn
Ví dụ:

For J = 1 to 10^3 Step 100
For W = 1 to 10^3 Step 100

Next W
Next J

 

[Ngô Hải Đăng]

Code tô màu cũ của bạn đâu cho lên đây xem nào.

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

 

[batman1]

Mục đích tô mầu từng ô?

Trang tính đâu phải búp bê mà tô mầu, phấn son lòe loẹt, tạo nghìn dáng bốc lửa như khi đi thi hoa hậu. Vài hôm lại kêu là tập tin ì ạch.

 

[ndu96081631]

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

Thì ra là cái này:



Công phu ghê!

 

[Ngô Hải Đăng]

Bài toán này thực ra là có 2 phần. Phần 1 là lấy giá trị màu của từng pixel vô từng ô (Mình đã làm được). Còn phần 2 là tô màu, mình cũng làm được nhưng không biết có cách nào để tô nhanh hơn không, tô từng ô thì gặp những bức hình lớn thì nó chạy rất lâu.

 

[truongvu317]

Màu trong một bức tranh sẽ có nhiều chỗ giống nhau, nếu vậy thì tô màu tất cả các ô cùng màu một lúc thì chắc tốc độ sẽ tăng thêm khoảng 500%

 

[ndu96081631]

Bài toán này thực ra là có 2 phần. Phần 1 là lấy giá trị màu của từng pixel vô từng ô (Mình đã làm được). Còn phần 2 là tô màu, mình cũng làm được nhưng không biết có cách nào để tô nhanh hơn không, tô từng ô thì gặp những bức hình lớn thì nó chạy rất lâu.

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?

 

[ptm0412]

Màu trong một bức tranh sẽ có nhiều chỗ giống nhau, nếu vậy thì tô màu tất cả các ô cùng màu một lúc thì chắc tốc độ sẽ tăng thêm khoảng 500%

Làm sao biết những ô nào cùng màu để gom? (trong số 1 triệu ô?)

 

[truongvu317]

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 đó.

Bài đã được tự động gộp: 18/9/20

trong số 1 triệu ô?

nhiều ô mà sợ không khỏe thì chắc chia nhỏ theo lô khoảng 10000 ô, sau đó làm trên 10000 ô

 

[ptm0412]

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 ô đó.
Duyệt rồi gom hay duyệt bỏ vô Dic thì trong quá trình duyệt tô màu phứt cho xong. Mà có phải cơ sở dữ liệu đâu mà ADO? Giả sử đưa được vào ADO rồi có thoát khỏi chạy vòng lặp không?
(Trong khi đề bài muốn hỏi cách không dùng vòng lặp)
Có cách không chạy luôn, đó là thay vì gán số xuống thì tô màu luôn trong phần 1 như @ndu96081631 nói

 

[Ngô Hải Đăng]

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?

Có cách không chạy luôn, đó là thay vì gán số xuống thì tô màu luôn trong phần 1 như @ndu96081631 nói

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).

Màu trong một bức tranh sẽ có nhiều chỗ giống nhau, nếu vậy thì tô màu tất cả các ô cùng màu một lúc thì chắc tốc độ sẽ tăng thêm khoảng 500%

Chắc sẽ suy nghĩ theo cách này.

 

[tigertiger]

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).

Giữ screen update làm gì, nếu giữ thì chậm là chắc

Còn không giữ thì cũng chậm, vì tranh nhiều cells
Tuy thế 1 bức tranh thì phải chấp nhận, có những cái phải chấp nhận mất thời gian vì nó là hiển thị, so với làm tay còn nhanh hơn nhiều
Muốn nhanh thì hợp lại thành BMP hay JPG rồi gán xuống (thế lại thành bài toán ngược lại, cần chi gỡ ra cells)

 

[ndu96081631]

Giữ screen update làm gì, nếu giữ thì chậm là chắc

Còn không giữ thì cũng chậm, vì tranh nhiều cells
Tuy thế 1 bức tranh thì phải chấp nhận, có những cái phải chấp nhận mất thời gian vì nó là hiển thị, so với làm tay còn nhanh hơn nhiều
Muốn nhanh thì hợp lại thành BMP hay JPG rồi gán xuống (thế lại thành bài toán ngược lại, cần chi gỡ ra cells)

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

 

[be_09]

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

Anh có cách chẳng cần vòng lặp gì cả, nhưng bây giờ bận tiếp bạn bè rồi, mai rảnh anh em mình uống coffee bàn tiếp.

 

[ptm0412]

Anh có cách chẳng cần vòng lặp gì cả, nhưng bây giờ bận tiếp bạn bè rồi, mai rảnh anh em mình uống coffee bàn tiếp.

Lót dép hóng tổ sư phụ không dùng vòng lặp

 

[Cu Tồ]

Anh có cách chẳng cần vòng lặp gì cả, nhưng bây giờ bận tiếp bạn bè rồi, mai rảnh anh em mình uống coffee bàn tiếp.

Em cũng hóng cách Bác làm để học hỏi

 

[Cá ngừ F1]

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

máy em chạy lần đầu nhanh, mà chạy lần nữa thì mất 40s, hjk

 

[chiendich]

Mình có 1 vùng dữ liệu gồm 360 hàng và 480 cột, mỗi ô chứa 1 giá trị màu. Cho mình hỏi là có cách nào tô màu nhanh vùng dữ liệu này ngoài cách dùng vòng lặp For và tô màu từng ô không? Vì nếu kích thước dữ liệu là 1000 x 1000 thì tô từng ô rất lâu.

Bạn tham khảo file này xem!
nguồn: https://ramblings.mcpher.com/download-complete-projects/downloads/