Mem giúp mình làm sao chỉnh font chữ của 1 ô khi được gộp từ 2 ô khác lại với nhau @@ (1 người xem)

[hathay.net]

tình hình là thế này các bạn , mình có 1 file EXCEL DỮ LIỆU của karaoke , mình đã gộp 2 dữ liệu ở 2 ô A và B lại với nhau thành C bằng hàm & và hàm char(10).Nhưng khi gộp xong rồi thì font chữ trong ô mới lại trở về font bình thường . bây giờ mình cần chỉnh font của ô mới như ô D1 ( tại vì số lượng nhiều nên mình không thể chỉnh thủ công từng ô được ). Bạn nào biết được giúp mình với . minh có đính kèm file e xcel phía dưới , CHÂN THÀNH CÁM ƠN CÁC BẠN NHÉ!

 

[vanle33]

tình hình là thế này các bạn , mình có 1 file EXCEL DỮ LIỆU của karaoke , mình đã gộp 2 dữ liệu ở 2 ô A và B lại với nhau thành C bằng hàm & và hàm char(10).Nhưng khi gộp xong rồi thì font chữ trong ô mới lại trở về font bình thường . bây giờ mình cần chỉnh font của ô mới như ô D1 ( tại vì số lượng nhiều nên mình không thể chỉnh thủ công từng ô được ). Bạn nào biết được giúp mình với . minh có đính kèm file e xcel phía dưới , CHÂN THÀNH CÁM ƠN CÁC BẠN NHÉ!

Bạn " chế biến " ở đây http://www.giaiphapexcel.com/forum/...sang-chữ-nghiêng-trong-cung-một-chuỗi-văn-bản
http://www.giaiphapexcel.com/forum/showthread.php?8669-In-đậm-trong-công-thức-ghép-chuỗi

 

[hathay.net]

Bạn " chế biến " ở đây http://www.giaiphapexcel.com/forum/...sang-chữ-nghiêng-trong-cung-một-chuỗi-văn-bản
http://www.giaiphapexcel.com/forum/showthread.php?8669-In-đậm-trong-công-thức-ghép-chuỗi

bạn ơi thực sự thì mình đã tìm ra lệnh rồi tuy nhiên trong lệnh này k có hàm CHAR , tức là không xuống dòng được , bạn giúp mình với .

Option ExplicitPrivate Sub MergeStr(ByVal sRng As Range, ByVal Sep As String, ByVal Target As Range)
Dim Clls As Range, st As Long, i As Long, ifnt As Font
Target.Value = JoinText(sRng, Sep)
For Each Clls In sRng
For i = 1 To Len(Clls)
With Target.Characters(st + i, 1).Font
Set ifnt = Clls.Characters(i, 1).Font
.FontStyle = ifnt.FontStyle
.Name = ifnt.Name
.ColorIndex = ifnt.ColorIndex
.Size = ifnt.Size
.Underline = ifnt.Underline
.Strikethrough = ifnt.Strikethrough
.Superscript = ifnt.Superscript
.Subscript = ifnt.Subscript
End With
Next i
st = st + Len(Clls) + Len(Sep)
Next
End Sub
Function JoinText(ByVal sRng As Range, ByVal Sep As String) As String
On Error GoTo NextStp
If sRng.Count = 1 Then JoinText = sRng.Value: Exit Function
With WorksheetFunction
JoinText = Join(.Transpose(sRng), Sep)
Exit Function
NextStp:
JoinText = Join(.Transpose(.Transpose(sRng)), Sep)
End With
End Function
Sub Main()
Dim i As Long
With Selection
For i = 1 To .Rows.Count
MergeStr Range(.Rows(i).Address), " ", .Offset(, .Columns.Count)(i, 1)
Next
End With
End Sub

 

[ndu96081631]

bạn ơi thực sự thì mình đã tìm ra lệnh rồi tuy nhiên trong lệnh này k có hàm CHAR , tức là không xuống dòng được , bạn giúp mình với .

Tôi vừa hướng dẫn về CHAR rồi đấy:
http://www.giaiphapexcel.com/forum/...ng-cung-một-chuỗi-văn-bản&p=630624#post630624

 

[vanle33]

bạn ơi thực sự thì mình đã tìm ra lệnh rồi tuy nhiên trong lệnh này k có hàm CHAR , tức là không xuống dòng được , bạn giúp mình với .

Hãy đọc #4 ở dưới.
Tôi thấy trong link của tôi (tìm đến #5) tôi đã thử áp dụng trực tiếp trên file của bác ndu như sau
Bạn nhập vào A10 chữ "123 chia đôi lối về" rồi nhấn Alt+Enter. Nhập vào cột B chữ "Nuốt nước mắt khẽ ôm anh ấm nồng" vào B10.
Định dạng A10, B10 cho đúng theo yêu cầu.
Chọn A10:B10
Nhấn Run code
OK chưa?
Đâu cần phải chỉnh sửa code hay dùng code khác làm chi cho mệt!