Code thay đổi font chữ cho các chữ số.

[vansit123]

Nhờ anh em, giúp em với giờ em cần code thay đổi font chữ cho các chữ số trong 1 dãy số nào dó.
ví dụ: có câu " năm nay tôi 30 tổi 4 tháng 20 ngày" đang là font chữ Trebuchet MS thì em muốn tìm tất cả các chữ số và thay font chữ các chữ số đó thành font chữ Time New Roman.
kết quả như này:" năm nay tôi 30 tổi 4 tháng 20 ngày"

 

[thukhon2014]

Thì bạn click lên Tab home đổi font thôi, hoặc VBA thì nếu muốn đổi font tại ô A1 là Time New Roman thì

Range("A1").Font.Name = "Times New Roman"

 

[befaint]

Thì bạn click lên Tab home đổi font thôi, hoặc VBA thì nếu muốn đổi font tại ô A1 là Time New Roman thì

Range("A1").Font.Name = "Times New Roman"

Đọc kỹ lại yêu cầu của chủ thớt nhé bạn.
Người ta cần thay đổi font chữ cho một số ký tự trong chuỗi, chứ không phải thay đổi font chữ cho một ô (cell).

 

[linhthuydanhbo89]

Bạn làm thế này với ô A2 chứa chuỗi cần đổi

Sub test()
    Dim i As Long
    With Sheet1
        For i = 1 To Len(.Range("A2"))
            If IsNumeric(Mid(.Range("A2"), i, 1)) Then
                .Range("A2").Characters(Start:=i, Length:=1).Font.Name = "Times New Roman"
            End If
        Next i
    End With
End Sub

 

[VetMini]

Đọc kỹ lại yêu cầu của chủ thớt nhé bạn.
Người ta cần thay đổi font chữ cho một số ký tự trong chuỗi, chứ không phải thay đổi font chữ cho một ô (cell).

Đọc muốn toét con mắt mới nhận ra.
Rốt cuộc lại thì nó có ích gì? Nếu một người "bình dị" như tôi không nhận ra thì công việc này chỉ là để "tự sướng"

 

[befaint]

Đọc muốn toét con mắt mới nhận ra.
Rốt cuộc lại thì nó có ích gì? Nếu một người "bình dị" như tôi không nhận ra thì công việc này chỉ là để "tự sướng"

Em không rõ chủ thớt áp dụng vào việc gì, nhưng thực tế có lúc cần vẽ vời (đổi font) như vậy.

 

[VetMini]

Em không rõ chủ thớt áp dụng vào việc gì, nhưng thực tế có lúc cần vẽ vời (đổi font) như vậy.

Người ta thường đổi typeface (chữ nghiêng, chữ hẹp, vv...) chứ đổi font thì phải chắc trước là dễ nhận ra.
Ở đây, thớt đổi từ loại font san serif (không có cạnh, điển hình Arial) sang loại serif (có cạnh, điển hình Time New Roman) thì cũng coi như nhận được. Rất tiếc là cái vụ cạnh không rõ lắm với chữ số. Nhất là số 4 và số 1.