[[20170108204410]]　『アクティブセルと同じ行のセル範囲指定』（Uwan17）　ページの最後に飛ぶ

『アクティブセルと同じ行のセル範囲指定』（Uwan17）

初心者ですがよろしくお願いします。

アクティブセルの同じ行のセル範囲を指定したいがエラーになります。
具体的には、アクティブセルの4つ右のセルから6つ右のセルまでの範囲を指定したいのです。
Range("(ActiveCell.offset(0,4).select):(ActiveCell.offset(0,6).select)").Select

としてみましがエラーとなります。
'Range'メソッドは失敗しました:'_Global'オブジェクト

範囲指定の方法が間違っているのでしょうが、わかりません。
よろしくお願いいたします。

＜使用 Excel：Excel2003、使用 OS：Windows10 ＞

こうしたかたのでしょうか
Range(ActiveCell.Offset(0, 4), ActiveCell.Offset(0, 6)).Select

これでも
ActiveCell.Offset(0, 4).Resize(1, 3).Select

（マナ） 2017/01/08(日) 20:58

マナ様
出来ました！！ありがとうございます！！

実はもう一つ質問があります。
教えて頂いた方法でセル範囲を指定した後、
Selection.NumberFormatLocal = ";;;"　　でセル範囲を非表示
Selection.NumberFormatLocal = "G/標準"　でセル範囲を表示
という所まではできています。
最後に、当初アクティブだったセルをアクティブにしてEnd Subとしたいのですが指定方法がわかりません。
Range(ActiveCell.Offset(0, -4)).Select　ではダメみたいです。。。
何卒もう一度ご教授ください。
よろしくお願いいたします。
（Uwan17） 2017/01/08(日) 21:09

こうしたかったのでしょうか
Range(ActiveCell.Offset(0, -4), ActiveCell.Offset(0, -4)).Select

これでも
ActiveCell.Offset(0, -4).Select

（マナ） 2017/01/08(日) 21:17

マナ様
完璧です！！思うとおりに動かすことができました。
本当にありがとうございました！！！

（Uwan17） 2017/01/08(日) 21:22

解決かも知れませんが、、、、

SelectしなければActiveCellが変わることはないですよ？

Sub test()

    With ActiveCell.Offset(, 4)
        .Resize(, 2).NumberFormatLocal _
                = IIf(.NumberFormatLocal = "G/標準", ";;;", "G/標準")
    End With
End Sub
（まっつわん） 2017/01/09(月) 09:04

コメント返信：

[ 一覧(最新更新順) ]

[[20170108204410]] 『アクティブセルと同じ行のセル範囲指定』（Uwan17） ページの最後に飛ぶ

[[20170108204410]]　『アクティブセルと同じ行のセル範囲指定』（Uwan17）　ページの最後に飛ぶ