Code tự động Viết Hoa đầu mỗi từ

[snow25]

Bạn xóa 1 sự kiện đi vì nó không biết nhận ở sự kiện nào.Nếu mà muốn cùng chạy bạn có thể gộp chung vào.Mà cái hàm chuanhoachuoi của bạn đâu.

 

[ttk1986]

Bạn xóa 1 sự kiện đi vì nó không biết nhận ở sự kiện nào.Nếu mà muốn cùng chạy bạn có thể gộp chung vào.Mà cái hàm chuanhoachuoi của bạn đâu.

Em không biết , em chỉ muống cột C khi viết thường thì tự chuyển thành hoa thôi!!! giúp em

 

[snow25]

Em không biết , em chỉ muống cột C khi viết thường thì tự chuyển thành hoa thôi!!! giúp em

Chuyển chữ đầu dòng hay tất cả.

 

[ttk1986]

Chuyển chữ đầu dòng hay tất cả.

đầu chữ anh. ví dụ: Trần Thị Minh

 

[snow25]

đầu chữ anh. ví dụ: Trần Thị Minh

Bạn xóa hết trong đấy đi rồi điền code này xem.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
If Not Intersect(Target, Range("C5:C1000")) Is Nothing Then
If Target.Count = 1 Then
   If Target <> "" Then
         Application.EnableEvents = False
       str = WorksheetFunction.Proper(Target.Value)
       Target.Value = str
   Application.EnableEvents = True
  End If
End If
End If
End Sub

 

[ttk1986]

Bạn xóa hết trong đấy đi rồi điền code này xem.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
If Not Intersect(Target, Range("C5:C1000")) Is Nothing Then
If Target.Count = 1 Then
   If Target <> "" Then
         Application.EnableEvents = False
       str = WorksheetFunction.Proper(Target.Value)
       Target.Value = str
   Application.EnableEvents = True
  End If
End If
End If
End Sub

vẫn không được anh. vẫn báo lỗi vậy

Bài đã được tự động gộp: 2/1/19

vẫn không được anh. vẫn báo lỗi vậy

Riêng 1 code đó thì được, ghép lại không được anh ơi!!

 

[snow25]

vẫn không được anh. vẫn báo lỗi vậy

Bài đã được tự động gộp: 2/1/19

Riêng 1 code đó thì được, ghép lại không được anh ơi!!

Được mà bạn.

 

[ttk1986]

Được mà bạn.

Riêng 1 code đó thì được, ghép lại không được anh ơi!! có cách giúp em với!!!

 

[snow25]

Riêng 1 code đó thì được, ghép lại không được anh ơi!! có cách giúp em với!!!

Vậy bạn tách cái kia ra module rồi gọi vào là được.Giờ mình về rồi không sửa bài được.

 

[PacificPR]

Riêng 1 code đó thì được, ghép lại không được anh ơi!! có cách giúp em với!!!

Ủa sao nhà mình không dùng kiểu tại ô gì gì đó oánh công thức =PROPER(C5) kéo xuống hoặc làm gì gì ấy. Copy cả khối sản phẩm ấy dán vào vùng kia là xong rồi. Chứ Andy Code và Dwight Yorke làm gì cho mệt

 

[snow25]

Ủa sao nhà mình không dùng kiểu tại ô gì gì đó oánh công thức =PROPER(C5) kéo xuống hoặc làm gì gì ấy. Copy cả khối sản phẩm ấy dán vào vùng kia là xong rồi. Chứ Andy Code và Dwight Yorke làm gì cho mệt

Đây là chắc bạn đó không muốn viết hoa.Mà để nó tự động.

 

[PacificPR]

Đây là chắc bạn đó không muốn viết hoa.Mà để nó tự động.

Em nị không ủng hộ kiểu tự động hóa qúa mức như thế này. Đằng nào cũng mất công gõ chứ có phải đọc mà nhập vào được đâu

 

[tam888]

Em nị không ủng hộ kiểu tự động hóa qúa mức như thế này. Đằng nào cũng mất công gõ chứ có phải đọc mà nhập vào được đâu

bệnh lười đó mà, mà cứ tự động là thích. Tên nhập 1 lần dùng cả năm, vậy chi phải mệt thế - cứ luyện gõ 9 ngón là xong

 

[snow25]

Riêng 1 code đó thì được, ghép lại không được anh ơi!! có cách giúp em với!!!

Bạn xem code có đúng ý bạn không nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
If Not Intersect(Target, Range("C5:C1000")) Is Nothing Then
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
str = WorksheetFunction.Proper(Target.Value)
Target.Value = str
If Target.Value = Empty Then
   Target.Offset(, -1).Value = Empty
Else
   Target.Offset(, -1).Value = Date
End If
Application.EnableEvents = True
End If
End If
End If
End Sub

 

[ttk1986]

Bạn xem code có đúng ý bạn không nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
If Not Intersect(Target, Range("C5:C1000")) Is Nothing Then
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
str = WorksheetFunction.Proper(Target.Value)
Target.Value = str
If Target.Value = Empty Then
   Target.Offset(, -1).Value = Empty
Else
   Target.Offset(, -1).Value = Date
End If
Application.EnableEvents = True
End If
End If
End If
End Sub

Cảm ơn anh, mình sử dụng vậy vì mục đích nhanh cho nhân viên mình thôi và vì mục đích hoàn thành nhiệm vụ nhanh nhất, xuất sắc nhất!!!!!!