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

PBSSB

Thành viên mới
Tham gia ngày
19 Tháng mười hai 2010
Bài viết
3
Được thích
0
Điểm
0
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!
Cảm ơn.
 
Lần chỉnh sửa cuối:

PBSSB

Thành viên mới
Tham gia ngày
19 Tháng mười hai 2010
Bài viết
3
Được thích
0
Điểm
0
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/showthread.php?6606-Thay-đổ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

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia ngày
5 Tháng sáu 2008
Bài viết
30,280
Được thích
52,674
Điểm
11,910
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

Thành viên mới
Tham gia ngày
19 Tháng mười hai 2010
Bài viết
3
Được thích
0
Điểm
0
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

Thành viên gạo cội
Thành viên danh dự
Tham gia ngày
25 Tháng chín 2009
Bài viết
5,722
Được thích
9,528
Điểm
910
Nơi ở
Ayun Pa - Gia Lai
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:
PHP:
Sub Macro1()
    [C2] = [B2] & [A2]
    [C2].Font.Size = 10
    [C2].Characters(Start:=Len([B2]) + 1, Length:=Len([A2])).Font.Size = 8
End Sub
 
Top Bottom