Làm Cách Nào Để Bỏ Qua Ô Hoặc Cột Khi bấm Tab Trong Excel

Liên hệ QC

toido1992

Thành viên mới
Tham gia
25/5/12
Bài viết
7
Được thích
0
Mình có tìm được code ở dưới bên Kutool nhưng nó chỉ bỏ qua được 1 cột cách 1 cột
Bác nào sửa được khi bấm tab bỏ qua được số cột tùy chọn không ạ
e xin cám ơn

Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static sRg As Range
    Dim ColumnOffset As Integer
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Union([B:B], [D:D], [F:F])) Is Nothing Then
        With Target
        Application.EnableEvents = False
        If Not sRg Is Nothing Then
            If sRg.Column < .Column Then
                ColumnOffset = 1
            ElseIf .Column <> 1 Then
                ColumnOffset = -1
            End If
        Else
            ColumnOffset = 1
        End If
        .Offset(, ColumnOffset).Select
        Application.EnableEvents = True
        End With
    End If
    Set sRg = ActiveCell
End Sub
 
Mình có tìm được code ở dưới bên Kutool nhưng nó chỉ bỏ qua được 1 cột cách 1 cột
Bác nào sửa được khi bấm tab bỏ qua được số cột tùy chọn không ạ
e xin cám ơn

Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static sRg As Range
    Dim ColumnOffset As Integer
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Union([B:B], [D:D], [F:F])) Is Nothing Then
        With Target
        Application.EnableEvents = False
        If Not sRg Is Nothing Then
            If sRg.Column < .Column Then
                ColumnOffset = 1
            ElseIf .Column <> 1 Then
                ColumnOffset = -1
            End If
        Else
            ColumnOffset = 1
        End If
        .Offset(, ColumnOffset).Select
        Application.EnableEvents = True
        End With
    End If
    Set sRg = ActiveCell
End Sub
Sao không ẩn cột đi cho nhanh gọn lẹ?
 

File đính kèm

Web KT

Bài viết mới nhất

Back
Top Bottom