Không hiểu bạn nói gì.Gửi bởi thaiquy7
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.
Không hiểu bạn nói gì.Gửi bởi thaiquy7
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.
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àyGửi bởi thaiquy7
Mã nguồn PHP:
Str = Application.WorksheetFunction.Proper(Target)
Gửi bởi thaiquy7Bạ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à okMã: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
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ớiGửi bởi thaiquy7
tôi có thử một vài cách nhưng ko mở được.......hihichic
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
</div>Gửi bởi quanghai1969
</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
Sửa dòng code nàyGửi bởi hoanglocphat
temp = Application.Proper(Trim(Target))
Thành
temp = Ucase(Trim(Target))
Nếu viết hoa toàn bộ thì đổi dòng
Str = Target.Value
thành
Str = UCase(Target)