Định dạng chữ trong Formula (1 người xem)

[nhungdoahoaphudung]

Chào cả nhà. Em làm excel vướng quá phần định dạng chữ, tìm mãi mà không biết cách nào mong các bác chỉ giúp
A1=Cộng hoà
A2= Xã hội
A3= Chủ nghĩa Việt Nam
Giờ cột em muốn A4= A1&" "&A2&" "&A3 nó sẽ thành chữ "Cộng hoà Xã hội Chủ nghĩa Việt Nam" nhưng em muốn nó định dạng chữ trong đó thành chữ đậm và có màu: "Cộng hoà Xã hội Chủ nghĩa Việt Nam" thì làm thế nào.
Cảm ơn!

 

[viehoai]

Chào cả nhà. Em làm excel vướng quá phần định dạng chữ, tìm mãi mà không biết cách nào mong các bác chỉ giúp
A1=Cộng hoà
A2= Xã hội
A3= Chủ nghĩa Việt Nam
Giờ cột em muốn A4= A1&" "&A2&" "&A3 nó sẽ thành chữ "Cộng hoà Xã hội Chủ nghĩa Việt Nam" nhưng em muốn nó định dạng chữ trong đó thành chữ đậm và có màu: "Cộng hoà Xã hội Chủ nghĩa Việt Nam" thì làm thế nào.
Cảm ơn!

Theo mình nghĩ không thể làm được

 

[vu_tuan_manh_linh]

Chào cả nhà. Em làm excel vướng quá phần định dạng chữ, tìm mãi mà không biết cách nào mong các bác chỉ giúp
A1=Cộng hoà
A2= Xã hội
A3= Chủ nghĩa Việt Nam
Giờ cột em muốn A4= A1&" "&A2&" "&A3 nó sẽ thành chữ "Cộng hoà Xã hội Chủ nghĩa Việt Nam" nhưng em muốn nó định dạng chữ trong đó thành chữ đậm và có màu: "Cộng hoà Xã hội Chủ nghĩa Việt Nam" thì làm thế nào.
Cảm ơn!

Nếu cả dòng là 1 dòng text (không phải là giá trị trả về từ hàm như trên) thì làm được, chứ liên kết hàm thì nó chỉ trả lại giá trị thôi, và giá trị đó phải "chịu" định dạng của ô mà nó được trả về.

 

[ndu96081631]

Chào cả nhà. Em làm excel vướng quá phần định dạng chữ, tìm mãi mà không biết cách nào mong các bác chỉ giúp
A1=Cộng hoà
A2= Xã hội
A3= Chủ nghĩa Việt Nam
Giờ cột em muốn A4= A1&" "&A2&" "&A3 nó sẽ thành chữ "Cộng hoà Xã hội Chủ nghĩa Việt Nam" nhưng em muốn nó định dạng chữ trong đó thành chữ đậm và có màu: "Cộng hoà Xã hội Chủ nghĩa Việt Nam" thì làm thế nào.
Cảm ơn!

Bạn đã đưa bài vào box lập trình, có nghĩa là muốn giải quyết bằng VBA chăng?
Nếu đúng thế thì không có gì là không được cả... Với điều kiện phải chuyển công thức sang giá trị trước... tiếp theo, muốn format sao mà chẳng được
Tham khảo bài này:
http://www.giaiphapexcel.com/forum/...sang-chữ-nghiêng-trong-cung-một-chuỗi-văn-bản

 

[nhungdoahoaphudung]

Đúng vậy, em muốn giải quyết nó bằng VBA. Bình thường thì không làm được.Liệu có thể giải quyết nó bằng cách nào khác không? Có thể tạo 1 ô A5= A1&" "&A2&" "&A3, sau đó copypaste dữ liệu vào ô A4 thì có làm được không? Viết giúp em cái code

 

[vu_tuan_manh_linh]

Đúng vậy, em muốn giải quyết nó bằng VBA. Bình thường thì không làm được.Liệu có thể giải quyết nó bằng cách nào khác không? Có thể tạo 1 ô A5= A1&" "&A2&" "&A3, sau đó copypaste dữ liệu vào ô A4 thì có làm được không? Viết giúp em cái code

Bác NDU đã trích đường link cho bạn rùi đó. Bạn theo đường link đó tìm hiểu về code mà bài trước đó đã viết, có nội dung tương tự yêu cầu của bạn.

 

[Quang_Hải]

Đúng vậy, em muốn giải quyết nó bằng VBA. Bình thường thì không làm được.Liệu có thể giải quyết nó bằng cách nào khác không? Có thể tạo 1 ô A5= A1&" "&A2&" "&A3, sau đó copypaste dữ liệu vào ô A4 thì có làm được không? Viết giúp em cái code

Thử code này xem thế nào

Sub Format()
Application.ScreenUpdating = False
With [a4]
    .Value = [a1] & " " & [a2] & " " & [a3]
    .Characters(Len([a1]) + 2, Len([a2])).Font.Bold = True
    .Characters(Len([a1]) + Len([a2]) + 3, Len([a3])).Font.Bold = True
    .Characters(Len([a1]) + Len([a2]) + 3, Len([a3])).Font.ColorIndex = 5
End With
Application.ScreenUpdating = True
End Sub

 

[tvl297]

Anh hải ơi thế có thể tạo thành công thức để dùng cho mọi ô được không

 

[ndu96081631]

Anh hải ơi thế có thể tạo thành công thức để dùng cho mọi ô được không

Khẳng định rằng mấy trò này không thể làm bằng công thức.. kể cả dùng hàm tự tạo cũng không được. Chỉ có thể tạo 1 sub chạy (bấm nút, code chạy)
Nói trước rằng công thức sẽ mất sạch, chỉ còn lại giá trị mà thôi

 

[Quang_Hải]

Anh hải ơi thế có thể tạo thành công thức để dùng cho mọi ô được không

Dùng cho mọi ô là thế nào? Bạn có nhu cầu thì gởi file lên mới biết đường mà tính chứ. Không cách này thì có cách khác nữa mà.
Thử code này xem thế nào, ngang hay dọc cũng xài được

Sub Format()
Application.ScreenUpdating = False
On Error Resume Next
r = ActiveCell.Row
c = ActiveCell.Column
    With ActiveCell
        If Cells(r - 3, c) <> "" Then
            .Value = Cells(r - 3, c) & " " & Cells(r - 2, c) & " " & Cells(r - 1, c)
            .Characters(Len(Cells(r - 3, c)) + 2, Len(Cells(r - 2, c))).Font.Bold = True
            .Characters(Len(Cells(r - 3, c)) + Len(Cells(r - 2, c)) + 3, Len(Cells(r - 1, c))).Font.Bold = True
            .Characters(Len(Cells(r - 3, c)) + Len(Cells(r - 2, c)) + 3, Len(Cells(r - 1, c))).Font.ColorIndex = 5
        Else
            .Value = Cells(r, c - 3) & " " & Cells(r, c - 2) & " " & Cells(r, c - 1)
            .Characters(Len(Cells(r, c - 3)) + 2, Len(Cells(r, c - 2))).Font.Bold = True
            .Characters(Len(Cells(r, c - 3)) + Len(Cells(r, c - 2)) + 3, Len(Cells(r, c - 1))).Font.Bold = True
            .Characters(Len(Cells(r, c - 3)) + Len(Cells(r, c - 2)) + 3, Len(Cells(r, c - 1))).Font.ColorIndex = 5
        End If
    End With
Application.ScreenUpdating = True
End Sub