chử in trong 1 ô

[lamho27]

chào các bạn trong diển đàn,
em muốn 1 ô khi em đánh chử thường thì nó tự đổi thành chử in ,các bạn giúp giùm

 

[tedaynui]

chào các bạn trong diển đàn,
em muốn 1 ô khi em đánh chử thường thì nó tự đổi thành chử in ,các bạn giúp giùm

Bạn có thể dùng đoạn code sau

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
    Target.Value = Application.Proper(Application.Trim(Target.Value))
  End If
End Sub

TDN

 

[anhtuan1066]

Thế sao ko quét chọn tất cả những cell chuẩn bị gõ vào rồi Ctrl + I
Trường hợp này mà code thì hơi.. bùn... hi.. hi..
ANH TUẤN

 

[Anhntfpt]

Thế sao ko quét chọn tất cả những cell chuẩn bị gõ vào rồi Ctrl + I
Trường hợp này mà code thì hơi.. bùn... hi.. hi..
ANH TUẤN

Bác Tuấn ơi, cách này của Bác là : Chữ nghiêng chứ đâu phải chữ IN.
Bác có cách khác không?

 

[anhtuan1066]

Hi... hi... Lộn... là:
Ctrl + B hoặc Ctrl + @ để ra chử ĐẬM
Ctrl + I hoặc Ctrl + # để ra chử nghiêng
Còn vụ chử thừong thành chử in chắc phải VBA rồi... tuy nhiên cách của thầy Phước e rằng sẽ ko thực hiện dc với tiếng Việt có dấu (vụ này tôi mới nếm mùi ngày hôm qua)
Tôi nghĩ phải dùng UCase thì mới đúng! chẳng hạn

Private Sub Worksheet_Change(ByVal Target As Range)
  Target.Value = UCase(Target.Value)
End Sub

ANH TUẤN

 

[tedaynui]

Em là thử như chưa Test, giờ test lại thì đúng là không ổn. Cách của em là viết hoa chữ cái đầu mỗi tiếng nhưng không ổn với Unicode rồi. Vậy có thể chỉnh lại theo Anh Tuấn như sau

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
    Target.Value = UCase(Application.Trim(Target.Value))
  End If
End Sub

TDN