Код Excel VBA для выбора определенного столбца

Question

У меня есть код, который хорошо работает при переходе к следующему столбцу на основе введенного кода, только когда он добирается до столбца 13, мне нужно, чтобы он начинался с последней строки и возвращался назад , Кто-нибудь может мне помочь?

Dim lastrow As Long  
If Target.Column > 2 Then 
    lastrow = Range("A17").Value 
    'lastrow = Me.Cells(Me.Rows.Count, "B").End(xlDown).Row 
    If Target.Column Mod 2 = 1 Then 
     If Target.Row >= lastrow Then   
      Me.Cells(Target.Row, Target.Column + 1).Select 
     Else    
      Me.Cells(Target.Row + 1, Target.Column).Select 
     End If 
    Else  
     If Target.Row = 3 Then  
      Me.Cells(Target.Row, Target.Column + 1).Select 
     Else   
      Me.Cells(Target.Row - 1, Target.Column).Select 
     End If 
    End If 
End If 

Answer 1

Кажется, что проблема с вашим утверждением:

If Target.Column Mod 2 = 1 Then 

Я считаю, что вы ищете оператор модуля для Excel VBA «\». Попробуйте это:

If (Target.Column\2) = 1 Then 

За свой комментарий, попробуйте добавить этот код в колонке 13:

If Target.Column = 13 Then 
'<your code here' 

Это должно сделать трюк.

Кроме того, вы можете использовать функцию смещения. Синтаксис: .Range (""). (RowOffset, ColumnOffset). Это позволяет вам компенсировать фиксированную позицию.

См полностью отредактированный код ниже:

If Target.Column > 2 Then 
lastrow = Range("A17").Value 
'lastrow = Me.Cells(Me.Rows.Count, "B").End(xlDown).Row 
If Target.Column Mod 2 = 1 Then 
    If Target.Row >= lastrow Then   
     Me.Cells(Target.Row, Target.Column + 1).Select 
    Else    
     Me.Cells(Target.Row + 1, Target.Column).Select 
    End If 
ElseIf Target.Column = 13 Then 
    ' I am assuming the code below is what you need 
    ' this would start at your last row and work it's way up 
    Me.Cells(lastrow, Target.Column).Select 
    For i = lastrow to 1 Step - 1 ' replace 1 with however far up you want it to go 
     Me.Cells(i, Target.Column).Select 
    Next 
Else  
    If Target.Row = 3 Then  
     Me.Cells(Target.Row, Target.Column + 1).Select 
    Else   
     Me.Cells(Target.Row - 1, Target.Column).Select 
    End If 
End If 
End If