過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     429
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼アクティブセルの移動  VBA初心者 02/12/4(水) 16:53
　　　┗Re:アクティブセルの移動  ichinose 02/12/4(水) 17:37

　───────────────────────────────────────
　■題名 ： アクティブセルの移動
　■名前 ： VBA初心者
　■日付 ： 02/12/4(水) 16:53
　-------------------------------------------------------------------------
   
アクティブセルを右や左、上下にセル位置を意識せずに

移動させたいのですがどうしたらよいでしょうか？


　───────────────────────────────────────
　■題名 ： Re:アクティブセルの移動
　■名前 ： ichinose
　■日付 ： 02/12/4(水) 17:37
　-------------------------------------------------------------------------
   
▼VBA初心者 さん：

こんにちは。

>アクティブセルを右や左、上下にセル位置を意識せずに

>移動させたいのですがどうしたらよいでしょうか？

こんな感じでしょうか？

'================================

Sub test()

　　Call actcll_move(0, 1)

　　MsgBox "右"

　　Call actcll_move(-1, 0)

　　MsgBox "下"

　　Call actcll_move(0, -1)

　　MsgBox "左"

　　Call actcll_move(1, 0)

　　MsgBox "上"

End Sub

'============================================

Sub actcll_move(arow As Long, acol As Long)

　　On Error Resume Next

　　ActiveCell.Offset(arow, acol).Activate

　　On Error GoTo 0

End Sub

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     429