
セルの情報を取得したいのですが、何故か以下のように書くと上手い具合に取得できません(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))
どこが悪いのでしょうか?
もし、判る方がいらっしゃいましたら、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんばんは。
これをコンテナといいますが、
>Dim Rng As Range 'セル範囲を格納
>Set Rng = Worksheets(1).Range(Cells(A, B), Cells(A, C))
Worksheets(1)+Rangeはつながっていても、肝心な、Cells は、どこにもつながっていませんので、当然、ActiveSheet を指しています。そうすると、エラーを吐きます。
コンテナスタイルは、
With Worksheets(1)
Set Rng = .Range(.Cells(A, B), .Cells(A, C))
End With
または、
Set Rng = Worksheets(1).Range(Worksheets(1).Cells(A, B), Worksheets(1).Cells(A, C))
という書き方になります。
>Worksheets(lngASNo + 1).Select
>Set Rng = Range(Cells(A, B), Cells(A, C))
これは、一旦、シートをSelect しているので、Rangeも Cellsも、一見、親のワークシートと整合性が取れているように見えるので、エラーは吐きません。
ただし、このように、親のワークシートと、Rangeオブジェクトが、直接結ばれていない場合は、必ず、"標準モジュール"に書かないと、シートをSelectしても、 Cells 側の移動が効かないはずです。
'あまり、このようなスタイルはロスが多くて賛成できないマクロの書き方です。
'/標準モジュール/
Sub TestLoop()
Dim lngASNo As Long '本来はInteger
Dim Rng As Range
Const A As Integer = 1
Const B As Integer = 2
Const C As Integer = 5
For lngASNo = 1 To Worksheets.Count - 1
Worksheets(lngASNo + 1).Select
Set Rng = Range(Cells(A, B), Cells(A, C))
MsgBox Rng.Address & vbCrLf & Rng.Parent.Name
Next lngASNo
End Sub
**************************
'上記と内容は違いますが、基本的に、ループでは、Set Rng で、領域を変数に入れないほうがよいです。
'例:
Sub TestSample()
Dim i As Integer
Const A As Integer = 1
Const B As Integer = 1
Const C As Integer = 5
For i = 1 To Worksheets.Count - 1
With Worksheets(i + 1)
.Range(.Cells(A, B), .Cells(A, C)).FormulaLocal = "=COLUMN()"
End With
Next i
End Sub
'貼り付ければ分かりますが、Cellsの前に「.(コンマ)」が入っています。
なるほど、そういう繋がりになっているのですか。なかなかVBAはシートの繋がりとか判りづらくて苦労します。
>Worksheets(lngASNo + 1).Select
>Set Rng = Range(Cells(A, B), Cells(A, C))
これは標準モジュールに書いてたので、エラーが出なかったのですね。なるほど。
詳細な解答いただきまして、有り難うございます。助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) findメソッドの変数について 6 2023/06/23 08:01
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
このQ&Aを見た人はこんなQ&Aも見ています
-
それもChatGPT!?と驚いた使用方法を教えてください
仕事やプライベートでも利用が浸透してきたChatGPTですが、こんなときに使うの!!?とびっくりしたり、これは画期的な有効活用だ!とうなった事例があれば教えてください!
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
あるセルの値を認識しないのですが、何が悪いのでしょうか?
Excel(エクセル)
-
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
-
4
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
VBAで文字列を数値に変換したい
Excel(エクセル)
-
7
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
8
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
9
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
エクセル・VBA CheckBoxのオブジェクト名に変数を使うことは可能でしょうか?
Excel(エクセル)
-
12
エクセルVBA 変数への代入がうまくできない
Visual Basic(VBA)
-
13
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
14
エクセル マクロ名にブック名が付いた場合の修正方法
Excel(エクセル)
-
15
全ての変数を一気にリセットする方法はありますか?
PowerPoint(パワーポイント)
-
16
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
17
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
18
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
19
VBAのfor...next構文で i = A to Z としたい。
PowerPoint(パワーポイント)
-
20
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
別シートのセルを絶対参照にする
-
エクセルで条件に一致したセル...
-
Excelで複数シートの選択セルを...
-
日付が未入力の際はゼロか、空...
-
Excelシートの保護時にデータの...
-
Rangeメソッドは失敗しました。...
-
複数シートの同じセル内容を1シ...
-
エクセルで指定のセルのみ完全...
-
マクロ 新しいシートにデータ...
-
エクセルで1月0日と表示される!!
-
EXCELのハイパーリンクのセルを...
-
エクセルで、加筆修正したセル...
-
エクセルのセルに、マウスで選...
-
エクセルで20万行あるシート...
-
エクセルで特定の文字を打つと...
-
VBAで、セル(Range)のオブジ...
-
シート参照で変数を使いたい(EX...
-
エクセル ハイパーリンクで画像...
-
Excelでスクロールすると文字が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
Excelで複数シートの選択セルを...
-
エクセルで条件に一致したセル...
-
別シートのセルを絶対参照にする
-
日付が未入力の際はゼロか、空...
-
Excelシートの保護時にデータの...
-
エクセルで1月0日と表示される!!
-
Rangeメソッドは失敗しました。...
-
ExcelでTODAY関数を更新させな...
-
エクセルで、加筆修正したセル...
-
複数シートの同じセル内容を1シ...
-
エクセルで指定のセルのみ完全...
-
エクセルで複写のように自動入...
-
Excelでスクロールすると文字が...
-
シート参照で変数を使いたい(EX...
-
マクロ 新しいシートにデータ...
-
Excelのファイル容量が減らない...
-
エクセルで20万行あるシート...
-
エクセルのルビがついたセルを...
-
エクセルの文字
おすすめ情報