Trang 2 của 4 Đầu tiênĐầu tiên 1234 CuốiCuối
Kết quả 11 đến 20 của 31

Chủ đề: Đánh họ và tên, tự động tách tên, tự động viết hoa

  1. #11
    Đừng Béo Nữa Guest
    Trích dẫn Gửi bởi thaiquy7
    tự động tách tên, rồi tự động viết hoa luôn đó bạn.
    Không hiểu bạn nói gì.
    Không biết chỗ sửa code, hay code không hoạt động, hay tự động là thế nào? Viết HOA cả HỌ TÊN, hay viết hoa đầu từ, hay gì gì đó nói không rõ ràng mà cứ lòng vòng.

  2. #12
    sunshinexxxx Guest
    viết hoa đầu mỗi từ bạn ah, cảm ơn bạn rất nhiều

  3. #13
    kimthua33 Guest
    Trích dẫn Gửi bởi thaiquy7
    viết hoa đầu mỗi từ bạn ah, cảm ơn bạn rất nhiều
    Như bài #12 thay bằng dòng này

    Mã nguồn PHP:
    Str = Application.WorksheetFunction.Proper(Target)  

  4. #14
    vivi Guest
    Trích dẫn Gửi bởi thaiquy7
    viết hoa đầu mỗi từ bạn ah, cảm ơn bạn rất nhiều
    Mã:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim Tem, Str As String
    If Target.Column = 3 And Target.Count = 1 Then
        Str = Application.WorksheetFunction.Proper(Target)
        Tem = Split(Trim(Str), " ")
        Target.Offset(, 1).Value = Tem(UBound(Tem))
        Target.Value = Trim(Left(Str, Len(Str) - Len(Target.Offset(, 1))))
    End If
    Application.EnableEvents = True
    End Sub
    Bạn Alt+F11, kích đúp sheet 1, bạn chép đoạn code trên của thầy Bate vào là ok

  5. #15
    Ngày tham gia
    Aug 2015
    Bài viết
    0

    Đánh họ và tên, tự động tách tên, tự động viết hoa

    Tập huấn phổ cập giáo dục tôi có 1 biểu không biết họ làm thế nào mà nó tự động viết hoa và tự động tách tên, tôi đưa lên diễn đàn nhờ anh em giúp đỡ:
    ở cột C khi nhập họ và tên (nguyễn thiện nhân) khi enter thì cột C hiển thị Nguyễn Thiện cột D hiển thị Nhân. Rất mong anh em giúp đỡ chân thành cảm ơn. (tôi có đính kèm tệp)

  6. #16
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi thaiquy7
    Tập huấn phổ cập giáo dục tôi có 1 biểu không biết họ làm thế nào mà nó tự động viết hoa và tự động tách tên, tôi đưa lên diễn đàn nhờ anh em giúp đỡ:
    ở cột C khi nhập họ và tên (nguyễn thiện nhân) khi enter thì cột C hiển thị Nguyễn Thiện cột D hiển thị Nhân. Rất mong anh em giúp đỡ chân thành cảm ơn. (tôi có đính kèm tệp)
    cái này làm sao crack được vậy bạn, chỉ cho tôi với
    tôi có thử một vài cách nhưng ko mở được.......hihichic

  7. #17
    Mrhieuson Guest
    Vác cây đao to này ra chơi chút coi. Cất riết sét hết rồi.

    Mã nguồn PHP:
    Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Target.Column = 3 Then If Target.Count = 1 Then If Target <> "" Then Dim temp As String temp = Application.Proper(Trim(Target)) With CreateObject("VbScript.RegExp") .Pattern = "(\S+)(.*)(\s\S+)" Target(, 2) = .Replace(temp, "$" & 3) Target = .Replace(temp, "$" & 1 & "$" & 2) End With End If End IfEnd IfApplication.EnableEvents = TrueEnd Sub  

  8. #18
    vupro09 Guest
    Trích dẫn Gửi bởi quanghai1969
    Vác cây đao to này ra chơi chút coi. Cất riết sét hết rồi.

    <div class="bbcode_container">
    <div class="bbcode_description">PHP Code:
    </div>
    </div>
    </div>
    Bạn cho tôi hỏi, nếu muốn VIẾT HOA TOÀN BỘ CÁC TỪ, thì sửa code như thế nào
    Xin cảm ơn

  9. #19
    tienhuy111 Guest
    Trích dẫn Gửi bởi hoanglocphat
    Bạn cho tôi hỏi, nếu muốn VIẾT HOA TOÀN BỘ CÁC TỪ, thì sửa code như thế nào
    Xin cảm ơn
    Sửa dòng code này
    temp = Application.Proper(Trim(Target))
    Thành
    temp = Ucase(Trim(Target))

  10. #20
    nhhoang19 Guest
    Nếu viết hoa toàn bộ thì đổi dòng
    Str = Target.Value
    thành
    Str = UCase(Target)

Trang 2 của 4 Đầu tiênĐầu tiên 1234 CuốiCuối

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •