code viết hoa họ tên

[soap1234]

Chào anh chị anh . Em muốn viết 1 code để viết hoa các ký tự đầu tiên trong cột có chứa tiêu đề [hoten] ạ . (mục đích việc này là sau này chèn cột thêm cột không ảnh hưởng gì ạ) em xin cảm ơn anh chị

 

[BuiQuangThuan]

Chào anh chị anh . Em muốn viết 1 code để viết hoa các ký tự đầu tiên trong cột có chứa tiêu đề [hoten] ạ . (mục đích việc này là sau này chèn cột thêm cột không ảnh hưởng gì ạ) em xin cảm ơn anh chị

Có rất nhiều addin làm được việc đó. bạn chịu khó tìm kiếm trong khi tạo bài mới và chờ đợi có khi cũng đã giải quyết xong việc của mình rồi ấy

 

[johnnylinhanh]

Công thức bao Chèn/Cắt di chuyển cột các thể loại được không thớt ơi?

 

[soap1234]

Dựa ký tự cột thì chuẩn hơn anh à

 

[VetMini]

Bạn bí chỗ nào? Chỗ chuyển chuỗi thành viết hoa đầu từ, hay chỗ bắt sự kiện thay đổi ô trong cột?

 

[hoangquanw]

Lợi dụng code quá cũng không tốt. trong khi có hàm rồi ngoài việc có hàm thì ngay cả cái unikey cũng có công cụ viết hoa chữ cái đầu rồi chỉ viêc coppy là xong. bạn nên dành tgian để suy nghĩ đến vấn đề khác sẽ hợp lý hơn @@

 

[soap1234]

Chỗ chuyển chuỗi thành viết hoa đầu từ anh à. với lại khi xóa cột thêm cột thì lại phải sửa code anh à . Làm sao gán code vào tiêu đề [hoten] thì nghe chừng mới ổn anh à.

code em đang dùng
Sub Proper_KeKhaiDangKy()

For Each cls In ActiveSheet.Range([P2], [P65000].End(3))

cls.Value = Application.Proper(cls.Value)

Next

End Sub

 

[VetMini]

Code sự kiện. Mỗi lần thay đổi trị trong cột [hoten] thì nó tự động chỉnh thành viết hoa

Private Sub Worksheet_Change(ByVal Target As Range)
Const TITLEROW = 1
Dim TempEventSave
Select Case Cells(TITLEROW, Target.Column).Value
Case "[hoten]"
GoSub VietHoaHoTen
Case Else ' bắt thay đổi các cột khác ở đây
End Select
' dùng Gosub thì bắt buộc phải Exit trước khi gặp các subs
Exit Sub
'
VietHoaHoTen:
TempEventSave = Application. EnableEvents
Application. EnableEvents = False
Target.Value = Applcation.Proper(Target.Value)
Application. EnableEvents = TempEventSave
Return
' các subs khác (cho các cột khác ở đây)
End Sub

Nếu muốn chơi kiểu "bấm một phát" thì:
Sửa code đang dùng:

Sub Proper_KeKhaiDangKy()
Const TITLEROW = 1 ' dòng chứa tiêu đề
Set tCell = Cells(TITLEROW, 1).EntireRow.Find("[hoten]") ' tìm cell chứa tiêu đề
If tCell Is Nothing Then
MsgBox "Chạy, tìm không ra cột họ tên"
Exit Sub
End If

For Each cls In ActiveSheet.Range(tCell.Offset(1, 0), Cells(65000, tCell.Column).End(3))
cls.Value = Application.Proper(cls.Value)
Next
End Sub

 

[soap1234]

em xin chân thành cảm ơn anh nhiều ạ . nhờ anh bài toán đã giải quyết xong anh ạ