Trình bày nhiều định dạng trong cùng một cell!

[thienhaden_1234]

Mình có hai dòng text trong cùng một cell. Mình muốn dòng thứ nhất sẽ ở size 15 và dòng thứ hai lại ở cỡ chữ 12 và in nghiêng. Số lượng cell muốn thao tac của mình rất lớn nên phải dùng đến Macro Visual Basic để thao tác. Bạn nào biết cách trình bày như trên mong được chỉ giáo!
Lúc đầu mình nghĩ nếu viết dòng thứ hai ra một cell khác, định dạng tuỳ ý sau đó hợp với cell chứa dòng thứ nhất nhưng cũng không được.
Mong các bạn giúp đỡ,cảm ơn nhiều!​

 

[bebo021999]

Mình có hai dòng text trong cùng một cell. Mình muốn dòng thứ nhất sẽ ở size 15 và dòng thứ hai lại ở cỡ chữ 12 và in nghiêng. Số lượng cell muốn thao tac của mình rất lớn nên phải dùng đến Macro Visual Basic để thao tác. Bạn nào biết cách trình bày như trên mong được chỉ giáo!
Lúc đầu mình nghĩ nếu viết dòng thứ hai ra một cell khác, định dạng tuỳ ý sau đó hợp với cell chứa dòng thứ nhất nhưng cũng không được.
Mong các bạn giúp đỡ,cảm ơn nhiều!​

Hai dòng trong cùng 1 cell có gì phân biệt không? Dấu " -" chẳng hạn?

 

[viehoai]

Hai dòng trong cùng 1 cell có gì phân biệt không? Dấu " -" chẳng hạn?

Ý tác giả là ký tự Chr(10) ~ phím Alt+Enter

 

[thienhaden_1234]

Ý tác giả là ký tự Chr(10) ~ phím Alt+Enter

Đúng rồi! Hai dòng cách nhau bởi kí tự Chr(10). Với cách làm thủ công thì có thể bôi đen dòng muốn định dạng và xử lí tuỳ ý! Nhưng với code VBA thì không dễ. Mong các bạn giúp đỡ!

 

[concogia]

Đúng rồi! Hai dòng cách nhau bởi kí tự Chr(10). Với cách làm thủ công thì có thể bôi đen dòng muốn định dạng và xử lí tuỳ ý! Nhưng với code VBA thì không dễ. Mong các bạn giúp đỡ!

Mình làm với 1 cell, còn muốn nhiều cell thì bạn đưa file của bạn lên nhé
Thí dụ dữ liệu ở cell A1:

Sub DinhDang()
    With [a1].Characters(1, InStr(1, [a1], Chr(10))).Font
        .Name = "Arial"
        .Size = 15
    End With
        With [a1].Characters(InStr(1, [a1], Chr(10)) + 1, Len([a1]) - InStr(1, [a1], Chr(10))).Font
            .Name = "Arial"
            .FontStyle = "Italic"
            .Size = 12
        End With
End Sub

Thân

 

[thienhaden_1234]

Thanks bạn rất nhiều! Lâu rồi mình hơi bận nên không thể reply!