Viết hoa chữ cái đầu của họ tên (1 người xem)

[Hoacomay96]

Các bác cho em hỏi. viết code như thế nào để tìm và sửa những chữ cái đầu thành chữ hoa của chuỗi họ tên người trong bảng danh sách họ tên.

 

[anhtuan1066]

Bạn xem tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=9576
ANH TUẤN

 

[daibangkieuhanh]

Các bác cho em hỏi. viết code như thế nào để tìm và sửa những chữ cái đầu thành chữ hoa của chuỗi họ tên người trong bảng danh sách họ tên.

Theo mình thì lập thế này:
Sub Macro1()
For i = 1 To 10
Range("A" & i).Select
ActiveCell.Characters(Start:=1, Length:=1).Font.Name = ".VnTimeH"
Next
End Sub

 

[cadafi]

Theo mình thì lập thế này:
Sub Macro1()
For i = 1 To 10
Range("A" & i).Select
ActiveCell.Characters(Start:=1, Length:=1).Font.Name = ".VnTimeH"
Next
End Sub

Nhưng mình và bạn hoacomay96 muốn sửa như thế này cơ:

nguyễn văn nam ==> Nguyễn Văn Nam
trần minh ==> Trần Minh
công tằng tôn nữ trà mi nhật huyền ==> Công Tằng Tôn Nữ Trà Mi Nhật Huyền.

Thuật giải để làm việc này đã có trên GPE.

 

[tedaynui]

Các bác cho em hỏi. viết code như thế nào để tìm và sửa những chữ cái đầu thành chữ hoa của chuỗi họ tên người trong bảng danh sách họ tên.

Bạn có thể dùng hàm PROPER(string)

TDN

 

[boyxin]

Nhưng mình và bạn hoacomay96 muốn sửa như thế này cơ:

nguyễn văn nam ==> Nguyễn Văn Nam
trần minh ==> Trần Minh
công tằng tôn nữ trà mi nhật huyền ==> Công Tằng Tôn Nữ Trà Mi Nhật Huyền.

Thuật giải để làm việc này đã có trên GPE.

Mọi thứ bạn cần đều có trong 1 chỗ này Bạn Dùng Cái Này Chuyển Được Đúng Như Vậy Đó:... (Nếu dùng font Unicode) hoặc nếu thích dùng add-Ins thì download tại đây

 

[Hoacomay96]

cảm ơn các bác. Ý em là muốn chuyển danh sách họ tên, vói những chữ không viết hoa đầu từ thì thành viết hoa . dữ liệu là font .Vnarial.Em vẫn chưa làm được mong các bác hướng dẫn thêm.

 

[ongtrungducmx25]

cám ơn thì có nút thank bên phải ở dưới cạnh mỗi bài viết đó bạn như thế mới hợp lệ

 

[boyxin]

cảm ơn các bác. Ý em là muốn chuyển danh sách họ tên, vói những chữ không viết hoa đầu từ thì thành viết hoa . dữ liệu là font .Vnarial.Em vẫn chưa làm được mong các bác hướng dẫn thêm.

Hàm Chuyển Các Chữ Cái Đầu Từ Thành Chữ Hoa (Font ABC) Cực Chuẩn

Function TenABC(hoten As String) As String
Dim tenmoi As String
Const vn3 = " ­¨¨¸«»×÷©¬®µ¶·¼½¾¹ªáâäãåæÆçÇçÐéÉÈèÊêëËíÌìÎîÏïÑñÓóÒòòÔôöÖÕõØøßþÞþúùûÜÜüÝý¦¡¡¸¤»×÷¢¥§µ¶·¼½¾¹£áâäãåæÆçÇçÐéÉÈèÊêëËíÌìÎîÏïÑñÓóÒòòÔôöÖÕõØøßþÞþúùûÜÜüÝý"
Const vn3h = " ¦¡¡¸¤»×÷¢¥§µ¶·¼½¾¹£áâäãåæÆçÇçÐéÉÈèÊêëËíÌìÎîÏïÑñÓóÒòòÔôöÖÕõØøßþÞþúùûÜÜüÝý¦¡¡¸¤»×÷¢¥§µ¶·¼½¾¹£áâäãåæÆçÇçÐéÉÈèÊêëËíÌìÎîÏïÑñÓóÒòòÔôöÖÕõØøßþÞþúùûÜÜüÝý"
Const vn3t = " ­¨¨¸«»×÷©¬®µ¶·¼½¾¹ªáâäãåæÆçÇçÐéÉÈèÊêëËíÌìÎîÏïÑñÓóÒòòÔôöÖÕõØøßþÞþúùûÜÜüÝý­¨¨¸«»×÷©¬®µ¶·¼½¾¹ªáâäãåæÆçÇçÐéÉÈèÊêëËíÌìÎîÏïÑñÓóÒòòÔôöÖÕõØøßþÞþúùûÜÜüÝý"
If Trim(hoten) = "" Then Exit Function
hoten = " " & Application.WorksheetFunction.Trim(hoten)
For i = 2 To Len(hoten)
  kytu = Mid(hoten, i, 1)
  vt = InStr(1, vn3, kytu)
  If vt = 0 Then
    If Mid(hoten, i - 1, 1) = " " Then
      tenmoi = tenmoi & UCase(kytu)
    Else
      tenmoi = tenmoi & LCase(kytu)
    End If
  Else
    If Mid(hoten, i - 1, 1) = " " Then
      tenmoi = tenmoi & Mid(vn3h, vt, 1)
    Else
      tenmoi = tenmoi & Mid(vn3t, vt, 1)
    End If
  End If
Next
TenABC = tenmoi
End Function

 

[levanthuy10a2]

nhưng vào chỗ nào để ghi hàm đó vậy a