Nhảy số khi tô màu cho cell !!! (1 người xem)

[Takehi_JP]

Nhờ các Anh Chị giúp ,
làm sao khi ta tô màu cho 1 cell nào đó , thì tai cell đó sẽ tự động nhập 1 con số mà ta đã quy định sẵn cho nó ?

ví dụ : quy định màu đỏ sẽ nhập số 1
quy định màu xanh sẽ nhập số 2........

mình có gữi excel ví dụ và quy định màu và số. nhờ Anh Chị giúp đỡ !
Tô màu tới đâu, số tự động nhập tới đó. @@

 

[phulien1902]

Nhờ các Anh Chị giúp ,
làm sao khi ta tô màu cho 1 cell nào đó , thì tai cell đó sẽ tự động nhập 1 con số mà ta đã quy định sẵn cho nó ?

ví dụ : quy định màu đỏ sẽ nhập số 1
quy định màu xanh sẽ nhập số 2........

mình có gữi excel ví dụ và quy định màu và số. nhờ Anh Chị giúp đỡ !
Tô màu tới đâu, số tự động nhập tới đó. @@

Bạn tham khảo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:K10")) Is Nothing Then
        Select Case Target.Value
        Case Is = 1
            Target.Interior.Color = 255
        Case Is = 2
            Target.Interior.Color = 65535
        Case Is = 3
            Target.Interior.Color = 32768
        Case Is = 4
            Target.Interior.Color = 10040115
        Case Is = 5
            Target.Interior.Color = 13434879
        Case Is = 6
            Target.Interior.Color = 16777164
        End Select
    End If
End Sub

Bây giờ bạn nhập các số theo list và xem kết quả nhé.

 

[ndu96081631]

Bạn tham khảo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:K10")) Is Nothing Then
        Select Case Target.Value
        Case Is = 1
            Target.Interior.Color = 255
        Case Is = 2
            Target.Interior.Color = 65535
        Case Is = 3
            Target.Interior.Color = 32768
        Case Is = 4
            Target.Interior.Color = 10040115
        Case Is = 5
            Target.Interior.Color = 13434879
        Case Is =  6
            Target.Interior.Color = 16777164
        End Select
    End If
End Sub

Bây giờ bạn nhập các số theo list và xem kết quả nhé.

Rồi lỡ người ta thay đổi quy định MÀU + SỐ thì sao hả bạn? Kêu người ta sửa lại code?
Sao bạn không tham chiếu vào bảng màu có sẵn?

 

[Takehi_JP]

cho mình hỏi, những con số dưới đây, làm sao tra được là màu gì, có bảng màu cho các mã số đó ko ? chỉ giúp mình với !

Bạn tham khảo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:K10")) Is Nothing Then
        Select Case Target.Value
        Case Is = 1
            Target.Interior.Color = 255
        Case Is = 2
            Target.Interior.Color = 65535
        Case Is = 3
            Target.Interior.Color = 32768
        Case Is = 4
            Target.Interior.Color = 10040115
        Case Is = 5
            Target.Interior.Color = 13434879
        Case Is = 6
            Target.Interior.Color = 16777164
        End Select
    End If
End Sub

Bây giờ bạn nhập các số theo list và xem kết quả nhé.

 

[Takehi_JP]

Rồi lỡ người ta thay đổi quy định MÀU + SỐ thì sao hả bạn? Kêu người ta sửa lại code?
Sao bạn không tham chiếu vào bảng màu có sẵn?

dạ đúng rồi, em chỉ đưa ra ví dụ, còn nếu thay đổi màu, thì chắc chắn phải ghi lại code. cùng với mã màu khác

 

[phulien1902]

cho mình hỏi, những con số dưới đây, làm sao tra được là màu gì, có bảng màu cho các mã số đó ko ? chỉ giúp mình với !

Đơn giản thôi bạn à. Bạn làm như sau:
Bạn vào cửa sổ Immediate, bạn nhập

?Range("U2").Interior.color

rồi bạn gõ Enter 1 phát xem nó ra cái gì nhé.

 

[Takehi_JP]

với lại, kiểu này là Tô màu thì sẽ tự động điền số, ngược lai với việc điền số nó tự động chuyển màu như mình format CF.

VD : mình tô màu vào CELL, thì CELL đó sẽ điền cho mình con số như mình đã quy định .

 

[befaint]

với lại, kiểu này là Tô màu thì sẽ tự động điền số, ngược lai với việc điền số nó tự động chuyển màu như mình format CF.

VD : mình tô màu vào CELL, thì CELL đó sẽ điền cho mình con số như mình đã quy định .

Nhờ giúp hay hướng dẫn?

 

[Takehi_JP]

Nhờ giúp hay hướng dẫn?

nhờ giúp , vì thực sự mình ko rành VB trong khoảng này lắm. với lại, cái này ngược với CF, nên mình không có khả năng làm nó được

 

[Takehi_JP]

có thể giúp mình giải quyết vấn đề này được ko Anh Chị GPE

 

[ndu96081631]

VD : mình tô màu vào CELL, thì CELL đó sẽ điền cho mình con số như mình đã quy định .

Cái vụ ColorChange Event này không phải chuyện dễ ăn đâu. Phải dùng đến Class các kiểu mới giải quyết được vấn đề và code khá dài. Vậy liệu có "xứng đáng" áp dụng cho file của bạn không? Bởi tôi e mai này có trục trặc thì chắc chắn bạn sẽ không biết đường nào mà sửa

 

[Takehi_JP]

Cái vụ ColorChange Event này không phải chuyện dễ ăn đâu. Phải dùng đến Class các kiểu mới giải quyết được vấn đề và code khá dài. Vậy liệu có "xứng đáng" áp dụng cho file của bạn không? Bởi tôi e mai này có trục trặc thì chắc chắn bạn sẽ không biết đường nào mà sửa

dạ, về cơ bản, em đọc hiểu được ý đoạn code, nhưng viết ra thì em mù tịch, vì đã bỏ nghề từ khá lâu. nếu được, có thể hướng dẫn cách tiến hành, hoặc đai loại một số tham khảo giúp cho em cũng được ạ.

 

[MeThuongNho]

Bạn xem file này có đáp ứng cho file bạn không nha.
( F9 or Save sau khi fill /đổi màu fill)

 

[Takehi_JP]

Bạn xem file này có đáp ứng cho file bạn không nha.
( F9 or Save sau khi fill /đổi màu fill)

COOLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
Có điểm này : đó là tô xong, khi xoá số đi, thì bay luôn data link =GPE, nó củng ko clear màu thôi,

 

[MeThuongNho]

Xoá thì nó phải mất công thức thôi chứ sao. Ý bạn muốn như thế nào nữa.
Nếu không muốn mất thì clear format thôi thì sẽ clear được màu và giữ đc link GPE nữa.
Thân!

 

[MeThuongNho]

Còn không thì nhập lại code GPE cho các ô bị xoá bằng button này vậy.

 

[Takehi_JP]

Còn không thì nhập lại code GPE cho các ô bị xoá bằng button này vậy.

cảm ơn MeThuongNho nhiều. chừng ni củng đủ sài cho trường hợp của mình rồi. làm phiền bạn quá.