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
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