Giúp về định dạng trong cell

[seta1984]

Chào mọi người, minh gặp một vấn đề về định dạng trong ô như sau: trong một ô mình có 2 dòng (bấm Alt + Enter xuống dòng) và dòng một mình cần định dạng Bold (Times New Roman) còn dòng 2 thì Italic (Arial). Mình muốn format theo định dạng như vậy cho 2000 dòng trong bảng tính thì có cách nào nhanh ko? chứ ngồi bấm Ctrl + I, rồi đổi font từ Times new roman sang Arial thì mệt quá ! (dùng format painter ko được nhé mọi người)
Cảm ơn mọi người đã đọc.

 

[ndu96081631]

Chào mọi người, minh gặp một vấn đề về định dạng trong ô như sau: trong một ô mình có 2 dòng (bấm Alt + Enter xuống dòng) và dòng một mình cần định dạng Bold (Times New Roman) còn dòng 2 thì Italic (Arial). Mình muốn format theo định dạng như vậy cho 2000 dòng trong bảng tính thì có cách nào nhanh ko? chứ ngồi bấm Ctrl + I, rồi đổi font từ Times new roman sang Arial thì mệt quá ! (dùng format painter ko được nhé mọi người)
Cảm ơn mọi người đã đọc.

Bằng tay không được thì dùng code VBA (lập trình)
Nếu bạn đồng ý giải pháp lập trình thì... ta sẽ tiếp tục

 

[seta1984]

Bằng tay không được thì dùng code VBA (lập trình)
Nếu bạn đồng ý giải pháp lập trình thì... ta sẽ tiếp tục

Em ko biết về VBA, nhờ bác hướng dẫn cụ thể, thanks bác nhiều.

 

[ndu96081631]

Em ko biết về VBA, nhờ bác hướng dẫn cụ thể, thanks bác nhiều.

Thì bạn cứ đưa ít dữ liệu lên đây (vài chục dòng) cộng với 1 cột kết quả mà bạn mong muốn đạt được. Từ dữ liệu đó mới làm giúp bạn được chứ

 

[huhumalu]

Gửi thầy.

Có lẽ file này đúng ý hơn ạ.

 

[seta1984]

Thì bạn cứ đưa ít dữ liệu lên đây (vài chục dòng) cộng với 1 cột kết quả mà bạn mong muốn đạt được. Từ dữ liệu đó mới làm giúp bạn được chứ

E gửi file dữ liệu, bác xem hộ em nhé, cột C là dữ liệu em hiện có, em muốn thành định dạng như cột D ấy ạ.Thanks bác.

 

[dhn46]

E gửi file dữ liệu, bác xem hộ em nhé, cột C là dữ liệu em hiện có, em muốn thành định dạng như cột D ấy ạ.Thanks bác.

Một sub nhỏ cho trường hợp của bạn

Sub ChangeFormat()
Dim Cls As Range
Application.ScreenUpdating = False
With Range("C2:C" & Range("C65536").End(3).Row).Font
    .Bold = True
    .Italic = False
    .Name = "Times New Roman"
End With
For Each Cls In Range("C2:C" & Range("C65536").End(3).Row)
    With Cls.Characters(InStr(1, Cls, ChrW(10)), Len(Cls) - InStr(1, Cls, ChrW(10)))
        .Font.Name = "Arial"
        .Font.Bold = False
        .Font.Italic = True
    End With
Next
Application.ScreenUpdating = True
End Sub

Bạn chép dữ liệu của bạn vào cột C rồi bấm tổ hợp phím Ctrl +q để thấy kết quả

 

[seta1984]

Một sub nhỏ cho trường hợp của bạn

Sub ChangeFormat()
Dim Cls As Range
Application.ScreenUpdating = False
With Range("C2:C" & Range("C65536").End(3).Row).Font
    .Bold = True
    .Italic = False
    .Name = "Times New Roman"
End With
For Each Cls In Range("C2:C" & Range("C65536").End(3).Row)
    With Cls.Characters(InStr(1, Cls, ChrW(10)), Len(Cls) - InStr(1, Cls, ChrW(10)))
        .Font.Name = "Arial"
        .Font.Bold = False
        .Font.Italic = True
    End With
Next
Application.ScreenUpdating = True
End Sub

Bạn chép dữ liệu của bạn vào cột C rồi bấm tổ hợp phím Ctrl +q để thấy kết quả

Mình đã làm theo cách của bác và thành công, cảm ơn bác nhiều lắm.
Nhân tiện cho mình hỏi cách nhúng cái sub vào trong excel luôn được không?

 

[vanle33]

Nhân tiện cho mình hỏi cách nhúng cái sub vào trong excel luôn được không?

Nhấn Alt+F11 và nhấn Ctrl+R để thấy cửa sổ Project-VBAProject bạn sẽ thấy code trong module 1

 

[dhn46]

Mình đã làm theo cách của bác và thành công, cảm ơn bác nhiều lắm.
Nhân tiện cho mình hỏi cách nhúng cái sub vào trong excel luôn được không?

Để cái Sub đó nhúng vào Ex thì bạn Save File bài #7 dưới dạng .Xla => Trong Menu Tool Addin bạn chọn đường dẫn tới file .Xla vừa tạo rồi khởi động lại Excel

Bây giờ với mọi file bạn mở, nếu bấm Ctrl + q thì toàn bộ cột C theo định dạng File bài #1 sẽ có kết quả như ý.

Chúc bạn thành công!

 

[ndu96081631]

Để cái Sub đó nhúng vào Ex thì bạn Save File bài #7 dưới dạng .Xla => Trong Menu Tool Addin bạn chọn đường dẫn tới file .Xla vừa tạo rồi khởi động lại Excel

Bây giờ với mọi file bạn mở, nếu bấm Ctrl + q thì toàn bộ cột C theo định dạng File bài #1 sẽ có kết quả như ý.

Chúc bạn thành công!

Để lưu thành Add-In và chạy được trên mọi file thì code cần phải sửa lại: Không phải lúc nào người ta cũng cần thao tác trên cột C đâu
Phải Set rng = Selection đồng thời kiểm tra Selection xem có phải là Range hay không