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.

 

[Ngô Hải Đăng]

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

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.

 

[Cu Tồ]

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.

Bác cho hỏi làm sao để lấy mã màu và gán vào cell như file gốc bác gửi lên đấy

 

[be_09]

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?

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:

Private Sub Worksheet_Change(ByVal Target As Range)

Thì có kết quả như hình, thứ bảy tới này ra anh uống Coffee nhé.

 

[ptm0412]

KX1 = "Anh Đào.JPG" và ô có width bằng 1/8 hình, và vẫn có rất nhiều màu. Chứ không phải mỗi ô 1 màu.

 

[Ngô Hải Đăng]

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:

Private Sub Worksheet_Change(ByVal Target As Range)

Nếu áp dụng vô dữ liệu ở bài #1 thì có được không anh?

Bác cho hỏi làm sao để lấy mã màu và gán vào cell như file gốc bác gửi lên đấy

Dùng hàm API GetPixel của Windows, bác thử nghiên cứu xem.

 

[Cu Tồ]

Dùng hàm API GetPixel của Windows, bác thử nghiên cứu xem.

Cảm ơn Bác nha

 

[truongvu317]

Trong khi đề bài muốn hỏi cách không dùng vòng lặp

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

 

[ptm0412]

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.

 

[truongvu317]

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

 

[Ngô Hải Đăng]

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

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]