Tạo màu chữ và định dạng chữ trong câu lệnh excel

[minhanhmdc]

Cho tôi hỏi có bác nào biết cách nào tạo màu chữ và định dạng chữ trong câu lệnh của exel không vậy?
Ví dụ tôi dùng câu lệnh: ="Bằng chữ:"&vnd()&"chẵn"
Cho ra kết quả là:
Bằng chữ: Một ngàn hai trăm đồng chẵn


Thanks!

 

[ChanhTQ@]

Cho tôi hỏi Ví dụ tôi dùng câu lệnh: ="Bằng chữ:"&vnd()&"chẵn"
Cho ra kết quả là: Bằng chữ: Một ngàn hai trăm đồng chẵn

Thanks!

Cách hơi thô của mình như sau:
Tôi cho rằng tại 'B2' hay ô nào đó bạn đã nhập
="Bằng chữ:"&vnd()&"chẵn"
Các bước tiếp theo là:
Chọn ô đó (kích hoạt nó)
Cho chạy macro mà mình ghi bằng bộ thu macro có chỉnh sửa như sau:

Option Explicit
Sub To2Mau()
 
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    With ActiveCell.Characters(Start:=1, Length:=9).Font
        .Name = "Arial"
        .ColorIndex = 3
    End With
    With ActiveCell.Characters(Start:=11, Length:=239).Font
        .Name = "Arial"
        .ColorIndex = 5
    End With
    Selection.Offset(1).Select
End Sub

 

[rollover79]

Trong file này tôi đã dùng code để định dạng trong mỗi ô, sau khi thay đổi nội dung thì cứ 5 ký tự liên tiếp sẽ có 1 màu khác nhau, bạn tham khảo rồi áp dụng vào bài của mình nhé.

 

[minhanhmdc]

Ý tôi là mình đã có file XLA vnd rồi
và muốn thêm vào câu lệnh hoặc một lệnh để sau này khi đánh vào: ="Bằng chữ:"&vnd()&"chẵn"
thì nó cho ra kết quả là:

Bằng chữ: Một ngàn hai trăm đồng chẵn

và có thể dùng luôn ở các file khác nữa không phải vào từng file để ghi lại VBA để sau này ở các file khác thì có thể làm luôn cho nhanh.

Mong chỉ giáo cho vì mình chưa biết rõ lắm về VBA.

Cám ơn mọi người trước!

 

[ndu96081631]

Ý tôi là mình đã có file XLA vnd rồi
và muốn thêm vào câu lệnh hoặc một lệnh để sau này khi đánh vào: ="Bằng chữ:"&vnd()&"chẵn"
thì nó cho ra kết quả là:

Bằng chữ: Một ngàn hai trăm đồng chẵn

và có thể dùng luôn ở các file khác nữa không phải vào từng file để ghi lại VBA để sau này ở các file khác thì có thể làm luôn cho nhanh.

Mong chỉ giáo cho vì mình chưa biết rõ lắm về VBA.

Cám ơn mọi người trước!

Xin khẳng định điều này không thể thực hiện vì 1 hàm chỉ có khả năng cho kết quả từ 1 loạt phép tính nào đó chứ không có khả năng thay đổi thuộc tính của cell (như tô màu, thay đổi font.. vân vân)
Vì vậy nếu muốn bạn chỉ có thể chạy nó thông qua 1 SUB khác nữa sau khi đã gõ hàm và Enter
Vã lại tôi thấy yêu cầu này thật không cần thiết! Sao bạn không ghi chử "BẰNG CHỬ" ra 1 cell riêng, hàm tính toán nằm riêng? Như vậy bạn sẽ chẳng phải mất công suy nghĩ

 

[levanth36]

Làm ơn giúp tôi với :
- Tôi muốn nhập điểm vào một cột sao cho : điểm từ 8 đến 10 thì màu đỏ, từ 6.5 đến 7.9 thì có màu xanh ....
thì phải làm cách nào ? cảm ơn nhiều !!!

 

[khoavu87]

Làm ơn giúp tôi với :
- Tôi muốn nhập điểm vào một cột sao cho : điểm từ 8 đến 10 thì màu đỏ, từ 6.5 đến 7.9 thì có màu xanh ....
thì phải làm cách nào ? cảm ơn nhiều !!!

Cái này bạn nên mở topic riêng thì hay hơn. Mà nếu chịu khó Seach trên diễn đàn có đầy. Bạn Kích vào Hai dòng chữ ký màu đỏ của tôi bên dưới. Bạn sẽ thực hiện được điều này.

 

[levanth36]

Tôi cảm ơn bạn khoavu87 rất nhiều .