|
初めて質問させてもらいます。
今、不特定のセルをアクティブにして、コマンドボタンでデータを入れるとデータ入れたセルの次の行のセルに移動するようにしてます。
コードはこんな感じです。
Private Sub CB1_Click()
If ActiveCell = "" Then
ActiveCell = "誤"
End If
ActiveCell.Offset(1).Select
次の事をしたいのですが、どんな感じでしたら良いかわかりません。
今のコードに続けて、ある列の10行目と24行目にデータ入れた時だけ、それぞれ今アクティブになっている列の次の列1行目と15行目にセルを移動したい。
他の時は次の行のままで
たとえば、A10にデータを入れるとB1に、C24にデータを入れるとD15にとセルを移動
わかる範囲で考えたのですがうまくいきません。
If ActiveCell = Cells(25) Then
ActiveCell.Offset(-10, 1).Select
Else
ActiveCell.Select
End If
解りにくい説明と思いますがご教示していただければと思います。
よろしくお願いします。
|
|