hỏi về màu mặc định tương ứng mỗi chữ hoặc số tương ứng

[ndu96081631]

sorry bạn Lê-tin nhiều nhe, em đã thử down lại cái ví dụ của bạn và thấy có báo không cho chạy cái macro gì đó: Macros are disable because the security level is set to High and a digitally signed Trusted Certificated is not attached to the macros. To run the macros, change the security to a lower setting (not recommend), or request the macros be signed by the author using a certificate issued by a Certificated Authority.
giúp dùm em đi

- Vào menu Tools\Macro\Security và check vào mục "Medium.... "
- Đóng Excel và mở lại file, sẽ có 1 cảnh báo xuất hiện, bấm nút Enable Macros
Vậy là code chạy được rồi đấy!

 

[bz220v]

ok, làm được rồi, cảm ơn nhiều nhe, nhưng mà sẵn tiện cho em hỏi luôn cách làm cái macro này luôn đi hay quá, cảm ơn nhiều

 

[ndu96081631]

ok, làm được rồi, cảm ơn nhiều nhe, nhưng mà sẵn tiện cho em hỏi luôn cách làm cái macro này luôn đi hay quá, cảm ơn nhiều

Với file đang chạy, nếu bạn bấm Alt + F11 thì sẽ nhìn thấy code người ta viết sẳn
"Làm macro" cũng thế thôi, cũng Alt + F11 và.. gõ gõ vào ---> Còn chuyện gõ cái gì cho Excel nó hiểu thì phải... HỌC

 

[bz220v]

Ủa vậy cái này thuộc lập trình phức tạp làm lâu lắm phải không bạn ndu96981631 ? em chỉ hỏi tạm thế thôi, đã bấm Alt + F11 và đã thấy code rồi, xin cảm ơn rất nhiều.

 

[ndu96081631]

Ủa vậy cái này thuộc lập trình phức tạp làm lâu lắm phải không bạn ndu96981631 ? em chỉ hỏi tạm thế thôi, đã bấm Alt + F11 và đã thấy code rồi, xin cảm ơn rất nhiều.

Phức tạp hay đơn giản... Khó hay dể còn tùy từng người ---> Nếu bạn "khoái" VBA thì bạn sẽ thấy nó dể (như ăn cháo.. gà)
Cũng giống như ngày xưa khi ta học phổ thông, người này thấy môn Toán dể trong khi người khác lại cảm thấy thoải mái với Văn!
Ẹc... Ẹc...

 

[congthanh6868]

Hai bài tập bôi màu dữ liệu

Chào các bạn, mình có hai bài tập bôi màu dữ liệu cần giúp đỡ (xem file đính kèm). Ở bài tập 1 không biết có áp dụng công thức của bạn Le tin được không? Không hiểu tại sao mình add code của bạn Le tin vào excel của mình mà không được. Tại sao code của Le tin lại thành 2 phần:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [c11000]) Is Nothing Then
If Target = "" Then
Target.Interior.ColorIndex = 0
Else
i = WorksheetFunction.Match(Target.Value, [a1:a100], 0)
Target.Interior.ColorIndex = Cells(i, 2).Interior.ColorIndex

End If
End If
End Sub


Và
Sub Macro1()
'


i4 = WorksheetFunction.Match(Cells(i, 2), Range("B" & i + 1 & ":B50000"), 0)
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Range("G4").Select
End Sub


Mong các bạn giúp đỡ. Cám ơn các bạn.

 

[le tin]

Sub Macro1()
'


i4 = WorksheetFunction.Match(Cells(i, 2), Range("B" & i + 1 & ":B50000"), 0)
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Range("G4").Select
End Sub


Mong các bạn giúp đỡ. Cám ơn các bạn.

Cái này không dùng đâu bạn , mình quên xóa đi
Trong bài tập này dùng conditional formatting
Còn việc không dùng code được thì bạn gởi file lên

 

[congthanh6868]

Cái này không dùng đâu bạn , mình quên xóa đi
Trong bài tập này dùng conditional formatting
Còn việc không dùng code được thì bạn gởi file lên

Cám ơn bạn. Mình đã dùng conditional formatting để giải quyết Bài tập 1. Vậy còn Bài tập 2, có cách nào giải quyết được không bạn?

 

[le tin]

Cám ơn bạn. Mình đã dùng conditional formatting để giải quyết Bài tập 1. Vậy còn Bài tập 2, có cách nào giải quyết được không bạn?

Bạn xem lại , đã dùng giải pháp như bài 1

 

[ndu96081631]

Bạn xem lại , đã dùng giải pháp như bài 1

Công thức trong CF của bạn là:

=OR(MID(B10,4,2)=MID(B9,1,2),MID(B10,1,2)=MID(B9,1,2),MID(B10,7,2)=MID(B9,1,2))

Tại sao không dùng COUNIF nhỉ?

=COUNTIF(B10,"*"&B9&"*")

 

[tuongthuy212]

vi du cua anh chi dung theo y e can, vay cach de lam dc nhu vay minh phai lam sao???

 

[cucptp]

Tôi nghĩ là dùng code , bạn thử file kèm đúng ý chưa

a có thể hướng dẫn em làm được ko? Em đang cần phần này
Cám ơn anh rất nhiều

 

[mrlevisle]

admin cho mình xin cái lệnh sao cho 10 số từ 0->9 mỗi số 1 màu trong excell với. nghĩa là tự động nhận màu khi nhập số ấy. tks nhiều nhé !

 

[vietnd]

thư làm cách này xem sao Fomat -> Conditional fomating sau đó chọn màu từ 1 đến 10 tương ứng màu sắc bạn cần đặt

 

[dennis76]

Cách chọn Fomat -> Conditional fomating là đúng rồi, nhưng muốn chọn bất kì ô nào cũng như vậy thì phải chọn toàn bộ sheet rồi mới gán giá trị.

 

[ailamvn]

Tôi nghĩ là dùng code , bạn thử file kèm đúng ý chưa

Nếu dùng code thì thế nào bạn? đây là cái tôi đang cần, mà tìm hoài chưa ra cách làm. Bạn chỉ giúp tôi với.
Email tôi: ailoclam@gmail.com
Nếu được bạn email tôi với nhé. Tôi ít vô diễn đàn nên cũng khó nhận được câu trả lời.
Cảm ơn bạn thật nhiều