Hàm tạo chữ in đậm

uronmapu · 31/3/16

Em có ô B1 dùng để nhập tên ( chữ in thường), ô A2 sẽ là kết quả Kính gửi: (chữ này có sẵn) tiếp theo sẽ lấy giá trị của ô B1 vào hiển thị là chữ in đậm. Xin các bác giúp đỡ

vanle33 · 31/3/16

uronmapu đã viết:
Em có ô B1 dùng để nhập tên ( chữ in thường), ô A2 sẽ là kết quả Kính gửi: (chữ này có sẵn) tiếp theo sẽ lấy giá trị của ô B1 vào hiển thị là chữ in đậm. Xin các bác giúp đỡ

Bạn đọc ở đây http://www.giaiphapexcel.com/forum/...ậm-trong-cùng-1-dòng-lệnh&p=710489#post710489

uronmapu · 31/3/16

vanle33 đã viết:
Bạn đọc ở đây http://www.giaiphapexcel.com/forum/...ậm-trong-cùng-1-dòng-lệnh&p=710489#post710489

Ko có công thức vậy có hàm macro nào làm được ko bác? cho e xin với được ko ạ
Thanks

giaiphap · 31/3/16

uronmapu đã viết:
Ko có công thức vậy có hàm macro nào làm được ko bác? cho e xin với được ko ạ
Thanks

Không biết đúng ý bạn không nửa.

vanle33 · 31/3/16

giaiphap đã viết:
Không biết đúng ý bạn không nửa.

Sao tôi thử chạy code mà không thấy chữ tại A2 hay B1 sau khi được nối đậm hay nghiêng gì nhỉ?

giaiphap · 31/3/16

vanle33 đã viết:
Sao tôi thử chạy code mà không thấy chữ tại A2 hay B1 sau khi được nối đậm hay nghiêng gì nhỉ?

Nhưng bạn có thấy giá trị của ô A3 không? Nếu không bạn có thể thay chữ "đậm" thành "Bold" thử xem. Mình chỉ tạo phần in đậm thôi, còn nghiên dựa vào tương tự.

vanle33 · 31/3/16

giaiphap đã viết:
Nhưng bạn có thấy giá trị của ô A3 không? Nếu không bạn có thể thay chữ "đậm" thành "Bold" thử xem. Mình chỉ tạo phần in đậm thôi, còn nghiên dựa vào tương tự.

OK sau khi đổi chữ đậm thành Bold. Mà trong VBA có thể viết cú pháp lệnh là "đậm" sao bạn? --=0

Chắc là không chứ?

uronmapu · 31/3/16

giaiphap đã viết:
Nhưng bạn có thấy giá trị của ô A3 không? Nếu không bạn có thể thay chữ "đậm" thành "Bold" thử xem. Mình chỉ tạo phần in đậm thôi, còn nghiên dựa vào tương tự.

Thay đoạn này thì được bác ạ Font.FontStyle = "bold"
Em muốn sau tên có thêm chữ nữa, ví dụ chữ thêm tên chạy cho lẹ đó là " địa chỉ" thì thêm lệnh thế nào bác ơi

giaiphap · 31/3/16

vanle33 đã viết:
OK sau khi đổi chữ đậm thành Bold. Mà trong VBA có thể viết cú pháp lệnh là "đậm" sao bạn?
Chắc là không chứ?

Máy tôi ghi chữ "đậm" vẫn đúng bạn à.

giaiphap · 31/3/16

uronmapu đã viết:
Thay đoạn này thì được bác ạ Font.FontStyle = "bold"
Em muốn sau tên có thêm chữ nữa, ví dụ chữ thêm tên chạy cho lẹ đó là " địa chỉ" thì thêm lệnh thế nào bác ơi

Thì bạn sửa thế này

Mã:

Public Sub dam()
[a3].Value = [a2].Value & " " & [b1].Value [COLOR=#ff0000][B]& " Cham la chet"[/B][/COLOR]
Range("A3").Characters(Start:=12, Length:=Len([b1].Value)).Font.FontStyle = "đậm"
End Sub

uronmapu · 31/3/16

giaiphap đã viết:
Thì bạn sửa thế này

Mã:

Public Sub dam() [a3].Value = [a2].Value & " " & [b1].Value [COLOR=#ff0000][B]& " Cham la chet"[/B][/COLOR] Range("A3").Characters(Start:=12, Length:=Len([b1].Value)).Font.FontStyle = "đậm" End Sub

Chân thành cảm ơn bác

uronmapu · 31/3/16

giaiphap đã viết:
Thì bạn sửa thế này

Mã:

Public Sub dam() [a3].Value = [a2].Value & " " & [b1].Value [COLOR=#ff0000][B]& " Cham la chet"[/B][/COLOR] Range("A3").Characters(Start:=12, Length:=Len([b1].Value)).Font.FontStyle = "đậm" End Sub

Nếu đoạn lệnh đó muốn bôi đậm sau một từ bất kỳ thay cho Characters(Start:=12 thì làm thế nào bác ơi

vanle33 · 31/3/16

giaiphap đã viết:
Nhưng bạn có thấy giá trị của ô A3 không? Nếu không bạn có thể thay chữ "đậm" thành "Bold" thử xem. Mình chỉ tạo phần in đậm thôi, còn nghiên dựa vào tương tự.

Kết quả tại cell A3 chỉ có 15 ký tự (bao gồm cả dấu Space) được tô đậm thôi bạn. Còn chữ tại B1 lớn hơn 15 ký tự là kết quả không được tô đậm.
Bạn chỉnh code nhá.

uronmapu · 31/3/16

vanle33 đã viết:
Kết quả tại cell A3 chỉ có 15 ký tự (bao gồm cả dấu Space) được tô đậm thôi bạn. Còn chữ tại B1 lớn hơn 15 ký tự là kết quả không được tô đậm.
Bạn chỉnh code nhá.

e đã kiểm tra đúng là bị lỗi vậy, e xin hỏi thăm mình bối đậm giá trị của ô B1 tại vị trí bất kỳ trong ô A3 được ko? công thức đang sử dung bôi đậm bắt đầu từ ký tự thứ 13 nếu mà thay độ dài A2 thì kết quả bôi đậm sẽ bị lệch

giaiphap · 1/4/16

uronmapu đã viết:
e đã kiểm tra đúng là bị lỗi vậy, e xin hỏi thăm mình bối đậm giá trị của ô B1 tại vị trí bất kỳ trong ô A3 được ko? công thức đang sử dung bôi đậm bắt đầu từ ký tự thứ 13 nếu mà thay độ dài A2 thì kết quả bôi đậm sẽ bị lệch

Thế bạn thử với một số lệnh này xem và chế biến

Mã:

Public Sub dam()
[a3].Value = [a2].Value & " " & [b1].Value & " Cham la chet"
[COLOR=#0000ff]'Tô đậm từ đầu tiên của ô B1[/COLOR]
Range("A3").Characters(Start:=Len([a2].Value) + 2, Length:=Application.WorksheetFunction.Find(" ", [b1])).Font.FontStyle = "Bold"
[COLOR=#0000ff]'Tô đậm tất cả các từ trong ô B1[/COLOR]
Range("A3").Characters(Start:=Len([a2].Value) + 2, Length:=Len([b1].Value)).Font.FontStyle = "Bold"
[COLOR=#0000ff]'Tô đậm [/COLOR][COLOR=#ff0000][B]6[/B][/COLOR][COLOR=#0000ff] ký tự trong ô B1 bắt đầu từ ký tự thứ [/COLOR][COLOR=#ff0000][B]5[/B][/COLOR][COLOR=#0000ff][/COLOR]
Range("A3").Characters(Start:=Len([a2].Value) + 1 + [COLOR=#ff0000][B]5[/B][/COLOR], Length:=[B][COLOR=#ff0000]6[/COLOR][/B]).Font.FontStyle = "Bold"
End Sub

kbw1 · 1/4/16

giaiphap đã viết:
Nhưng bạn có thấy giá trị của ô A3 không? Nếu không bạn có thể thay chữ "đậm" thành "Bold" thử xem. Mình chỉ tạo phần in đậm thôi, còn nghiên dựa vào tương tự.

Lần trước cũng hỏi vấn đề tương tự.
Giờ ms có giải pháp.
Cảm ơn bạn!

kbw1 · 1/4/16

Nhưng khi gõ tên là 1 chữ, ví dụ: a là code không bôi đậm được bạn ạ.

uronmapu · 1/4/16

giaiphap đã viết:

Thế bạn thử với một số lệnh này xem và chế biến

Mã:

Public Sub dam()
[a3].Value = [a2].Value & " " & [b1].Value & " Cham la chet"
[COLOR=#0000ff]'Tô đậm từ đầu tiên của ô B1[/COLOR]
Range("A3").Characters(Start:=Len([a2].Value) + 2, Length:=Application.WorksheetFunction.Find(" ", [b1])).Font.FontStyle = "Bold"
[COLOR=#0000ff]'Tô đậm tất cả các từ trong ô B1[/COLOR]
Range("A3").Characters(Start:=Len([a2].Value) + 2, Length:=Len([b1].Value)).Font.FontStyle = "Bold"
[COLOR=#0000ff]'Tô đậm [/COLOR][COLOR=#ff0000][B]6[/B][/COLOR][COLOR=#0000ff] ký tự trong ô B1 bắt đầu từ ký tự thứ [/COLOR][COLOR=#ff0000][B]5[/B][/COLOR]
Range("A3").Characters(Start:=Len([a2].Value) + 1 + [COLOR=#ff0000][B]5[/B][/COLOR], Length:=[B][COLOR=#ff0000]6[/COLOR][/B]).Font.FontStyle = "Bold"
End Sub

Chuẩn lắm rồi bác ơi, e cảm ơn rất nhiều

minhtuan55 · 1/4/16

uronmapu đã viết:
Em có ô B1 dùng để nhập tên ( chữ in thường), ô A2 sẽ là kết quả Kính gửi: (chữ này có sẵn) tiếp theo sẽ lấy giá trị của ô B1 vào hiển thị là chữ in đậm. Xin các bác giúp đỡ

Đây nek chính xác 100%

uronmapu · 1/4/16

minhtuan55 đã viết:
Đây nek chính xác 100%

Bài toán là làm cho chữ trong B1 in đậm chứ có phải chữ Kính gửi như bác làm đâu.
Theo bac giaiphap làm là đúng rồi đấy ạ, cảm ơn bác GiaiPhap

Hàm tạo chữ in đậm

Thành viên thường trực

Thành viên gạo cội

Thành viên thường trực

==(^o^)==

File đính kèm

Thành viên gạo cội

==(^o^)==

Thành viên gạo cội

Thành viên thường trực

==(^o^)==

==(^o^)==

Thành viên thường trực

Thành viên thường trực

Thành viên gạo cội

Thành viên thường trực

==(^o^)==

Thành viên tích cực

Thành viên tích cực

Thành viên thường trực

Thành viên bị đình chỉ hoạt động

File đính kèm

Thành viên thường trực

Đếm ngược thời gian