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

[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)

 

[Let'GâuGâu]

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

 

[bongmaihung]

http://forum.webketoan.vn/threads/1...ach-ten-ra-khoi-cot-ho-va-ten-trong-excel.htm
tham khảo nè Bạn!

Vấn đề là file đang có pass, phải crack file bạn ah ( Crack là vi phạm nội quy diễn đàn ). Crack được sẽ nhìn thấy code thôi ah. Còn hàm tách họ tên GPE nhiều vô số luôn,

 

[thaiquy7]

biểu này do Bộ GD&ĐT cung cấp, trình độ excel của người viết quả là cao thủ, minh không biết nên đưa lên cho anh em nghiên cứu, trình độ của mình chỉ biết sử dụng thôi

 

[thaiquy7]

cảm ơn bạn ngacuoi, ở đây là tự tách tên qua cột khác luôn, còn họ và chữ lót vẫn ở cột mình đã gõ, không thêm bất kỳ công thức nào.

 

[phihndhsp]

biểu này do Bộ GD&ĐT cung cấp, trình độ excel của người viết quả là cao thủ, minh không biết nên đưa lên cho anh em nghiên cứu, trình độ của mình chỉ biết sử dụng thôi

cái này cũng bình thường thôi, người ta viết 1 macro tách tên và cho sự kiện tại ô gõ nó sẽ tự động tách tên, còn file có pass cái này trên diễn đàn đã thảo luận rất nhiều mở mấy cái này cũng có công cụ HXD rồi

code tách tên của người ta đây

For k = Len(HoTenDoiTuong) To 1 Step -1
If Mid(HoTenDoiTuong, k, 1) = " " Then
hodem1dt = Trim(Replace(Left(HoTenDoiTuong, k), "", ""))
ten1dt = Trim(Replace(Right(HoTenDoiTuong, Len(HoTenDoiTuong) - k), "", ""))
Exit For
End If
Next

 

[bongmaihung]

cái này cũng bình thường thôi, người ta viết 1 macro tách tên và cho sự kiện tại ô gõ nó sẽ tự động tách tên, còn file có pass cái này trên diễn đàn đã thảo luận rất nhiều mở mấy cái này cũng có công cụ HXD rồi

Anh Phi nói chuẩn đấy ah. File này trên GPE cao thủ viết hàm tách họ tên nhiều như mưa

 

[Ba Tê]

cảm ơn bạn ngacuoi, ở đây là tự tách tên qua cột khác luôn, còn họ và chữ lót vẫn ở cột mình đã gõ, không thêm bất kỳ công thức nào.

Gởi bạn tham khảo một file mẫu, Nhập vào cột C sẽ tách lấy Tên ra cột D.
Nhớ Enable Macros khi mở file.
Mọi chuyện khác không biết.

 

[thaiquy7]

cảm ơn bạn Ba Tê, bạn có thể hướng dẫn dùm là tự động tách tên và tự động viết hoa,

 

[Ba Tê]

cảm ơn bạn Ba Tê, bạn có thể hướng dẫn dùm là tự động tách tên và tự động viết hoa,

Tìm trong Sub dòng này:

Str = Target.Vlaue

Thay bằng dòng này xem sao:

Str = UCase(Target)

 

[VetMini]

biểu này do Bộ GD&ĐT cung cấp, trình độ excel của người viết quả là cao thủ, minh không biết nên đưa lên cho anh em nghiên cứu, trình độ của mình chỉ biết sử dụng thôi

Cơ Quan trên lúc cung cấp file, người ta có đi kèm theo bản điều lệ. Nếu bản điều lệ nêu rõ bản quyền của file thì cờ rắc là PHẠM PHÁP

Xâm phạm bản quyền dân sự thì thuộc về luật dân sự, bồi thường là cùng. Xâm phạm bản quyền cơ quan nhà nước là chuyện khác hoàn toàn.

 

[thaiquy7]

tự động tách tên, rồi tự động viết hoa đầu mỗi từ đó bạn.

 

[Ba Tê]

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.

 

[thaiquy7]

viết hoa đầu mỗi từ bạn ah, cảm ơn bạn rất nhiều

 

[Ba Tê]

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

    Str = Application.WorksheetFunction.Proper(Target)

 

[bongmaihung]

viết hoa đầu mỗi từ bạn ah, cảm ơn bạn rất nhiều

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

 

[Quang_Hải]

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

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

 

[hoanglocphat]

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

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

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

 

[Quang_Hải]

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))

 

[thaiquy7]

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