các ký tự trong 1 cell có thể có nhiều font size khác nhau được không???

[quan1104]

câu hỏi như trên đó các bạn
ví dụ: mình có ô A1 có dữ liệu là: 0919 191090
bây giờ cho chuỗi 0919 có font sze = 8
còn chuỗi 191090 có font size = 14
bạn nào biết cách format như vậy chỉ giúp mình với nha. thanks all

 

[ndu96081631]

câu hỏi như trên đó các bạn
ví dụ: mình có ô A1 có dữ liệu là: 0919 191090
bây giờ cho chuỗi 0919 có font sze = 8
còn chuỗi 191090 có font size = 14
bạn nào biết cách format như vậy chỉ giúp mình với nha. thanks all

Thì cứ format bình thường thôi mà bạn
- Chọn cell rồi bấm F2
- Bôi đen đoạn cần format rồi chỉnh font tùy ý
---------------
Đương nhiên, điều này chỉ làm được nếu chuổi cần format đúng là Text thật sự (sẽ không có tác dụng đối với dữ liệu dạng Number)

 

[quan1104]

Thì cứ format bình thường thôi mà bạn
- Chọn cell rồi bấm F2
- Bôi đen đoạn cần format rồi chỉnh font tùy ý
---------------
Đương nhiên, điều này chỉ làm được nếu chuổi cần format đúng là Text thật sự (sẽ không có tác dụng đối với dữ liệu dạng Number)

thanks bạn, nhưng mà cách của bạn là format từng cell, trong khi file excel của mình gần 500kb, có cách nào format nhiều cell có cùng kiểu (vd kiểu text) k bạn?

 

[viehoai]

thanks bạn, nhưng mà cách của bạn là format từng cell, trong khi file excel của mình gần 500kb, có cách nào format nhiều cell có cùng kiểu (vd kiểu text) k bạn?

Sao bạn không đưa file lên để khỏi mất thời gian nhỉ?

 

[quan1104]

http://www.mediafire.com/?p2pm7f557akzu12

đây là file mẫu nè bạn, câu hỏi vẫn như trên: 4 chữ số bên trái font size = 8, 6 chữ số bên phải font size = 14,
có cách nào định dạng hàng loạt k các bạn???

 

[nghiaphuc]

http://www.mediafire.com/?p2pm7f557akzu12

đây là file mẫu nè bạn, câu hỏi vẫn như trên: 4 chữ số bên trái font size = 8, 6 chữ số bên phải font size = 14,
có cách nào định dạng hàng loạt k các bạn???

Thử code này xem sao:

Sub DinhDang()
    Dim Cll As Range
    
    Application.ScreenUpdating = False
    For Each Cll In Selection
        Cll.Characters(Start:=1, Length:=4).Font.Size = 8
        Cll.Characters(Start:=5, Length:=Len(Cll.Value) - 4).Font.Size = 14
    Next
    Application.ScreenUpdating = True
End Sub

Trong file đính kèm, bạn chọn vùng chứa số điện thoại (chẳng hạn A4:A50) và nhấn Ctrl+Shift+D.

 

[quan1104]

thanks các bạn nhiều
bạn nghiaphuc cho mình hỏi thêm cái nữa nha, làm sao để set cái hot key Ctrl+Shift+D cho đoạn code đc vậy?

 

[nghiaphuc]

thanks các bạn nhiều
bạn nghiaphuc cho mình hỏi thêm cái nữa nha, làm sao để set cái hot key Ctrl+Shift+D cho đoạn code đc vậy?

Bạn nhấn Alt+F8, chọn Macro, nhấn nút Options rồi bạn sẽ tự khám phá ra thôi.

 

[ndu96081631]

Thử code này xem sao:

Sub DinhDang()
    Dim Cll As Range
    
    Application.ScreenUpdating = False
    For Each Cll In Selection
        Cll.Characters(Start:=1, Length:=4).Font.Size = 8
        Cll.Characters(Start:=5, Length:=Len(Cll.Value) - 4).Font.Size = 14
    Next
    Application.ScreenUpdating = True
End Sub

Trong file đính kèm, bạn chọn vùng chứa số điện thoại (chẳng hạn A4:A50) và nhấn Ctrl+Shift+D.

Sao không vầy cho gọn:

Sub DinhDang()
  Selection.Characters(1, 4).Font.Size = 8
  Selection.Characters(5, 200).Font.Size = 14
End Sub