Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71525 / 76807

←次へ　｜　前へ→


	【9775】Re:カーソル移動

koshimizu

- 03/12/16(火) 16:29 -


	引用なし

	パスワード

INA さん
こんにちは。
いつもお世話になっています。

Ｂ列に氏名欄があり、Ｃ８より入力してＣ列を入力しＢ列の人数分入力したら
Ｄ８にカーソルが移動して欲しいのですが、氏名欄の人数が毎回変わるたびに
<= 36) Then　 ElseIf ActiveCell.Row = 37 Then　
ActiveCell.Offset(-29, 1).Select　　　　　　　　　　　　　　
の数値を変えて使用しています。良い方法がありましたならお願い致します。

Sub AUTO_OPEN()
　　Application.OnKey "{ENTER}", "セル移動"　
　　Application.OnKey "~", "セル移動"　　　　

End Sub
Sub AUTO_CLOSE()
　　Application.OnKey "{ENTER}"　　　
　　Application.OnKey "~"　　　　　　
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub セル移動()
　　If (ActiveCell.Row >= 8) And (ActiveCell.Row <= 36) Then　はA８番地　
　　　ActiveCell.Offset(1, 0).Select　　　　　　　　　　　　　　
　　ElseIf ActiveCell.Row = 37 Then　　　　　　　　　　　　　
　　 ActiveCell.Offset(-29, 1).Select　　　
　Do
　　If Selection = "" Then　　　　　　　　 '戻った場所が空白だったらそのまま
　　　Else　　　　　　　　　　　　　　　　 'そうでなかったら
　　　ActiveCell.Offset(0, 1).Select　　　 '１つ右のセルへカーソル移動せよ
　　
　　 End If
　　Loop Until ActiveCell.Value = ""
　　End If

End Sub

1 hits

▼

【9766】カーソル移動 koshimizu 03/12/16(火) 15:27