- ベストアンサー
エクセルのVBAで範囲指定に変数を入れたいんですけど・・・。
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
こんな感じでしょうか。 Dim i As Integer i = Range("A1").Value Range(Cells(2, 1), Cells(i, 2)).Select
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17068)
下記でもできました。 Sub test02() s = "a1:b3" s = "b10:c14" Range(s).Select x = 3: y = 2 z = 5: u = 5 Range(Cells(x, y), Cells(z, u)).Select End Sub をやってみて考えてください。 前半はプログラムで "b10:c14"の文字列を作ります。 Str（数字を文字列化）、Trim）余分なスペース除き）、＆（文字列結合）などを使って。
お礼
お礼が遅くなってすいませんでした。ありがとうございました。書いてくださった方法を試したのですがうまく動きませんでした。しかし問題は解決したので締め切らせていただきます。今後もう少し実力を付けてから試したいと思います。
- hana-hana3
- ベストアンサー率31% (4940/15541)
Range("A2:B" & Range("A1")).Select とか、 Dim Num as Long Num = Range("A1") Range("A2:B" & Num ).Select
お礼
ありがとうございました。勉強になりました。＆の使い方がわかりました。
関連するQ&A
- エクセルＶＢＡで範囲の指定をしたいです（初心者）
エクセルＶＢＡで範囲の指定をしたいです（初心者） 列ＡからＪがデータが入る範囲です。 列ＡとＢとＣには必ず数値等が何かしら入ります。 列Ｄは常に空白です。 列Ｅ以降は何か入ることも入らないこともあります。 ７行目までデータがある場合、 Ａ１セルからこの場合はＪ７セルまでを範囲指定したいのですが 行数は未定なので、 Range("A1").Select Range(Selection,Selection.End(xlDown)).Select でＡ列のデータ最終行まで下がり、そこから９つ右の列までを 範囲指定するというのがよくわかりません。 自動記録で絶対参照と相対参照を切り替えてやってみたのですが、 どうしても Range(Selection, Selection.End(xlDown)).Select ActiveCell.Range("A1:J7").Select と常にＡ１からＪ７が指定になってしまいます。 バージョンは2003です。 つたない質問文で申し訳ありませんが、 どなたか宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル ＶＢＡ 範囲指定方法
エクセルＶＢＡ初心者です。 以下の範囲指定について教えてください。 一つの表のＫ列の一番下のセル（不定）を選択→Range("K65536").End(xlUp).Select その選択されたセルからＡ３（固定）まで範囲を選択したいのですが、不定セル：固定セル の範囲指定方法が分かりません。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセル VBA 選択範囲書込？
エクセルのVBAで Activesheet Range("A1:B2").Selectは Activesheet Cells(???????).Selectでは どのように書き込めば宜しいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excel セル範囲指定
Excel VBA で、オフセット先のセルと一つ右のセルとを範囲指定する記述方法を教えて下さい。よろしくお願いします。 Range("????????????????").Select
- ベストアンサー
- オフィス系ソフト
- VBA 範囲指定について
VBAでシートAの範囲A1：B200までをコピーして シートBの範囲A1：B200にコピペしたいのですが、 範囲のB200のみ変動する可能性があるので、その変動に対応出来るようにしたいです。 例） Worksheets("A").Activate PD = Worksheets("入院費用一覧").Range("A1:B〇〇〇").Value Windows("B").Activate Worksheets("B").Range("A1:B〇〇〇").Value = PD B〇〇〇の所に変動できる数値を関数でC1に行数指定して対応できないかと考えていますが、何かいい方法有りますでしょうか。 宜しくお願い致します。 ※VBAあまり詳しくはありません。
- ベストアンサー
- Excel（エクセル）
- Ｅｘｃｅｌのマクロで範囲指定したい
マクロで範囲指定したいのですがうまくできません。この表示はどこがおかしいのでしょうか？ Range(("a" & (GyoNO - 1)： Range（"b"&(GgyoNo-1)).Select
- 締切済み
- Excel（エクセル）
- VBAマクロ_セル範囲を行列番号で指定
エクセルマクロで、ある範囲を指定してコピーし、別の場所を指定してそこへ貼付たいのです。 個別に指定するなら、例えばこんな感じで Range("B18:C32").Select Selection.Copy Range("B67").Select ActiveSheet.Paste B18:C32 のように、セル番号で指定すれば出来ます。 このコピー範囲を、行列番号で指定したいのです。 「セル（i,j)～(k,l)までの範囲」というふうに、4つの変数で表現したいのです。 cells(i,j)を使えばできそうと思ったのですが、どうもうまくいきません。 良いやり方があれば教えてください。
- ベストアンサー
- その他MS Office製品
- エクセルVBA：範囲選択について
初歩的な質問ですが、よろしくお願いします。 Excel2000です。 グラフを描くための範囲選択をしたいのですが、うまくいきません。 状況は、 ・列Ａ、列Ｂにデータが入っている。（データの数はＡＢ同じで２行以上） ・開始点は一定。（ここでは、行１０と仮定します） ・終了点が変化する。（但し、終了点は常に一番下のデータ） これだけです。 一番下のデータを参照するので、 Range("A10 : Range("B10").End(xlDown)").Select Range("A10 : Range("B65536").End(xlUp)").Select Range("A10 : Cells(ActiveSheet.Rows.Count, 2).End(xlUp)").Select と書きましたが、全てダメでした。 直接書くのがダメなら変数を使おうと思い、 Dim StopCell as Range Set StopCell = Range("B65536").End(xlUp) Range("A10 : StopCell").Select と書きましたが、ダメでした。 このとき、変数StopCellには「セル」ではなく、「セルの値」が代入されているようです。 Valueと書いていないのに値が代入されていること、オブジェクト変数なのに数値が代入されていることが納得できません。 どこをどのように間違えているのでしょうか。 また、目的のマクロはどのようになるのでしょうか。 大村あつし著「かんたんプログラミングExcel2000VBA基礎編」および「同 コントロール・関数編」で勉強していますが解決しません。 ご教授ください。
- ベストアンサー
- Visual Basic
- Excel VBA 計算範囲の変更について教えてください。
こんばんは。とても困っています。 下記のような表で=A1&B1&C1の計算式を入れ、A1とB1を絶対参照にして$A$1&$B$1&C1としてD3までオートフィルをかけます。 そしてD4は =$A$4&$B$4&C4のように絶対参照しているセルを変更したいのです。たくさんありすぎて参照する範囲を変更するのにとても大変な思いをしています。VBAでどのようにすればよいのか教えてください。 |A B C D ------------------------------------- 1| 1T 11L A 1T11LA (=$A$1&$B$1&C1) 2| B 1T11LB (=$A$1&$B$1&C2) 3| C 1T11LC (=$A$1&$B$1&C3) 4| 2T 20L A 2T20LA (=$A$4&$B$4&C4) 5| B 2T20LB (=$A$4&$B$4&C5) 6| C 2T20LC (=$A$4&$B$4&C6) 7| 3T 31M A 3T31MA (=$A$7&$B$7&C7) 8| B 3T31MB (=$A$7&$B$7&C8) マクロで記録させたらところ下記のようになりました。 Sub 4行置きに参照範囲を変更する() Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=RC[-3]&RC[-2]&RC[-1]" Range("D1").Select ActiveCell.FormulaR1C1 = "=R1C1&R1C2&RC[-1]" Range("D1").Select Selection.AutoFill Destination:=Range("D1:D3"), Type:=xlFillDefault Range("D1:D3").Select Range("D4").Select ActiveCell.FormulaR1C1 = "=R4C1&R4C2&RC[-1]" Range("D4").Select Selection.AutoFill Destination:=Range("D4:D6"), Type:=xlFillDefault Range("D4:D6").Select Range("D7").Select ActiveCell.FormulaR1C1 = "=R7C1&R7C2&RC[-1]" Range("D7").Select Selection.AutoFill Destination:=Range("D7:D9"), Type:=xlFillDefault Range("D7:D9").Select End Sub ◎初心者なのでVBAにたくさんコメントを入れていただくと助かります。 宜しくお願い致します。
- ベストアンサー
- その他([技術者向] コンピューター)
- エクセルのＶＢＡで悩んでいます。
いつもありがとうございます。 エクセルのＶＢＡで悩んでいます。 セルの範囲指定をＶＢＡで行いたいのです。 ただし、引数に数値変数を使用する為、Cellsプロパティを使います。 すると、離れている範囲の範囲指定が出来ないのです。 例えば、Rangeプロパティだと、 Range("A5:E5,A9:E32").Select こうなるところを、 A9:E32 を変数に置き換えたくて、 Range("A5:E5", Cells(g, 1), Cells(h, 5)).Select と、するとエラーが出ます。 VBAの前文は次の通りです。 Private Sub CommandButton1_Click() a = Me.TextBox1.Value b = Me.TextBox2.Value Set c = Range("a:a").Find(what:=a, LookIn:=xlValues, lookat:=xlWhole) Set d = Range("a:a").Find(what:=b, LookIn:=xlValues, lookat:=xlWhole) 'MsgBox c + d e = c.Address 'MsgBox e f = d.Address 'MsgBox f g = Range(e).Row MsgBox g h = Range(f).Row MsgBox h Range(Cells(g, 1), Cells(h, 5)).Select End sub よろしくお願い致します。
- 締切済み
- Windows XP
お礼
ありがとうございました。無事できました。