Đổ màu trên text box (2 người xem)

[italy891]

Mình đang có 1 vấn đề như sau :

Mình muốn đổ màu cho text box có điều kiện !

Ví dụ : Nếu là A thì sẽ bôi màu hết hình tròn ( hình 4 không có giá trị nên không có màu vàng )

http://upanh.biz/images/2014/11/18/1111111111.png
Các bạn nhìn hình !

Ai có thể làm giúp mình được không ?

Thanks rất nhiều !

 

[Hoàng Trọng Nghĩa]

Bạn đưa cái file của bạn lên đây đi, xem ai giúp được thì giúp, chứ không lẽ người ta phải vẽ tất cả cho bạn sao?

 

[italy891]

mình không có file nào cả , cái đó mình lấy ví dụ thôi !
chứ trên excel không làm được ! Chắc phải qua Access . Ý mình trên file excel chỉ có data thôi !

 

[Hoàng Trọng Nghĩa]

mình không có file nào cả , cái đó mình lấy ví dụ thôi !
chứ trên excel không làm được ! Chắc phải qua Access . Ý mình trên file excel chỉ có data thôi !

Thế bạn chụp hình cái file đó là Excel hay Access vậy? Việc đó đối với VBA của Excel chả là cái gì cả, nhưng ... làm biếng vẽ thôi!

 

[italy891]

Thế bạn chụp hình cái file đó là Excel hay Access vậy? Việc đó đối với VBA của Excel chả là cái gì cả, nhưng ... làm biếng vẽ thôi!

Cái đó mình vẽ bằng công cụ trong excel ! đấy là mình vẽ bằng tay ! Bạn có thể giúp mình không ? Minh muốn nhập nó tự động nó tự tô màu

 

[hackersky]

bạn thử bôi dòng chữ cần tô màu xem có được không

 

[italy891]

Mình chỉ muốn tô màu trong textbox ( hình tròn đó )

 

[italy891]

Thế bạn chụp hình cái file đó là Excel hay Access vậy? Việc đó đối với VBA của Excel chả là cái gì cả, nhưng ... làm biếng vẽ thôi!

bạn có thể viết cho mình 1 câu lệch trong access . Nếu là 1 thì textbox ( hình tròn ) sẽ được bôi màu bất kỳ không bạn ?

 

[Hoàng Trọng Nghĩa]

Mình chỉ muốn tô màu trong textbox ( hình tròn đó )

Bạn muốn người ta giúp mà bạn cũng ... làm biếng làm cái file và gửi lên, vậy chắc tôi cũng làm biếng trả lời quá!

 

[italy891]

Bạn muốn người ta giúp mà bạn cũng ... làm biếng làm cái file và gửi lên, vậy chắc tôi cũng làm biếng trả lời quá!

Hix ! mình có file này thôi !

 

[hackersky]

Bạn xem đây có phải yêu cầu của bạn đề xuất không nhé

 

[Hoàng Trọng Nghĩa]

Hix ! mình có file này thôi !

Khi đưa file lên thì điều đó không là vấn đề nữa! Tôi chỉ đặt lại tên chúng từ Oval1 đến Oval8 xong thì thực hiện code dưới đây:

Private Sub cmdChangeColor_Click()
    Dim c As Byte
    For c = 1 To 8
        With Shapes(

 

[italy891]

Cảm ơn bạn nhiều nhé !
Đúng ý mình rồi ! Hi