Đổi Private Sub Worksheet_Change(ByVal....) thành Private Sub CommandButton1_Click() (1 người xem)

[van80]

Chào các anh, chị trên diễn đàn !
Đổi sự kiện Private Sub Worksheet_Change(ByVal Target As Range) thành sự kiện Private Sub CommandButton1_Click()
Ở đoạn code sau thì viết lại như thế nào ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Union(Range("H3:H3"), Range("G4:G4"), Range("O3:O3"), Range("N4:N4"), Range("B10:B19")), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = Application.Proper(Target.Value)
Application.EnableEvents = True
End If
End Sub

Cám ơn các anh chị nhiều !
Thân chào !

 

[hoangdanh282vn]

Chào các anh, chị trên diễn đàn !
Đổi sự kiện Private Sub Worksheet_Change(ByVal Target As Range) thành sự kiện Private Sub CommandButton1_Click()
Ở đoạn code sau thì viết lại như thế nào ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Union(Range("H3:H3"), Range("G4:G4"), Range("O3:O3"), Range("N4:N4"), Range("B10:B19")), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = Application.Proper(Target.Value)
Application.EnableEvents = True
End If
End Sub

Cám ơn các anh chị nhiều !
Thân chào !

Bạn đổi Target thành selection. Bôi chọn vùng cần xử lý rồi bấm nút để thực hiện sự kiện :

Private Sub CommandButton1_Click()
Dim Cell As Range
For Each Cell In Selection
If Not Intersect(Union(Range("H3:H3"), Range("G4:G4"), Range("O3:O3"), Range("N4:N4"), Range("B10:B19")), Cell) Is Nothing Then
Cell.Value = Application.Proper(Cell.Value)
End If
Next
End Sub

 

[ndu96081631]

Chào các anh, chị trên diễn đàn !
Đổi sự kiện Private Sub Worksheet_Change(ByVal Target As Range) thành sự kiệnPrivate Sub CommandButton1_Click()
Ở đoạn code sau thì viết lại như thế nào ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Union(Range("H3:H3"), Range("G4:G4"), Range("O3:O3"), Range("N4:N4"), Range("B10:B19")), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = Application.Proper(Target.Value)
Application.EnableEvents = True
End If
End Sub

Cám ơn các anh chị nhiều !
Thân chào !

Dùng code vầy nhé:

Private Sub CommandButton1_Click()
  Dim rCel as Range
  On Error Resume Next
  For Each rCel in Union(Range("H3:H3"), Range("G4:G4"), Range("O3:O3"), Range("N4:N4"), Range("B10:B19"))
    rCel.Value = WorksheetFunction.Proper(rCel.Value)
  Next
End Sub