• ベストアンサー

エクセル　VBAで複数行の選択

エクセル2002使用です。 VBAで変数を使って複数行の選択で、6行目から9行目までを選択したいのです。 sub macro2() Dim rw As Integer rw=8 Rows("rw - 2：rw + 1").Select end sub だとエラーになります。 Rows("6:9").Select のようにしたいのですがどこが悪いのでしょうか？ よろしくお願いします。

  • ken123
  • お礼率73% (299/409)

質問者が選んだベストアンサー

  • ベストアンサー
  • shkwta
  • ベストアンサー率52% (966/1825)
回答No.1

式を文字列にしたら計算してくれません。 Sub macro2() Dim rw As Integer rw = 8 Rows((rw - 2) & ":" & (rw + 1)).Select End Sub これでどうでしょう。

ken123
質問者

お礼

shkwt　様早速のご回答ありがとうございました。 完璧でした。 1年ほどVBAから離れてしまって不具合の修正で初歩的なこともすっかり分からなくなってしまってました。 本当に助かりました。今後ともよろしくお願いします。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルの行選択マクロ

    エクセル２０１０にて。 行を選択した状態から、１行目から現在行の１つ上までを選択し、それを非表示とするマクロを組みたいのです。 ＶＢＡは全く分からず・・・ 変数を宣言し、その変数を代入すれば良いかと試行錯誤しましたが判らず。 Sub ３行目から現在行より上を選択して非表示() ' 　Dim x As Integer 　x = ActiveCell.Row Rows("3:x-1").Select Selection.EntireRow.Hidden = True End Sub では、全く動作せず。。 例えば２０行目を選択した状態で、マクロを実行すると３～１９行目までが非表示になるようにしたいのです。御教示下さいませ。

  • EXCEL（VBA）で1行おきに行を選択する方法

    こんにちは。VBAは苦手なので教えてください。 EXCELのsheet1にあるリストに、下記マクロで1行おきに 空白行を挿入しました。 Sub test1() '隔行で空白行を挿入 Dim rw As Long 'セル For rw = Range("A1").End(xlDown).Row To 2 Step -1 Rows(rw).Insert Next End Sub 同じファイルのSheet2の1行目<Rows("1:1")>に、計算式が入力されています。 マクロで挿入した空白行全てを選択し、そこへSheet2の1行目のコピーを 貼り付けたいです。 ぜひ、良い方法を教えてください。

  • 行を非表示するＶＢＡ

    下記は行を非表示するＶＢＡです、 エラーになり非表示できませんどこが間違っているのですか、よろしくお願いします。 Sub Macro7() Dim a As Integer a = 15 Rows("a:a").Select Selection.EntireRow.Hidden = True End Sub

  • エクセルのVBAで行選択

    エクセルVBAで、連続してない2行（たとえば10行目と13行目）を選択する場合 Sub test02() Dim x As Long, y As Long x = 10 y = 13 Range(x & ":" & x & "," & y & ":" & y).Select End Sub でできましたが、もっと簡単に書く方法はないでしょうか？

  • エクセル　ＶＢＡ　の行選択

    エクセルＶＢＡで行を選択する場合 Rows(1,1).select Range(Cells(2,2),Cells(5, 5)).EntireRow.Select の方法があると知りました。 この数値の部分に変数を入れるとエラーがでてしまいました。 どうすれば変数で行を選択することができるのか教えてください。 2003を使用しております。

  • EXCEL VBA

    EXCEL VBAで空白行が現れたら「小計」の文字を入力したいと思い以下のように記述しましたが、うまくいきません。どこがおかしいのか教えてください。 宜しくお願いします。 Sub write小計() Dim i As Integer Dim rowcnt As Integer rowcnt = Cells(1, 1).CurrentRegion.Rows.Count Range("B1").Select For i = 1 To rowcnt If Cells(i, 2).Value = "" Then Value = "小　計" ActiveCell.Offset(1).Select Next i End Sub

  • エクセルのVBAでFor文がわかりません。

    エクセルのマクロでとりあえずデータを 始めは6、7行のデータをクリアし 次は6+7、7+7のデータをクリア その次は6+7*2、7+7*2のデータをクリア とうぐあいにＦｏｒ文を作りたいのですが 以下のように作るとRowsの部分でデバックが出ます。 どのように修正すればよいのでしょうか？ ご教授お願いいたします。 Sub Macro1() Sheets("Sheet1").Select Dim x As Integer Dim y As Integer Dim z As Integer For x = 1 To 304 y = 7 * (x - 1) + 6 z = 7 * (x - 1) + 7 Rows("y:z").Select'この行でデバックとなる Selection.ClearContents Next x End Sub

  • VBAで行を挿入する

    VBAを始めた初心者です。 Exel2002使用です。 VBAでA列の4行目から10行目に行の挿入をできるようにしようと下記のように書きましたが、Rows("i:i").Selectの部分でデバックがかかってしまいます。間違っている理由がわからないのですがよろしくお願いします。 また、DO　While　Loopステートメントを使ってA列が空白になるまで（例えばA4セル以下の）行を挿入とする場合の方法も教えていただけましたら幸いです。 Sub 4行目から10行目まで() Dim i As Integer For i = 4 To 10 Cells(i, 1).Value = i Rows("i:i").Select Selection.Insert Shift:=xlDown Next i End Sub Sub 4行目から空白になるまで() Dim i As Integer Range（"A4").serect Do While activecell.value = "" Cells(i, 1).Value = i Rows("i:i").Select Selection.Insert Shift:=xlDown activecell.offset(1,0).select Loop End Sub

  • excel vba　複数行が選択できない。

    おはようございます。よろしければ教えてください。 excel2000を使用しています。 vbaで２行目と４行目と選択したいのですが、以下のステートメントだと２４行目が選択されてしまいます。 Rows("2,4").Select ２行目と４行目を選択するためには、どこを修正すればよいのかわかりませんのでご教授をお願いします。

  • エクセル　VBA　Rowsプロパティ？

    エクセル　VBAにて　ある列の空白セルを調べて空白があった場合 行全体を選択して削除したいため、下記のように書き込みました。 Dim idx As Integer For idx = 5 To 2204 If ActiveSheet.Cells(idx, 2) = "" Then Rows("idx:idx").Select Selection.Delete Shift:=xlUp End If Next idx Rows("idx:idx").Selectが間違っていると思うのですが 変数を使用しての行指定がわかりません。 どなたかご教示お願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する