ID非公開

2022/5/19 23:12

22回答

Excel VBAで、「ワークシート1のセルA1」なら

Excel VBAで、「ワークシート1のセルA1」なら Set セル = Worksheets(1).Cells(1,1)というようにセルを変数に格納できますが、ループ処理で用いる「ワークシートiのセルA1」を Set セル = Worksheets(i).Cells(1,1)とすることはできませんよね。 コードの中に謎のCells(1,1)が何度も登場するのは見栄えも悪いですし、仕様変更にも弱いので何とかしたいのですが、上手い記述の仕方はありますか？

Excel | Visual Basic・37閲覧・xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0
1150467252

2022/5/20 0:02

Set セル = Worksheets(i).Cells(1,1) はできますよ。 ActiveWorkbook.Names.Add Name:="_jj", RefersToR1C1:="=Sheet1!R1C1" Range("_jj") = 1 こんな感じではいかがでしょう

ThanksImg質問者からのお礼コメント

なんとか解決することができました。 皆様ご回答ありがとうございました。

お礼日時：5/22 12:20

その他の回答（1件）

0
ささいさいさい

カテゴリマスター

2022/5/20 0:11

え？できるんじゃないですかね？ Set セル = Worksheets(i).Cells(1,1) セットが必要なオブジェクトじゃないので、エラーになるんじゃないですかね？ dim rangeObj as range Set rangeObj = Worksheets(i).Range(Cells(i,i).address) 単なる値ならセットいらないです。 dim CellValue as variant CellValue = Worksheets(i).Cells(1,1) ループで回すとこんな感じ Dim i As Long For i = 1 To Worksheets.count Dim rangeObj As range Set rangeObj = Worksheets(i).range(cells(i, i).address) Dim CellValue As Variant CellValue = Worksheets(i).cells(1, 1) Next