Chỉnh sửa SIZE của 1 ký tự trong chuõi ký tự ?

[PBSSB]

Kính gửi Diễn đàn!

A2 có 6, B2 có B. Tại cell C2, nhập =SUBSTITUTE(B2,B2,B2&A2).

Tại cell C2 có B6.
Hai ký tự B6 có Size = 10.

Nếu muốn đẹp văn bản B6, thì ký tự 6 cần chỉnh sửa Size = 8.

Làm cách nào? Dùng Macro hay VBA?
Chi tiết ra sao, mong diễn đàn hướng dẫn!
Thanks.

 

[PBSSB]

Chỉnh sửa định dạng lẻ tẻ. Rất mong được các cao thủ VBA giúp đỡ !

Tôi mò mẫm trong Diễn đàn, thì thấy có 2 hướng giải bài toán chỉnh sửa định dạng lẻ tẻ trên:

1- Xử lý nội bộ:

- http://www.giaiphapexcel.com/forum/...ổi-cỡ-chữ-và-kích-thước-bảng-tính-bằng-Macros

- http://www.giaiphapexcel.com/forum/archive/index.php/t-6067.html

- http://www.giaiphapexcel.com/forum/archive/index.php/t-11408.html


2- Ghép nối 2 ô:

- http://www.giaiphapexcel.com/forum/archive/index.php/t-40526.html
- http://www.giaiphapexcel.com/forum/archive/index.php/t-12347.html

Việc lập Macro, hay VisualBasic, ... tôi mù tịt.
Tôi bắt chước theo không nổi.

Rất mong được các cao thủ VBA giúp đỡ.
Xin chân thành cám ơn!

 

[ndu96081631]

Việc lập Macro, hay VisualBasic, ... tôi mù tịt.
Tôi bắt chước theo không nổi.

Rất mong được các cao thủ VBA giúp đỡ.
Xin chân thành cám ơn!

Thì bài của bạn chỉ có cách dùng code VBA thôi, công thức... thua ---> Nếu.. mù tịt thì... HỌC vậy! Chẳng biết làm sao giúp bạn cả

 

[PBSSB]

Bác ndu96081631 kính mến.

Theo bài toán dưới đây, thấy rất ngắn:
http://www.giaiphapexcel.com/forum/archive/index.php/t-12347.html

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

Vậy mong bác tốt bụng sửa giúp cho đoạn code này.
Sang năm đầu 2011, đi mua "Lập Trình VBA Trong Excel" về học.

 

[nghiaphuc]

Bác ndu96081631 kính mến.

Theo bài toán dưới đây, thấy rất ngắn:
http://www.giaiphapexcel.com/forum/archive/index.php/t-12347.html

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

Vậy mong bác tốt bụng sửa giúp cho đoạn code này.
Sang năm đầu 2011, đi mua "Lập Trình VBA Trong Excel" về học.

Code này đáp ứng đúng yêu cầu ban đầu của bạn, tuy nhiên nó không đúng trong trường hợp tổng quát:

Sub Macro1()
    [C2] = [B2] & [A2]
    [C2].Font.Size = 10
    [C2].Characters(Start:=Len([B2]) + 1, Length:=Len([A2])).Font.Size = 8
End Sub