Đánh họ và tên, tự động tách tên, tự động viết hoa (1 người xem)

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

 

[VetMini]

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

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.

 

[Meotom65]

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

 

[Meotom65]

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.

 

[duchoian1991]

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 ạ

 

[gtri]

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?

 

[Meotom65]

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 .

 

[gtri]

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

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

 

[khuongvietphong]

===============================================

 

[khuongvietphong]

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 ạ

 

[doatmenhhon]

Thay thành i là được ^^

 

[khoa_pr]

Chào mọi người, Chào Ba tê và quanghai1969
Tôi tham gia mục này quá trể, nhưng đọc mới thấy nên anh em thông cảm.
Sau khi đọc bài viết và code của các bạn tôi có thắc mắc như sau mong các bạn giúp:
Cột D (target.count =1) là cột tách tên. Sau khi tên đã được tách tôi cần sửa lại "Họ" hoặc tên "đệm" rồi nhấn Enter thì nó sẽ xoá mất Tên ở cột D rồi tách tên đệm sang. Điều kiện đặt ra là
1- Nếu cột D rỗng (Target.count = " ") thì tách tên từ cột C sang.
2- Nếu cột D không rỗng (Target.count <> " " ) thì không tách tên từ C sang D.

 

[Meotom65]

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.

Chào thầy Ba Tê, cho mình hỏi : trong code của thầy muốn tự động viết hoa ở cột 3 và cột 6 cần viết thêm gì ? Cám ơn nhiều ạ.