選択したセルを左または右に数セル動かすには?

Question 56.6 Previous Next
詳細は こちら 簡単な質問ですみません。
データ最後の場所まで移動させ、それから左又は右に数セル動かす方法を教えて下さい。 行の場合は、最後のデータから1行下げる方法は
Slection.End(xlDown).Select を入力後
Slection.Offset(myGyou + 1).Activate で出来ました。
急いでいます。よろしくお願いいたします。
Answer   Copyright (C) 2002.12.2 永井善王
500連発をご愛読、ありがとうございます。
質問対象となるマクロ番号の入力をお忘れのようですが、188番「最終行及び範囲を取得する」(宮本耕治氏担当)と、183番「Offsetメソッドによるセル指定」(井領邦弘氏担当)のあたりを参考になさっているのかと推測します。

お急ぎと言うことですし、「1行下げる方法は出来た」と言うことですので、Offsetプロパティの引数の指定方法を解説すればよいかと思いますが、それについては既にMacroのページに掲載済みです。

くわしいことは 「
選択範囲をオフセットする(ずらす)」をご覧いただければ、お分かりいただけるかと思います。

アクティブセルへ入力後に次のセルに移動(下方向)させるには?

Question 56.93 Excel VBA Borad (掲示板)より Previous Next
一つ教えてください。簡単なことだと思うのですがなかなかうまくいきません(参考資料を見ながら探しています)。

エクセルの中にオブジェクトでボタンを作成して、これを押すと丸印がアクティブセルに入力するところまで出来ているのですが! ボタンを押して丸印が入力され、次のセルに移動(下方向)させるところまでできたらいいなと思っています。
コードを知っていたら教えていただけないでしょうか!宜しくお願いいたします。
Answer   2002.12.16 よっしー
初めまして。 こんなのはどうでしょうか?
Private Sub 「ボタン」_Click()
    <ボタンをクリックしたらアクティブセルに○を付ける仕事>
    ActiveCell.Offset(1, 0).Activate
End Sub
「Activate」のところを「Select」にしても多分動きます。 どう違うのか、私も初心者なのでわかんないです。(^_^;)
ありがとうございました
すっきりいたしました。おかげさまでもやもやしていたものがとれたっていう感じです。
私も初心者ですので、これからいろいろと勉強して、アドバイスが出来るように頑張りたいと思います。 お世話になりました。

 

Excel VBA Macro