Xin giúp đỡ cách nối 2 đoạn text mà vẫn giữ được định dạng

Liên hệ QC

huycuongxd

Thành viên thường trực
Tham gia
20/6/08
Bài viết
397
Được thích
488
Nghề nghiệp
Kỹ sư Xây Dựng
Các bạn cho mình hỏi:
Trong Excel mình soạn thảo 2 dòng:
Dòng 1: " Xin chào các bạn! " (kiểu chữ bình thường)
Dòng 2: " Giải Pháp Excel " (kiểu chữ đậm và nghiêng)
Khi mình nối 2 dòng trên lại với nhau thì được:"Xin chào các bạn! Giải Pháp Excel"
Vậy có cách nào để sau khi nối sẽ được kết quả là:"Xin chào các bạn! Giải Pháp Excel"
Rất mong nhận được sự giúp đỡ của GPE!
Vô cùng Cảm ơn!!! ;;;;;;;;;;; -+*/ }}}}}
 
Theo mình cái này các cao thủ VBA có cao kiến gì không chứ với excel bình thường không thể làm điều này. Nếu dữ liệu là text trên 1 cell thì có thể có 2 kiểu format chữ thường và chữ đậm (có thể nghiêng lun cũng được). Theo như bạn nói thì việc ghép dữ liệu phải dùng đến công thức nên không thể format trong công thức được.
 
Các bạn cho mình hỏi:
Trong Excel mình soạn thảo 2 dòng:
Dòng 1: " Xin chào các bạn! " (kiểu chữ bình thường)
Dòng 2: " Giải Pháp Excel " (kiểu chữ đậm và nghiêng)
Khi mình nối 2 dòng trên lại với nhau thì được:"Xin chào các bạn! Giải Pháp Excel"
Vậy có cách nào để sau khi nối sẽ được kết quả là:"Xin chào các bạn! Giải Pháp Excel"
Rất mong nhận được sự giúp đỡ của GPE!
Vô cùng Cảm ơn!!! ;;;;;;;;;;; -+*/ }}}}}
Dùng VBA như sau
A3=A1 & " " & A2

Sub Macro1()
Range("A3").Value = Range("A1").Value & " " & Range("A2").Value
Xlen = Len(Range("A1"))
yLen = Len(Range("A2"))
With Range("A3").Characters(Start:=Xlen + 2, Length:=yLen + 2).Font
.Name = "Arial"
.FontStyle = "Bold"
.ColorIndex = 3
End With
End Sub
 
Dùng VBA như sau
A3=A1 & " " & A2
Lúc đầu tôi cũng định làm vậy nhưng tôi nghĩ đây chỉ là ví dụ giã lập thôi... Đặt trường hợp có nhiều text: Text1, Text2... Text10, trong đó Text5 được định dạng chử đậm, nghiêng, màu đỏ mà dùng cách này để nối vào rồi Format thì hơi cực à nha!
Hỏng lẽ không có cách nào "nhớ" từng định dạng của từng Text sao ta?
 
Web KT
Back
Top Bottom