ID非公開

2020/9/23 21:25

11回答

VBAで質問です。

VBAで質問です。 下記の「'ここを省略せずに書いたら?」 .Valueで省略されている部分は何ですか? また、Cells(i, ii).Value = .Valueの「.Value」の部分に 「別シート"sheet2"の同じセル番地の値」を入れたい場合はどのように表現したら良いですか? 教えてください。 ********************* For Each rng In Intersect( _ Range("A1:AD7").SpecialCells(_ xlCellTypeConstants), Range("1:1,3:3,5:5,7:7")) With rng If .Offset(1).Interior.Color = vbRed Then i = i + 1 If i >40 Then i = 20 ii = 16 End If Cells(i, ii).Value = .Value '←省略せずに書いたら? End If End With Next rng End Sub

Visual Basic10閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

1

こんにちは。 下記の「'ここを省略せずに書いたら?」 .Valueで省略されている部分は何ですか? rng です。 上に、withがありますよね、その部分です。 また、Cells(i, ii).Value = .Valueの「.Value」の部分に 別シート"sheet2"の同じセル番地の値」を入れたい場合はどのように表現したら良いですか? Cells(i, ii).Value = sheets("sheet2").cells( i , ii).Value ということです。

1人がナイス!しています

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

早速のお返事ありがとうございます!わかりやすいご説明ありがとうございました。理解が進みました♪

お礼日時:9/23 21:57