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

  • Thread starter Thread starter bz220v
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

bz220v

Thành viên mới
Tham gia
7/10/09
Bài viết
23
Được thích
2
làm sao khi đánh số hoặc chữ quy định bất kỳ vào 1 ô đã mặc định sẵn màu cho ô đó, đánh bất kỳ vào ô nào trên trang excel thì số hoặc chữ quy định trước đó tự động ô sẽ hiện màu (không phải là tô màu ô theo cách bình thường)
 
Bạn có thể nói rõ thêm hoặc cho ví dụ về yêu cầu của bạn được không?
 
làm sao khi đánh số hoặc chữ quy định bất kỳ vào 1 ô đã mặc định sẵn màu cho ô đó, đánh bất kỳ vào ô nào trên trang excel thì số hoặc chữ quy định trước đó tự động ô sẽ hiện màu (không phải là tô màu ô theo cách bình thường)

Có thể cái điều mà bạn đang nói tới là Conditional Formatting... (trên Format)
Thế thì phải gán từng giá trị tại Formula Is hoặc Cell Value Is và chọn từng màu nếu muốn
Lưu ý: Cái này giới hạn điều kiện thôi nhé ...
 
Tôi nghĩ là dùng code , bạn thử file kèm đúng ý chưa
 

File đính kèm

khôn đúng rồi Le tin ơi!
 
Ví du: trong trang excel ban mặc định hàm số 5 là ô được tô màu đò, thì khi đánh số 5 vảo bất kỳ ô nào thì ô đó tự động tô màu đỏ.
 
mình thấy bạn le tin đưa ví dụ lên ok mà, trúng ý bác rồi đó, chí xem và sữa theo ý mình thôi, kg bác đưa file lên đi cho dễ hiểu
 
Tôi vẫn không hiểu , hàm số 5 là gì vậy
Không gởi file được à
 
Ví du: Bạn mặc định hàm số 5 hay chữ nào đó ô được tô màu đỏ, thì khi ta đánh số 5 vào bất kỳ vào ô nào thì ô đó tự động tô màu đỏ mà mình đã mặc định.
 
Ví du: Bạn mặc định hàm số 5 hay chữ nào đó ô được tô màu đỏ, thì khi ta đánh số 5 vào bất kỳ vào ô nào thì ô đó tự động tô màu đỏ mà mình đã mặc định.

Khó hiểu quá. Bạn cần nói rõ hơn hoặc gửi bài lên thì mới được chứ. Bạn Le_tin làm đúng ý rồi đó.
 
Đó là thí dụ mình đặt dữ liệu đó mà số 5 hay 7 hay là chữ Nguyễn Ái Quốc hay số 534; 13; dgt ; vân vân và vân. Vì mỗi chữ hay mỗi số bất kỳ đó mình mặc định nó màu gì thì khi đánh vào bất vào ô nào thì ô đó tự động tô màu .
 
ặc ặc ,thì dùng conditional formatting đi, muốn mặc định số mấy cũng được mà bạn. Còn không bạn xem file của bạn le tin roi thay abcd 1234 thành ý của bạn màu đổi lại theo ý của bạn. rồi quánh thử xem có ok kg, nếu kg rành code thì cứ để vậy, ẩn 2 cột a b đi và làm thành file của mình, đó là cách củ chuối đó, hehe mình từng làm như vậy rồi. thân
 
Lần chỉnh sửa cuối:
sao mình download về mình đánh thử số 3 vào ô bất kỳ thì thấy ô đố có tự động tô màu màu Letin làm đâu. thấy ô đó trắng bóc hà
 
ặc ặc ,thì dùng conditional formatting đi, muốn mặc định số mấy cũng được mà bạn.
Dùng conditional formatting sẽ bị giới hạn

bz220v : bạn xem lại thử : ở 2 cột A,B bạn qui định thỏa mái , xong gõ số vào bên phải xem , như vậy chưa đúng sao!
Nếu kết quả không đúng thì code không chạy rồi , xem lại máy bạn
 
Lần chỉnh sửa cuối:
híc, mình nói vụ conditional...formatting là hiểu bạn bz220v định quy định cho từng ô đó, cám ơn bạn le tin với file đã gởi, kg b bạn bz220v đã ok chưa nữa.
 
Sao mình add mã code của bạn vào excel của mình lại không được nhỉ? Trong khi đó file của bạn mình tải về thì vẫn dùng được. Mà sao công thức của bạn chia thành 2 phần liền?

Bạn gởi file lên xem lỗi ở đâu , công thức của bạn chia thành 2 phần liền : không hiểu ý bạn
 
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
 
Lần chỉnh sửa cuối:
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!
 
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
 
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
 
Ủ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.
 
Ủ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...
 
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, [c1:p1000]) 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



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.
 

File đính kèm

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
 

File đính kèm

Lần chỉnh sửa cuối:
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?
 
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à:
PHP:
=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ỉ?
PHP:
=COUNTIF(B10,"*"&B9&"*")
 
vi du cua anh chi dung theo y e can, vay cach de lam dc nhu vay minh phai lam sao???
 
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é !
 
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
 
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ị.
 
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
 

Bài viết mới nhất

Back
Top Bottom