criscooper
Thành viên mới

- Tham gia
- 10/10/10
- Bài viết
- 11
- Được thích
- 0
Hàm CONCATENATE
Công dụng: Dùng nối nhiều chuỗi lại với nhau
Công thức: =CONCATENATE(text1,text2,...)
Ví dụ: =CONCATENATE("Giải pháp", "Excel", " - ", "Công cụ tuyệt vời của bạn) → Giải pháp Excel - Công cụ tuyệt vời của bạn
Hổng có vụ đó đâu, khỏi cần suy nghĩ chi cho mất công!Em sử dụng hàm này cũng nhiều, tuy nhiên có một vướng mắc nhờ các cao thủ chỉ giúp muốn có kết quả kết hợp trên thành "Giải pháp Excel - Công cụ tuyệt vời của bạn" với Giải pháp Excel được bôi đậm.
Thanks!
Xin chào các a chị tron diễn đàn!
nhân tiện cho e hỏi về cách kết hợp hàm concatenate với hàm nào cho vd trong attached file này .
e giải thích thêm :
vấn đề :dùng hàm để tự động hoàn thiện cột " job no" cho những mã hàng mà số lượng PO lớn hơn số lượng tồn kho ( cột BAL âm) , số lượng cần chạy là cột Job q'ty.
cột "Job no " trong vd trên là e điền tay là 1410-0001pdc , 1410-0002pdc ...
nhung cách này thủ công và hay nhầm khi có nhiều code phải chạy lên đến hơn 1000 code.
các a chị vui lòng giải giúp e vd này !.
mong hồi âm!
thanks
mr giang
Mình thì không suy nghĩ sâu như bạn, bạn xem cách củ chuối này được không
vậy ứng dụng comment vào được không thầy. em thấy nó có thể định dạng text trong ghi chú ấy.Hổng có vụ đó đâu, khỏi cần suy nghĩ chi cho mất công!
Với 1 công thức, khi đã ra kết quả rồi thì bạn chỉ có thể format nguyên kết quả, không thể format từng đoạn được
Vậy đi nha!
Em xem thử code này có giúp ích được gì cho em không.vậy ứng dụng comment vào được không thầy. em thấy nó có thể định dạng text trong ghi chú ấy.
mình sẽ gán kết quả công thức vào nội dung của comment. em thử ghi macro lúc định dạng trong comment thì chả thu lại được gì cả.
Sub Comments_Tom()
Dim MyComments As Comment
Dim LArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.AutoShapeType = msoShapeRoundedRectangle
.Shape.TextFrame.Characters.Font.Name = "Tahoma"
.Shape.TextFrame.Characters.Font.Size = 8
'Dinh dang mau chu cho tat ca cac ky tu trong Comment
.Shape.TextFrame.Characters.Font.ColorIndex = 4
'Dinh dang tu ky tu thu 3 voi do day ky tu la 5
'.Shape.TextFrame.Characters(3, 5).Font.ColorIndex = 4
.Shape.Line.ForeColor.RGB = RGB(0, 0, 0)
.Shape.Line.BackColor.RGB = RGB(255, 255, 255)
.Shape.Fill.Visible = msoTrue
.Shape.Fill.ForeColor.RGB = RGB(58, 82, 184)
.Shape.Fill.OneColorGradient msoGradientDiagonalUp, 1, 0.23
End With
Next 'comment
End Sub