Excel VBA質問箱 IV

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

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


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

71459 / 76732

←次へ　｜　前へ→


	【9766】カーソル移動

koshimizu

- 03/12/16(火) 15:27 -


	引用なし

	パスワード

こんにちは。
お世話になっています。

皆様に教えて戴いたり、投稿を見ながら下記のような状態で
使用していますが、数値を変えながら使用するため不便を感じます。
Ｂ列に氏名が人数分入っているので、これを元にＣ列以降を同じように
作動させる良い方法がありましたらお願いします。戻って欲しいのはＣ８、Ｄ８・・です。

Sub セル移動()
　　If (ActiveCell.Row >= 8) And (ActiveCell.Row <= 36) Then　
　　　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

≪