In đậm trong công thức ghép chuỗi

[TKT]

Mình có công thức ="Tôi tên là "&A:1 (A1: chứa chuỗi Trần Khánh Trí)
Bây giờ mình muốn kết quả trả về là : Tôi tên là Trần Khánh Trí
Có định dạng: Tôi tên là, giống công thức, nhưng chữ Trần Khánh Trí muốn in đậm, thì phải thêm vào gì vậy. Mình cần nó trong công việc của mình.

 

[ThuNghi]

Mình có công thức ="Tôi tên là "&A:1 (A1: chứa chuỗi Trần Khánh Trí)
Bây giờ mình muốn kết quả trả về là : Tôi tên là Trần Khánh Trí
Có định dạng: Tôi tên là, giống công thức, nhưng chữ Trần Khánh Trí muốn in đậm, thì phải thêm vào gì vậy. Mình cần nó trong công việc của mình.

Thường khi muốn làm 1 form trên sheet. Nên tách ra thành nhiều cột nhỏ thì sẽ dễ hơn nhiều. Vd: B1: "Tôi tên là:" và D1: là biến.
Còn muốn format 1/2 chuổi theo tiêu thức nào đó thì chỉ có thể dùng VBA. (Tôi nghĩ như vậy, chưa thấy cách khác)
Bạn nên tham khảo bài Mẫu L/C mà PTM0412 làm cho tôi, có > 120 field. Rất nhiều cái hay. Chúc thành công. Nhớ là chậm mà chắc nhé.

 

[anhtuan1066]

Bạn thử record 1 macro những thao tác in đậm của bạn... Rồi mở code ra xem sẽ thấy có đoạn ghi tô từ vị trí bao nhiêu, số lượng ký tự cần tô... Từ đó bạn có thể suy ra cách làm (vì chử "Tôi tên là" luôn cố định nên rất dễ dàng suy ra vị trí ký tự cần tô)
ANH TUẤN

 

[tigertiger]

Bạn thử record 1 macro những thao tác in đậm của bạn... Rồi mở code ra xem sẽ thấy có đoạn ghi tô từ vị trí bao nhiêu, số lượng ký tự cần tô... Từ đó bạn có thể suy ra cách làm (vì chử "Tôi tên là" luôn cố định nên rất dễ dàng suy ra vị trí ký tự cần tô)
ANH TUẤN

OH, nhưng đây là công thức a tuấn ah...

* mún giải quyết thì:
- chấp nhận là sau khi tô đậm thì giá trị ô ở dạng value(không liên kết công thức nữa

- nếu vậy thì dùng macro sau - dùng cho ô hiện thời

- cách dùng tốt nhất là - đặt phím tắt cho Sub này rùi mún cell nào thì chọn cell đó --> rồi bấm phím tắt (chạy sub này)

Sub doichudam()
    ActiveCell.Copy
    ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    ActiveCell.Characters(Start:=12, Length:=Len(Selection.Value)).Font.FontStyle = "Bold"
       
End Sub

 

[anhtuan1066]

Công thức có sao đâu Tigertiger! Mục đích cuối cùng của bạn ấy vẫn là ghép chử "Tôi tên là" với 1 cái tên nào đó và in đậm tên... vậy có thể bỏ luôn công thức là dc chứ gì...
Tóm lại mấu chốt vấn đề vẫn là record lấy 1 macro việc in đậm rồi xem và sửa...
ANH TUẤN

 

[TKT]

"Tôi tên là Trần Khánh Trí" là công thức:="Tôi tên là"&A:1. Làm sao in đậm được.

 

[anhtuan1066]

"Tôi tên là Trần Khánh Trí" là công thức:="Tôi tên là"&A:1. Làm sao in đậm được.

Ý tôi là bạn đừng làm công thức... cho macro làm nhiệm vụ nối chuổi luôn.. bạn hiểu ko?... Tức khi macro chạy nó sẽ vừa nối chuổi lại, vừa in đậm luôn
Tôi cho bạn 1 file tham khảo nhé
ANH TUẤN

 

[feelingyes]

OH, nhưng đây là công thức a tuấn ah...

* mún giải quyết thì:
- chấp nhận là sau khi tô đậm thì giá trị ô ở dạng value(không liên kết công thức nữa

- nếu vậy thì dùng macro sau - dùng cho ô hiện thời

- cách dùng tốt nhất là - đặt phím tắt cho Sub này rùi mún cell nào thì chọn cell đó --> rồi bấm phím tắt (chạy sub này)

Sub doichudam()
    ActiveCell.Copy
    ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    ActiveCell.Characters(Start:=12, Length:=Len(Selection.Value)).Font.FontStyle = "Bold"
       
End Sub

Cho mình hỏi một chút nhé

Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveCell.Characters(Start:=12, Length:=Len(Selection.Value)).Font.FontStyle = "Bold"

End Sub[/php]

Các Operation, skipblank, transpose có nghia là gì, trong VBA nó là phương thức hay thuộc tính?

ở phần ActiveCell.Characters(Start:=12,
tại sao start phải bằng 12 vậy?

Giúp em giải thích ngắn gọn với

 

[TKT]

Mình muốn ứng dụng in đậm này vào file hợp đồng lao động bằng excel chắc không được rồi. Vì nó không có qui luật gì cả.
http://www.giaiphapexcel.com/forum/showthread.php?t=8654

 

[anhtuan1066]

Mình muốn ứng dụng in đậm này vào file hợp đồng lao động bằng excel chắc không được rồi. Vì nó không có qui luật gì cả.
http://www.giaiphapexcel.com/forum/showthread.php?t=8654

Dc hết... chỉ cần bạn đừng làm bằng công thức... chạy macro toàn bộ là xong
------------------------------

Cho mình hỏi một chút nhé

Các Operation, skipblank, transpose có nghia là gì, trong VBA nó là phương thức hay thuộc tính?

ở phần ActiveCell.Characters(Start:=12,
tại sao start phải bằng 12 vậy?

Giúp em giải thích ngắn gọn với

Bạn tự gõ vào 1 cell nào đó chử: Tôi tên là feelingyes... tiếp theo bạn record macro và bắt đầu làm như sau:
1> Copy cell, paste special\Value vào cell khác...
2> Quét chọn cell vừa dc paste, tô đậm chử feelingyes
3> Stop record
4> Atl + F11 sẽ hiểu liền
ANH TUẤN

 

[tucontruc]

Nhờ các cao thủ chỉ giúp để tôi làm thẻ mà:
Ví dụ tôi cần in đậm tên của một người trong một danh sách thì làm sao:
=CONCATENATE("Họ và tên: ";'sheet1'!A5;'sheet1'!B5;"sinh ngày";'sheet1'!C5)
Trong đó "'sheet1'!A5 = Nguyễn Văn A" chính là tên của người trong danh sách tôi cần lấy và in đậm.
Để có kết quả tại ô như sau:
Họ và tên: NGUYỄN VĂN A Nam sinh ngày 20/10/1971
Các cao thủ sớm chỉ dùm nha tôi cần quá rồi.

 

[hoangdanh282vn]

Nhờ các cao thủ chỉ giúp để tôi làm thẻ mà:
Ví dụ tôi cần in đậm tên của một người trong một danh sách thì làm sao:
=CONCATENATE("Họ và tên: ";'sheet1'!A5;'sheet1'!B5;"sinh ngày";'sheet1'!C5)
Trong đó "'sheet1'!A5 = Nguyễn Văn A" chính là tên của người trong danh sách tôi cần lấy và in đậm.
Để có kết quả tại ô như sau:
Họ và tên: NGUYỄN VĂN A Nam sinh ngày 20/10/1971
Các cao thủ sớm chỉ dùm nha tôi cần quá rồi.

bạn xem code mau này nha

Sub NoivaTomauchu()
Dim i As Long
Columns("D:D").Clear
For i = 1 To [A65536].End(xlUp).Row
    With Cells(i, 4)
        .Value = [E1] & " " & .Offset(, -3) & " " & _
        .Offset(, -2) & " " & [F1] & " " & .Offset(, -1)
        .Characters(Start:=13, Length:=Len(.Offset(, -3))).Font.FontStyle = "Bold"
    End With
Next i
End Sub

 

[tucontruc]

bạn xem code mau này nha

Sub NoivaTomauchu()
Dim i As Long
Columns("D:D").Clear
For i = 1 To [A65536].End(xlUp).Row
    With Cells(i, 4)
        .Value = [E1] & " " & .Offset(, -3) & " " & _
        .Offset(, -2) & " " & [F1] & " " & .Offset(, -1)
        .Characters(Start:=13, Length:=Len(.Offset(, -3))).Font.FontStyle = "Bold"
    End With
Next i
End Sub

Rất cám ơn hoangdanh282vn;91659
Nhưng tôi chỉ lấy 1 dòng tên, giới tính, ngày sinh trong danh sách ở 1 file dữ liệu khác đưa sang chứ không cùng trong 1 file thì phải làm sao? Mặt khác tôi muốn tự động cho dòng này bởi tôi đã đặt ID cho mỗi người. Ví dụ khi tôi đánh số ID của Nguyễn Văn A ở ô ID là N11A chẳng hạn thì với lệnh tôi đã đặt nó sẽ nhận là Nguyễn Văn A cùng với các dữ liệu khác của người này trên cùng một dòng nhưng chỉ có duy nhất Nguyễn Văn A là in đậm.

 

[hoangdanh282vn]

Mình gửi từ sớm hôm qua mà. Bởi file thẻ mình làm dạng template để lưu nhiều lần cho mỗi người 1 file, mặt khác danh sách còn update thay đổi nên làm file riêng.

Bạn nên đưa tất cả vào 1 file.
1 sheet chứa danh sách chung, 1 sheet tạo mẫu dùng để in, và muốn in ai thì chỉ cần chọn tên là mẫu tự động thay đổi theo. Như thế dễ cập nhật, kiểm tra.

 

[tucontruc]

Bạn nên đưa tất cả vào 1 file.
1 sheet chứa danh sách chung, 1 sheet tạo mẫu dùng để in, và muốn in ai thì chỉ cần chọn tên là mẫu tự động thay đổi theo. Như thế dễ cập nhật, kiểm tra.

Nếu giả sử trong cùng 1 file và hai sheet thì làm đậm nó ra sao? Làm mẫu thử cho tôi có được không?

 

[bangbang]

Chào các anh chị.

Hiện tại mình có dùng mồthhânn mềm kế toán, trong file NKTHU có dùng nhiều công thức, nhưng có một chổ công thức bị lỗi. Nó toàn hiện ra toàn là công thức không hiện ra kết quả, tức là nó đang ở dạng chuổi. Nhưng mình không biết cách chỉnh lại, mong các anh chị dùm mình với.


cassette_tb@yahoo.com.vn
Biệt danh của mình là chuột con.

 

[locbanh]

Nhờ các cao nhân chỉ giúp. Em đang cần 1 cái hàm Function in đậm như sau:

Tai ô A2 gõ hàm =InDam ("GiaiPhapExcel") => thì tại A2 trả về (GiaiPhapExcel) điều in đậm. Hoặc
A2 gõ hàm =InDam (B2) => thì tại A2 trả về các ký tự trong B2 điều in đậm.

Em xin cảm ơn rất nhiều.

 

[HieuCD]

Nhờ các cao nhân chỉ giúp. Em đang cần 1 cái hàm Function in đậm như sau:

Tai ô A2 gõ hàm =InDam ("GiaiPhapExcel") => thì tại A2 trả về (GiaiPhapExcel) điều in đậm. Hoặc
A2 gõ hàm =InDam (B2) => thì tại A2 trả về các ký tự trong B2 điều in đậm.

Em xin cảm ơn rất nhiều.

Dùng nút lệnh in đậm của excel, hoặc nhấn Ctrl+B

 

[locbanh]

Dùng nút lệnh in đậm của excel, hoặc nhấn Ctrl+B

Ý của mình là sau này mình sẽ dùng hàm như sau:
=InDam(B2) & "-" & C2
cái nào trong hàm InDam nó sẽ in đậm

Xin lỗi vì nói ko rõ nha.

 

[HieuCD]

Y CỦA MÌNH LÀ SAU NÀY MÌNH SẼ DÙNG HÀM NHƯ SAU:
=InDam(B2) & "-" & C2
cái nào trong hàm InDam nó sẽ in đậm

Sorry vì nói ko rõ nha.

Với ô A2 thể hiện công thức =InDam(B2) & "-" & C2 và "cái nào trong hàm InDam nó sẽ in đậm": Chưa ai làm được
Lưu ý: Nội quy diễn đàn qui định không viết in cả câu, không nên viết tắt và chen tiếng nước ngoài