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

  • Thread starter kimanhco
  • Ngày gửi
K

kimanhco

Sơ cấp
15/4/06
10
0
0
40
Sóc Trăng
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
 
M

mysterious_girl

Cao cấp
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
Ở 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
 
K

kimanhco

Sơ cấp
15/4/06
10
0
0
40
Sóc Trăng
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

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
38
Nha Trang
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
 
Y

Yeudoi

Thành viên thân thiết
29/9/05
88
0
6
Hoi An Quang Nam
Đú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

QDuc

Thành viên thân thiết
3/6/06
254
18
18
Biển khơ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)
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:
Z

zzxitrum

Sơ cấp
17/11/04
3
0
0
Bien Hoa - Dong Nai
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"
 
D

dungvon

Sơ cấp
23/6/06
5
0
0
37
Nam dinh
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
 
V

vuquyen

Sơ cấp
24/4/06
54
0
0
38
Vũng Tàu
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ờ.
 
H

Hien tron

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

Van_VKT

Sơ cấp
21/6/06
8
0
0
Sai Gon
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:
QDuc

QDuc

Thành viên thân thiết
3/6/06
254
18
18
Biển khơ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!
Đâ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: )
 
K

kimanhco

Sơ cấp
15/4/06
10
0
0
40
Sóc Trăng
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ỏ.
 
N

ntan50

Sơ cấp
25/5/06
68
0
6
Hà Nội
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.
 
R

Roadbrowser

Thành viên thân thiết
19/9/04
128
2
18
42
Far from Thanh Hóa City.
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

tranvanhung

Gãi ngứa
20/2/04
2,976
10
38
17
Biên Hoà - Đồng Nai
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

QDuc

Thành viên thân thiết
3/6/06
254
18
18
Biển khơi
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

ruadangyeu

Trung cấp
30/9/06
143
1
0
Hanoi
my.opera.com
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:
ruadangyeu

ruadangyeu

Trung cấp
30/9/06
143
1
0
Hanoi
my.opera.com
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
 
Sửa lần cuối:

BQT trực tuyến

  • MINA
    MINA
    TV Ban Quản Trị / Admin

Thành viên trực tuyến

  • MINA

Xem nhiều

TEXT LINK