Hỏi về hàm tạo chữ đậm!!!

[kimanhco]

Các anh chị ơi có ai biết hàm nào để đổi text thường thành text đậm ko; em đang rất cần công thức này để in các phiếu giao cho khách hàng, vd:
cột A là tên KH Nguyễn văn A (chữ thường)
ở ô B1 ta nhập CT gì để có kQ: kính gửi Nguyễn văn A (chữ đậm)
Anh chị nào biết làm ơn giúp em nhé
mail cho em nhé
thanh20061234@yahoo.com.vn

 

[mysterious_girl]

Các anh chị ơi có ai biết hàm nào để đổi text thường thành text đậm ko; em đang rất cần công thức này để in các phiếu giao cho khách hàng, vd:
cột A là tên KH Nguyễn văn A (chữ thường)
ở ô B1 ta nhập CT gì để có kQ: kính gửi Nguyễn văn A (chữ đậm)
Anh chị nào biết làm ơn giúp em nhé
mail cho em nhé
thanh20061234@yahoo.com.vn

Ở cột B, bác định dạng cho nó in đậm (format/cell/font/bold) hoặc bác nhấn phím tắt Ctrl+B. Bác nói rõ hơn về vấn đề của bác nhé. Nếu có thể bác gửi file cho em xem thử.

My email: green_field_2005@yahoo.com

 

[kimanhco]

vấn đề ở đây là mình muốn ở cột B chữ kính gửi thì là chữ thường nhưng tên Nguyễn Văn A thì đậm, bác đâu thể định dạng cho cả cell được, chắc có lẽ fải dùng hàm hay tạo marco gi đó mình ko biết, nhờ các bác chỉ giúp nhé, thank!!!!

 

[Bình_OverAC]

Nếu bác muốn tạo ra một công thức có 2 dạng format (chữ thường và chữ hoa) trong cùng 1 ô thì điều này là không thể nếu việc format đối với bác là quan trọng thì nên tách ra thành 2 ô. Hơn nữa việc dùng 2 ô ở 2 cột khác nhau sẽ giúp bác dể xử lý phần tên hơn.
Chúc bác thành công

 

[Yeudoi]

Đúng vậy trong một cell thì không thể có hai định dạng được.Tôi cũng chưa thấy tài liệu nào nói có thể và chủ đề này đã thảo luận một lần rồi.

 

[QDuc]

máy nhà mình xài Win XP NTNày:

Ta nhập gì để có kQ: kính gửi Nguyễn văn A (chữ đậm)

Bạn thử như thế này xem sao: Tại ô VD B2 ta nhập
/(ính gởi: /(iManh(o; trên thanh công thức bạn tô chỉ chữ /(iManh(o thôi rồi ấn vô nút có chữ B sau đó ENTER 1 cái xem sao, nha!

 

[zzxitrum]

Neu ban viet macro thi ok. MAcro nhu the nay:
Sheet1.Cells(2, 2) = "Kinh gui " & Sheet1.Cells(2, 1)
Sheet1.Cells(2, 2).Characters(Start:=10, Length:=20).Font.FontStyle = "Bold"

 

[dungvon]

Bạn muốn có fomr chư đậm bạn chỉ cần bấm phím nhanh Ctrl+B là được hoặc bạn bôi đen hàng chữ bạn cần làm thành chữ đậm sau đó bạn dùng chuột bấm vào chữ B trên thanh công cụ là được

 

[vuquyen]

Bạn dungvon hiểu sai ý của bạn kimanhco rồi. Bạn kimanhco muốn trên cùng 1 ô mà chữ kính gửi là chữ thường còn tên riêng là chữ đậm, nếu như bạn dungvon thì nó bôi đậm hết. Còn trường hợp của bạn kimanhco thì minh cũng chưa làm bao giờ.

 

[Hien tron]

Bạn bôi chữ Nguyễn Văn A sau đó chọn fomat- font

 

[Van_VKT]

Sory, Bài trước có đoạn code tốt lắm rồi. Code của mình dài quá.

 

[QDuc]

Bạn thử như thế này xem sao: Tại ô VD B2 ta nhập
/(ính gởi: /(iManh(o; trên thanh công thức bạn tô chỉ chữ /(iManh(o thôi rồi ấn vô nút có chữ B sau đó ENTER 1 cái xem sao, nha!

Đây là ~ gì máy ghi lại các hành động của tôi tại ô B3
Sub FormatBold()
Range("B3").Select
ActiveCell.FormulaR1C1 = "H?ng Trân Mai "
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Tahoma": .FontStyle = "Regular"
.Size = 10: .Strikethrough = False
.Superscript = False: .Subscript = False
.OutlineFont = False: .Shadow = False
.Underline = xlUnderlineStyleNone: .ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=6, Length:=9).Font
.Name = "Tahoma": .FontStyle = "Bold"
.Size = 10: .Strikethrough = False
.Superscript = False: .Subscript = False
.OutlineFont = False: .Shadow = False
.Underline = xlUnderlineStyleNone: .ColorIndex = xlAutomatic
End With
Range("B4").Select
End Sub
Có nghĩa là bạn có thể còn định dạng font chữ khác: Dùng để xen thêm các chữ cái ả rập vô như alfa, beta, gama. . .; bạn còn có thê cho nó nghiên, gạch chân; tạo bóng đỗ hay nâng lên hạ xuống (giống như nâng li - hạ li :dzo: )

 

[kimanhco]

Rất cảm ơn các bạn đã góp ý cho mình vấn, nhưng mình vẫn chưa làm dc các bạn ơi, mình đã thử rất nhiều cách, mình nghỉ chắc chỉ có tạo hàm bằng marco mới có thể làm đc thôi, nhưng mình ko biết tạo như thế nào, có bạn nào đó nói đề tài này đã đc post lên rồi thì fải vậy bạn chỉ cho mình đường link nhé, cảm ơn trước nhé !!!
----------------------------------------------------------------------

Chắp tay lạy cụ tình yêu.
Cho con lấy được nàng Kiều ngày nay.
Cụ nhìn trợn mắt cau mày.
Không đưa hối lộ thì đây đếch ừ .


Con vua thì lại làm vua
Con gái bác sỹ khó cua vô cùng
Kén canh chọn cá lung tung.
Mai kia ở giá chiếu mùng lạnh tanh.


Tiền là giấy ==> Đốt là cháy
Người yêu là rác ==> Đầy là đổ.
Tình là bụi ==> Thổi là bay.
Đời là phù du ==> Ngu là phù mỏ.

 

[ntan50]

Chào các bạn!
Tôi làm đúng như bạn Qduc đã nói, vẫn được ấy chứ.
Dẫn chứng đây:
http://cvtien.googlepages.com/Thu.jpg
Hoặc gõ xong chọn những chữ cần Bold là được.

 

[Roadbrowser]

Mình vẫn làm được đấy,
Bạn gõ chữ "Kính gửi: Nguyễn Văn A", sau đó bôi đen "Nguyễn Văn A" và chọn Ctrl + B là được

 

[tranvanhung]

Bạn hiểu sai ý rồi vì vấn đề hỏi là trong ô sử dụng công thức bạn kimanhco mới cần bôi đen, mà trong công thức thì không thể format như thế. Đoạn code của bác QDuc có thể sử dụng được nhưng mà như vậy thì cũng hơi rối 1 chút.

 

[QDuc]

Viết macro lại cho rõ hơn!

Macro này sẽ nối chuỗi của 2 ô trước nó & biến thành value mới định dạng nữa nọ nữa kia được;
Còn bạn vẫn muốn giữ ô chứa CT thì chưa thể làm được ngay cả = VBA!

Sub FormatBold()
' Keyboard Shortcut: Ctrl+Shift+B
Dim ij As Integer, DDai As Integer
ActiveCell.FormulaR1C1 = "=RC[-2] & "" "" & RC[-1]"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ij = InStr(Selection.Value, ":") + 1
DDai = Len(Selection.Value) ': MsgBox Str(ij) & Str(DDai)
With ActiveCell.Characters(Start:=1, Length:=ij).Font
.Name = "MS Sans Serif"
.FontStyle = "Regular"
.Size = 10
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=ij + 1, Length:=DDai - ij).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 10
.ColorIndex = 5
End With

End Sub

 

[ruadangyeu]

Bạn tạo một nút bấm để điều khiển
Tạo thủ tục
Private Sub CommandButton1_Click()
Dim dai As Integer
'Lay chieu dai cua ten
i = 0
Do While Worksheets(1).Range("a1").Offset(i, 0) <> ""
dai = Len(Worksheets(1).Range("a1").Offset(i, 0).Text)
Worksheets(1).Range("a1").Offset(i, 1) = "Kinh thua" + " " + Worksheets(1).Range("a1").Offset(i, 0)

Worksheets(1).Range("a1").Offset(i, 1).Select
With ActiveCell.Characters(Start:=11, Length:=dai).Font
'voi tu "kinh Thua" thi start:=11 voi tu khac ban thay doi phu hop
.FontStyle = "bold"
End With
i = i + 1
loop
End Sub

Chạy rất ngon:thumbsup:
Mình đã thử rồi

 

[ruadangyeu]

Nếu vẫn không được bạn liên hệ với mình
thanggaynguyen@gmail.com
Mình sẽ gửi file cho

Từ "kinh thua" nếu bạn cần đánh tiếng việt thì nên cho nó vào một ô sau đó chỏ đến ô đó. vd: ô c100
Tiện đó có thể dùng chiểu dài của text trong ô đó + 2 làm start

 

[ruadangyeu]

Mình up lên các bạn xem thử rồi cho mình ý kiến
http://www.4shared.com/file/4465987/a5c47894/dinh_dang_trong_o.html