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

K

kimanhco

Guest
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
 
kimanhco nói:
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
Nhấn để mở rộng...

Ở 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
 
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!!!!
 
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
 
Đú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.
 
máy nhà mình xài Win XP NTNày:

kimanhco nói:
Ta nhập gì để có kQ: kính gửi Nguyễn văn A (chữ đậm)
Nhấn để mở rộng...
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!
 
Sửa lần cuối:
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"
 
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
 
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ờ.
 
Bạn bôi chữ Nguyễn Văn A sau đó chọn fomat- font
 
Sory, Bài trước có đoạn code tốt lắm rồi. Code của mình dài quá.
 
Sửa lần cuối:
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!
Nhấn để mở rộng...
Đâ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: )
 
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ỏ.
 
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.
 
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
 
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.
 
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
 
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
 
Sửa lần cuối:
Bạn phải đăng nhập hoặc đăng ký để bình luận.

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Back
Top