Xin giúp đỡ tạo nút bật/tắt chạy đoạn mã bỏ qua cột theo yêu cầu

[toido1992]

Em có tìm được đoạn mã này mà không biết cách tạo nút để bật tắt chạy đoạn mã này, xin các cao nhân chỉ giáo ạ, e có file mẫu ở dưới ạ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call MoveToNextCell(Target)
End Sub
Sub MoveToNextCell(ByVal Target As Range)
    Dim ws As Worksheet
    Set ws = ActiveSheet
    If Target.Column >= 5 And Target.Column <= 7 Then
        ws.Cells(Target.Row, 8).Select
    ElseIf Target.Column = 12 Then
        ws.Cells(Target.Row, 13).Select
    ElseIf Target.Column >= 14 And Target.Column <= 15 Then
        ws.Cells(Target.Row, 16).Select
    ElseIf Target.Column >= 17 And Target.Column <= 22 Then
        ws.Cells(Target.Row, 23).Select
    End If
End Sub

 

[vietkid221992]

Em có tìm được đoạn mã này mà không biết cách tạo nút để bật tắt chạy đoạn mã này, xin các cao nhân chỉ giáo ạ, e có file mẫu ở dưới ạ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call MoveToNextCell(Target)
End Sub
Sub MoveToNextCell(ByVal Target As Range)
    Dim ws As Worksheet
    Set ws = ActiveSheet
    If Target.Column >= 5 And Target.Column <= 7 Then
        ws.Cells(Target.Row, 8).Select
    ElseIf Target.Column = 12 Then
        ws.Cells(Target.Row, 13).Select
    ElseIf Target.Column >= 14 And Target.Column <= 15 Then
        ws.Cells(Target.Row, 16).Select
    ElseIf Target.Column >= 17 And Target.Column <= 22 Then
        ws.Cells(Target.Row, 23).Select
    End If
End Sub

- bạn sửa đoạn privite sub ở trên thành như mình gửi ảnh ( đoạn sub cũ có chức năng tự chạy sub bên dưới mỗi khi bạn chọn vào sheet)
- chèn 1 cái Shapes rồi gán cái sub "goi ham" kia vào mỗi lần muốn chạy thì bấm vào Shapes là được

 

[Maika8008]

View attachment 286165
- bạn sửa đoạn privite sub ở trên thành như mình gửi ảnh ( đoạn sub cũ có chức năng tự chạy sub bên dưới mỗi khi bạn chọn vào sheet)
- chèn 1 cái Shapes rồi gán cái sub "goi ham" kia vào mỗi lần muốn chạy thì bấm vào Shapes là được

Có lẽ thớt yêu cầu tạo một cái nút mà khi bấm vào 1 lần thì tắt sự kiện để không cho chạy selectionchange. Bấm tiếp lần nữa thì lại bật sự kiện.

Tôi đoán thế không biết có đúng không?

 

[toido1992]

Có lẽ thớt yêu cầu tạo một cái nút mà khi bấm vào 1 lần thì tắt sự kiện để không cho chạy selectionchange. Bấm tiếp lần nữa thì lại bật sự kiện.

Tôi đoán thế không biết có đúng không?

đúng rồi bác, không có thì tạo 2 nút cũng được

 

[toido1992]

View attachment 286165
- bạn sửa đoạn privite sub ở trên thành như mình gửi ảnh ( đoạn sub cũ có chức năng tự chạy sub bên dưới mỗi khi bạn chọn vào sheet)
- chèn 1 cái Shapes rồi gán cái sub "goi ham" kia vào mỗi lần muốn chạy thì bấm vào Shapes là được

không chạy được bác ơi, có thể làm nút bật và nút tắt cho mã này giúp em được không ạ

 

[Phuocam]

không chạy được bác ơi, có thể làm nút bật và nút tắt cho mã này giúp em được không ạ

Thử code này:

Dim isBatTat As Boolean
Private Sub CommandButton1_Click()

If CommandButton1.Caption = "Bat" Then
    CommandButton1.Caption = "Tat"
    isBatTat = False
Else
    CommandButton1.Caption = "Bat"
    isBatTat = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If isBatTat = True Then Call MoveToNextCell(Target)
End Sub

 

[ptm0412]

Thử code này:

Không cần biến IsBatTat.

If CommandButton1.Caption = "Bat" Then Call MoveToNextCell(Target)

Nếu dùng ToggleButton của activeX controls thì còn gọn hơn:

Private Sub Toggle1_Click()
If Toggle1.Caption = "Bat" Then
    Toggle1.Caption = "Tat"
Else
    Toggle1.Caption = "Bat"
End If
End Sub
'--------'
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Toggle1 Then Call MoveToNextCell(Target)
End Sub

Nếu dùng 1 checkbox ngầm hiểu chọn là bật, không chọn là tắt thì thậm chí không cần sub đổi caption.

 

[ptm0412]

Em có tìm được đoạn mã này mà không biết cách tạo nút để bật tắt chạy đoạn mã này, xin các cao nhân chỉ giáo ạ, e có file mẫu ở dưới ạ

    If Target.Column >= 5 And Target.Column <= 7 Then
...
    End If

Dùng Select Case cho gọn

Select Case Target.Column
    Case 5 to 7
        ...
    Case 12
        ...
    Case 14, 15
        ...
    Case 17 to 22
        ...
End Select

 

[VetMini]

Dùng Select Case cho gọn

Select Case Target.Column
    Case 5 to 7
        ...
    Case 12
        ...
    Case 14, 15
        ...
    Case 17 to 22
        ...
End Select

Select Case là phương pháp chính thống.
Nhưng nếu bảo "gọn" thì phải dùng Lookup hoặc Index/Match cho nó máu
colDes = Application.Lookup(Target.Column, [ { 0, 5, 8, 12, 13, 14, 16, 17, 23 } ], _
[ { 0, 8, 0, 13, 0, 16, 0, 23, 0 } ])
If colDes Then ws.Cells(Target.Row, colDes).Select

 

[ptm0412]

Select Case là phương pháp chính thống.
Nhưng nếu bảo "gọn" thì phải dùng Lookup hoặc Index/Match cho nó máu

Chính thống đi anh ơi, tôi ghét máu lửa.