vuongtoituonglai
Thành viên thường trực
- Tham gia
- 7/5/14
- Bài viết
- 350
- Được thích
- 47
Chào các anh chị và các bạn GPE.
Tôi có đoạn code sau( Đoạn code này cũng nhờ các anh chị và các bạn GPE viết)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
Application.EnableEvents = False
[F6].Value = UCase([F6].Value)
Application.EnableEvents = True
Range("$A$7:$L$50").AutoFilter 2, [F6].Value
End If
End Sub
Tại ô F6 chỉ đổi chữ thường sang chữ hoa và tự Filter khi gõ từ bàn phím.
Có giải pháp nào ngoài việc gõ từ bàn phím như copy từ 1 cell khác dán vào ô F6 thì tự đổi chữ hoa và tự Filter.
Rất mong các anh chị và các bạn nghiêng cứu giúp tôi.
Cảm Ơn
Tôi có đoạn code sau( Đoạn code này cũng nhờ các anh chị và các bạn GPE viết)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
Application.EnableEvents = False
[F6].Value = UCase([F6].Value)
Application.EnableEvents = True
Range("$A$7:$L$50").AutoFilter 2, [F6].Value
End If
End Sub
Tại ô F6 chỉ đổi chữ thường sang chữ hoa và tự Filter khi gõ từ bàn phím.
Có giải pháp nào ngoài việc gõ từ bàn phím như copy từ 1 cell khác dán vào ô F6 thì tự đổi chữ hoa và tự Filter.
Rất mong các anh chị và các bạn nghiêng cứu giúp tôi.
Cảm Ơn
