ベストアンサー

Range("A1:A100")をセルから

2011/01/11 22:55

Range("A1:A100")をセルから読み取りたいと考えております。 Win7　Excel2007を使っております。各セル B1=A B2=1 B3=A B4=100 説明が上手くできずすみません宜しくお願い致します。

y_r_358
お礼率78% (18/23)

その他([技術者向] コンピューター)
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

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

ベストアンサー

okormazd
ベストアンサー率50% (1224/2412)

2011/01/11 23:21 回答No.1

row1 = Range("B2") col1 = Range("B1") row2 = Range("B4") col2 = Range("B3") Range(col1 & row1 & ":" & col2 & row2).Select とか。

質問者

お礼 2011/01/12 00:32

>>Range(col1 & row1 & ":" & col2 & row2). のところがわからず困っておりました。解決できました。ありがとうございます。

関連するQ&A

Range("A" & x) + Range("A" & x+1) +

Range("A" & x) + Range("A" & x+1) + Range("A" & x+2) + ・・・　+ Range("A" & x+n) x:変数（基準点） n:定数（Ａ列のセルをいくつ足し併せるか、を指定。）上記プログラムをループ的に行うには、どういう書き方をすれば良いでしょうか？ Do ～　Loop 文　などを使うのでしょうか。お詳しい方、教えて下さい。必ずお返事致します。
VBAで、セル（Range）のオブジェクトが取得できない

セルの情報を取得したいのですが、何故か以下のように書くと上手い具合に取得できません（A、B、Cは数値の変数）。 ------ Dim Rng As Range 'セル範囲を格納 Set Rng = Worksheets(1).Range(Cells(A, B), Cells(A, C)) ------ 以下のようにしてやると、何とか取得できます。 Worksheets(lngASNo + 1).Select Set Rng = Range(Cells(A, B), Cells(A, C)) どこが悪いのでしょうか？もし、判る方がいらっしゃいましたら、よろしくお願いいたします。
Range("Sheet2!A1")が何故通る？

Excel VBAでRange関数を使っていて不思議に思う事があったので、少し質問させて下さい。バージョンは、Office Standard 2010のVer14(32bit)です。 [Range]は、実際には[ActiveSheet.Range]の省略という認識でした。そして、例えばSheet1がアクティブな状態で[ActiveSheet.Range("Sheet2!A1")]とすればエラーがでます。 [Range(Worksheets("Sheet2").Range("A1"))]でもエラーになります。ところがこれが、[Range("Sheet2!A1")]だけにすると、問題なくSheet2のA1セルが取得できるのです。セルに名前を付けた場合も、同じようにアクティブでないシートのセルが取得できました。場合によって、Rangeの親オブジェクトがActiveSheetであったりなかったりするようなのですが、これはどのような仕様なのでしょうか？ Microsoft Docsをざっと見たのですが、載ってなさそうだったので。以下、自分がチェックに使ったコードです。 Sheet2!A1セルにShTwoという名前を付けています。 Sub test() 　Debug.Print Range("A1").Address 　Debug.Print Range("A1").Parent.Name '　Debug.Print ActiveSheet.Range("Sheet2!A1").Address '1004:アプリケーション定義またはオブジェクト定義のエラーです　Debug.Print Range("Sheet2!A1").Address 　Debug.Print Range("Sheet2!A1").Parent.Name '　Debug.Print ActiveSheet.Range("ShTwo").Address'1004:アプリケーション定義またはオブジェクト定義のエラーです　Debug.Print Range("ShTwo").Address 　Debug.Print Range("ShTwo").Parent.Name '　Debug.Print ActiveSheet.Range(Worksheets("Sheet2").Range("A1")).Address '1004:アプリケーション定義またはオブジェクト定義のエラーです '　Debug.Print Range(Worksheets("Sheet2").Range("A1")).Address ''Range'メソッドは失敗しました:'_Global'オブジェクト End Sub
もしセルが"#N/A"なら～をする・・・には？

Excel2002VBAで、「指定セルにエラーの"#N/A"が出ている場合～の処理をする」という場合、 If range("a1")="#N/A" then としたら、型が一致しません　エラー１３と出ました。どのようにすればうまくいくのでしょうか？
Range("A1:A10")について

初歩的な質問です。セルA1～A10までヌルを判断する場合 IF　A1 <> "" And　A2　<> "" And A3 <> "" And A3 <> "" And A4 <> "" And A5 <> "" ・・・・・・Then と記載になりますがこれをもっと簡素化するコードはないでしょうか Range("A1:A10")を使ってできないでしょうかよろしくお願いします。
EXCEL2002でRange.Copyでエラー

お世話になります。 OSがWINDOWS　XPの環境で EXCEL2002で既存の入力用のシートAとマクロで追加して削除するワーク用に２つのシートB,Cがあるのですが、ワーク用のシートに下記コマンドを実行するとエラーなります。EXCEL２００３では問題なく動くのですが、EXCEL2002しか入っていない環境もあるのでご教授して頂ければ助かります。 Sheets("A").Range("d10:d60").Copy Sheets("B").Range("a1) Sheets("A").Range("h10:h60").Copy Sheets("B").Range("51") Sheets("A").Range("e10:e60").Copy Sheets("C").Range("a1) Sheets("A").Range("i10:i60").Copy Sheets("C").Range("51") 以上　宜しくお願いします。
セルA2にB3の最終セルの日付を表示したい

セルA2に、Range("B3").End(xlDown).value の最終セルにある日付を表示したいです。超初心者につき申しわけありません。よろしくお願いします。
指定するセルのRange書き込み変更

Sub 移動と削除() Range("A1").Select Selection.Cut Destination:=Range("E1") Range("A1").Select Selection.Delete Shift:=xlUp End Sub 自動マクロで作った上記の記録があります。これをA1固定ではなくA列の指定するセルにし　E1もA列で指定したセルと同じ行のE列にしたいのですが書き換える方法をおしえてください。
マクロ　　関数式の中にRangeでセルを参照するには

Range("B2").Formula = "=COUNTIF($A$2:$A$100,A2)" A行のセル（１列はタイトルなのでA2以降）に入力させているものが A行自身の中に何個あるかを数えて B２以降に表示させたいのですが A列の最終行を取得して（下の式で） ↑の式の＄A$100の部分にどのように記述したらよろしいでしょうか？もしくは　考える方向がおかしい、というような御指摘もありましたらお願いします（B列には現時点では式のまま表示しても　問題ありません。　B列の式を下方向へコピーする方法は　以前こちらで御教授していただきました） Dim mRng As Range Set mRng = Range("A2", Range("A65536").End(xlUp))
セル範囲の左上のセルの取得方法

エクセル2010のVBAで関数を自作しているのですが Test(A as range, B as range)という関数で Aはセル1個、Bはセル範囲を選択して、Aは必ずBの左上のセルになるので、 Test(B as range)の様に変数を減らしたいです。ただ、関数内でAを使用するので、Bのセル範囲の左上の値を取得する必要があります。 Bのセル範囲の左上の取得方法が分かりません。
Excel-VBA rangeプロパティの使い方について

Excel-VBA rangeプロパティの使い方について VBA初心者です。いろいろ調べたのですが、分からないので教えてください。 ThisWorkbookのSheet1のA1セルに、aというファイルのaというシートの特定のセルの値をコピーしたいです。コピーする値のセルは、ThisWorkbookで入力した値を基に変数で記述したいです。例えば、ThisWorkbookのSheet1のC2セルに「D1」と記載していたとして、その値を変数として設定して、最終的にaというファイルのaというシートの「D1」セルをThisWorkbookのA1セルに貼り付けるのが目的です。この場合の、下記のhensuu = の設定方法について、ご教授願います。 hensuu = ThisWorkbook.Sheets("Sheet1").Range(“A1”)= Workbooks(a).Sheets(a).Range(hensuu)
rangeの意味

xをワークシートオブジェクトとすると、 With x.range("A1")のrange("A1")とは何を意味しているんでしょうか？セルA1を参照していますよということでしょうか？
Rangeを決まったセルではなく、変数で「セルの結合が出来るプロシージャ」は？

Rangeが定まらず、その都度指定した箇所から 2行下がって右に3列とセルの結合を繰り返す作業そしているのでこれをマクロにしたいのですがこの”Rangeが定まらず、その都度指定した箇所から”のプロシージャが分かりません。また、「セルの結合」でけでなく ”Rangeが定まらず、指定した箇所から”の「セルの移動」のプロシージャもわからないので教えてください！！
RangeプロパティとCellsプロパティ

お世話になります。現在、VB.NET2003からExcel2003を操作するプログラムを作成しているのですが、基本的な点が一つ、わかりませんので、教えていただけないでしょうか？ Range("C5")は、Cells(5,3) Range("B1:D5")は、Range(Cells(1,2), Cells(5,4))、と表すことが出来ますが、 Range("A1:E1,A4:E7")はCellsプロパティではどのように指定すればよろしいのでしょうか？以上、宜しくお願いいたします。
【EXCEL VBA】定数で与えられたセルを使いセル範囲を選択する方法

【EXCEL VBA】定数で与えられたセルを使いセル範囲を選択する方法 VBA初心者です。よろしくお願いします。実行したい処理は決めたのですが、Excelのレイアウトが未定です。そこで、レイアウト変更を考慮し、処理対象セルを定数で与えています。例えば、 Range("B2:B8").Select は、 Const IchI As String = "B2" Range(Range(IchI), Range(IchI).Offset(6, 0)).Select ・・・(1) としています。（これ自体おかしいのかもしれません。。。）しかし複数のセル範囲例えば、 Range("B2:B8,F2:F8").Select の場合、どうしたらいいのかわかりません。 (1)自体おかしいのかもしれません。　　良い方法があれば教えてください。よろしくお願いします。
エクセルの範囲セルの範囲セルについて

ExcelVBAで、ある範囲のセルを基準として、その範囲の中の範囲を表したいのですが、どうすればよいのでしょうか？以下のセルで、A1:D2の範囲を使ってA2からD2の範囲を表す方法です。 A1 B1 C1 D1 A2 B2 C2 D2 A2のセルはRange("A1:D2").Cells(2,1)で表すように Range("A2:D2")でなく、Range("A1:D2")を使ってA2からD2の範囲を表す方法が知りたいです。
Rangeオブジェクトを一時的に作成することは出来ますか。

こんにちは。いままでは特定のシートにタイトルや数値、書式を入れて、そのRangeオブジェクトを参照してVBA作成を行っていました。そこで今度はRangeオブジェクトを新たに作成して、特定セルのセルオブジェクトを、一時的にそこに格納して利用したら便利かと思いまして、色々と方法を考えましたが出来ませんでした。もちろん個々のセル情報を一時的に保管することは出来ると思いますが、このような使い方が出来れば、今後のVBA作成作業で幅が出来ると思いまして、ご質問をさせて頂きます。例； new X名 Rangeオブジェクト作成 X名 = Range("A1") Cells.Clear Range("B1").Formula=X名.Formula Range("B1").Interior.Color=X名.Interior.Color A1のオブジェクトを一時的に保管して、シートクリア後にその情報を利用してB1へ戻す。こんな感じの使い方です。宜しくお願い致します。
セルに入ってる数式を他のセルへコピーしたい

こちらでよろしいでしょうか？エクセルのＶＢでセルに入ってる数式を他のセルにコピーしたいのです。 Range("c3:c5") = Range("c2") c2にはb1*a1の式が入ってるのですが、c3:c5にはb1*a1の答えが入ってしまします。答えではなく式を入れたいのですが・・・
EXCEL2003で各セルに数値が入っています。（例えばA1～Axまで

EXCEL2003で各セルに数値が入っています。（例えばA1～Axまで） A1～Axまでのセルの数値のうち、大きい方から5％の数値をB1セルの表示させたいのですが、どのような数式を入れるといいでしょうか？ちなみに、AXはいろいろ数が変化します。
セルＡ１　と　セル　Ａ４　の数値を直線にするには？

カテゴリーを間違えてしまいました。こちらで再質問させて下さい。セルＡ１＝10 セルＡ４＝40 という数値が入力されている場合、セルＡ２とセルＡ３それぞれにＥＸＣＥＬの関数を入力し、Ａ１～Ａ４の区間を直線にするにはどのような関数があるのでしょうか？今回の様な数値の場合、Ａ１=10 Ａ２=20 Ａ３=30 Ａ４=40 と成りますがＥＸＣＥＬ関数を使用する場合、Ａ２とＡ３にはどの様な数式が入るのでしょうか？

Range("A1:A100")をセルから

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

お礼 2011/01/12 00:32

関連するQ&A

Range("A" & x) + Range("A" & x+1) +

VBAで、セル（Range）のオブジェクトが取得できない

Range("Sheet2!A1")が何故通る？

もしセルが"#N/A"なら～をする・・・には？

Range("A1:A10")について

EXCEL2002でRange.Copyでエラー

セルA2にB3の最終セルの日付を表示したい

指定するセルのRange書き込み変更

マクロ　　関数式の中にRangeでセルを参照するには

セル範囲の左上のセルの取得方法

Excel-VBA rangeプロパティの使い方について

rangeの意味

Rangeを決まったセルではなく、変数で「セルの結合が出来るプロシージャ」は？

RangeプロパティとCellsプロパティ

【EXCEL VBA】定数で与えられたセルを使いセル範囲を選択する方法

エクセルの範囲セルの範囲セルについて

Rangeオブジェクトを一時的に作成することは出来ますか。

セルに入ってる数式を他のセルへコピーしたい

EXCEL2003で各セルに数値が入っています。（例えばA1～Axまで

セルＡ１　と　セル　Ａ４　の数値を直線にするには？

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

Range("A1:A100")をセルから

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

お礼 2011/01/12 00:32

関連するQ&A

Range("A" & x) + Range("A" & x+1) +

VBAで、セル（Range）のオブジェクトが取得できない

Range("Sheet2!A1")が何故通る？

もしセルが"#N/A"なら～をする・・・には？

Range("A1:A10")について

EXCEL2002でRange.Copyでエラー

セルA2にB3の最終セルの日付を表示したい

指定するセルのRange書き込み変更

マクロ 関数式の中にRangeでセルを参照するには

セル範囲の左上のセルの取得方法

Excel-VBA rangeプロパティの使い方について

rangeの意味

Rangeを決まったセルではなく、変数で「セルの結合が出来るプロシージャ」は？

RangeプロパティとCellsプロパティ

【EXCEL VBA】定数で与えられたセルを使いセル範囲を選択する方法

エクセルの範囲セルの範囲セルについて

Rangeオブジェクトを一時的に作成することは出来ますか。

セルに入ってる数式を他のセルへコピーしたい

EXCEL2003で各セルに数値が入っています。（例えばA1～Axまで

セルＡ１ と セル Ａ４ の数値を直線にするには？

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

マクロ　　関数式の中にRangeでセルを参照するには

セルＡ１　と　セル　Ａ４　の数値を直線にするには？

カテゴリ
一覧

専門家に質問してみよう
専門家登録