Trang 3 của 4 Đầu tiênĐầu tiên 1234 CuốiCuối
Kết quả 21 đến 30 của 31

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

  1. #21
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    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>
    Dao to thiệt. Nếu dùng trong sự kiện worksheet_change thì cứ mỗi lần sự kiện xảy ra thì VBA lại phải gầy một cái Script Object, chạy xong thì xoá nó đi.

    Trong các hàm sử dụng liên tục, nếu có cần sử dụng Object phức tạp thì thường người ta dùng biến Static, chỉ phải dựng 1 lần.

  2. #22
    autoford Guest
    [QUOTE=bongmaihung;613971]
    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
    Mình đổi thành Target.Offset(, 0) để nó không tách cột,mà khi viết sai xóa đi viết lại thì bị lỗi này là sao,cám ơn nhiều


  3. #23
    test01 Guest
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If 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 If
    End If
    Application.EnableEvents = True
    End Sub

    Muốn không tách cột thì sửa code thế nào vậy?chỉ giùm cám ơn nha.

  4. #24
    nguyenhuongit Guest
    Mọi người ơi, giờ mình muốn gọp từ 2 cột họ đệm và cột tên thành 1 cột họ tên thì làm thế nào, mình sử dụng hàm ghép xâu thì có tác dụng trong sheet đó chứ ko copy kết quạ họ tên được ạ

  5. #25
    thick69 Guest
    Trích dẫn Gửi bởi Meotom65
    Muốn không tách cột thì sửa code thế nào vậy?chỉ giùm cám ơn nha.[/COLOR]
    Không tách cột có phải là gõ sao y nguyên vậy?

  6. #26
    2snobody Guest
    Trích dẫn Gửi bởi gtri
    Không tách cột có phải là gõ sao y nguyên vậy?
    Tức là họ và tên ở một cột,chỉ tự động viết hoa thôi .

  7. #27
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi Meotom65
    Tức là họ và tên ở một cột,chỉ tự động viết hoa thôi .
    Thử sửa thế này xem có đạt không


    Mã:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 3 Then
    If Target.Count = 1 Then
    If Target <> "" Then
    target = Application.Proper(Trim(Target))
    End If
    End If
    End If
    Application.EnableEvents = True
    End Sub

  8. #28
    hoangvchung Guest
    ===============================================

  9. #29
    baobinh Guest
    Nhờ Mod xóa giúp em 2 bài này, em đăng bài hỏi nhưng đã tìm thấy câu trả lời rồi ạ

  10. #30
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Thay thành i là được ^^

Trang 3 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
  •