Excel特定の列を選択する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 

私はあなたがエクセル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