VBA: Format giá trị số trong chuỗi tạo bởi custom format

[bebo021999]

Giả sử ô A1 mình có giá trị 60
Tại ô A1 mình dùng custom format:
Type: 0" Weeks"
Tại ô A1 sẽ hiển thị chuỗi "60 Weeks", và có giá trị thực là 60
Dùng VBA, bằng cách nào để mình format ô này theo kiểu: Tô đỏ (hoặc tô đậm) giá trị số, còn giá trị text format thì giữ nguyên?
Xin cám ơn!

 

[bebo021999]

83 views!
Các cao thủ, thấp thủ đâu hết rồi!

 

[bebo021999]

Thêm 1 view nữa!
Leo "leo" vô xem sao?

 

[Nhattanktnn]

thấp thủ đâu hết rồi

Thấp thủ đây bác , Lý do bài bác view cao mà không ai trả lời là vì theo em không thể làm được điều này. Nếu ô đó là chữ "60 Weeks" thì làm được, còn nếu số 60 mà định dạng "60 Weeks" thì chỉ có thể tô màu toàn bộ chữ "60 Weeks" thôi

 

[bebo021999]

Từ khi nghiên cứu lập trình, hỏi được 2 bài thì cả 2 bài đều không có giải pháp! Buồn quá huhu

Ký tự đổi màu trong quá trình nhập liệu vào ô, căn cứ vào điều kiện số từ đã nhập

Có người hỏi mình như sau: Nhập text vào ô, ví dụ ô A1. Điều kiện là số từ nhập vào lớn hơn 7 và nhỏ hơn 17. Nếu sai sẽ cảnh báo người nhập liệu. Ví dụ: "Tôi là sinh viên": 4 từ. Không hợp lệ "Ở nhà, mẹ là người đảm nhiệm công việc nội trợ." 11 từ. hợp lệ. "Ở nhà, mẹ là người đảm nhiệm công việc...

www.giaiphapexcel.com

 

[LamNA]

Giả sử ô A1 mình có giá trị 60
Tại ô A1 mình dùng custom format:
Type: 0" Weeks"
Tại ô A1 sẽ hiển thị chuỗi "60 Weeks", và có giá trị thực là 60
Dùng VBA, bằng cách nào để mình format ô này theo kiểu: Tô đỏ (hoặc tô đậm) giá trị số, còn giá trị text format thì giữ nguyên?
Xin cám ơn!

Bác thử dùng tạm code này và tuỳ biến code theo ý của mình xem được không

Public Sub FormatNumberColor()

   Dim LookNumber As String: LookNumber = Number
    Dim i As Long
    Dim FindNumber As Long: FindNumber = Len(LookNumber)

    For i = 1 To Len(Range("A1"))
        With Range("a1")
            If .Characters(i, FindNumber).Text = LookNumber Then
                While IsNumeric(.Characters(i + FindNumber, 1).Text)
                    With .Characters(i + FindNumber, 1).Font
                    .Bold = True
                    .Color = vbRed
                    End With
                    i = i + 1
                Wend
            End If
        End With
    Next i
End Sub

 

[bebo021999]

Tô màu chuỗi bên trong không khó, cái khó là tô màu chuỗi hiển thị trên màn hình, được tạo bởi custom format.

 

[Hoàng Trọng Nghĩa]

Tô màu chuỗi bên trong không khó, cái khó là tô màu chuỗi hiển thị trên màn hình, được tạo bởi custom format.

No way! Hỏi khó vậy mà cũng hỏi được sao ta!

 

[Maika8008]

Từ khi nghiên cứu lập trình, hỏi được 2 bài thì cả 2 bài đều không có giải pháp! Buồn quá huhu

Ký tự đổi màu trong quá trình nhập liệu vào ô, căn cứ vào điều kiện số từ đã nhập

Có người hỏi mình như sau: Nhập text vào ô, ví dụ ô A1. Điều kiện là số từ nhập vào lớn hơn 7 và nhỏ hơn 17. Nếu sai sẽ cảnh báo người nhập liệu. Ví dụ: "Tôi là sinh viên": 4 từ. Không hợp lệ "Ở nhà, mẹ là người đảm nhiệm công việc nội trợ." 11 từ. hợp lệ. "Ở nhà, mẹ là người đảm nhiệm công việc...

www.giaiphapexcel.com

Khó quá thì bỏ, tuân theo nguyên tắc dê làm khổ bò

 

[Nhattanktnn]

Khó quá thì bỏ, tuân theo nguyên tắc dê làm khổ bò

Dễ làm khó bỏ mà bác làm thành món "dê làm khô bò" rồi

 

[Maika8008]

Dễ làm khó bỏ mà bác làm thành món "dê làm khô bò" rồi

Thì đã sao, hehe. Hồi xưa còn có câu chuyện hay hơn. Một bác to to đọc trên giấy: "Dao nào cũng là dao: dao phát, dao cạo dài..."