|
こんばんは。
>
>>サンプル2の方は
>>With Worksheets("sheet1").Range("a2", .Cells(.Rows.Count, "a").End(xlUp)).Offset(, 3)
>>で、エラーが出てうまく行きませんでした。
>>このコード事態が私にはわからないので、よかったら解説していただけると
>
>その前に、どこのコードでどのようなエラーになったのか、説明できませんか?
>エラーメッセージとエラーになっている箇所くらいはわかるかと思いますが・・・
>
>ちなみにichinoseさんご提示のコードは、以下のような感じにする必要が
>あるかと思います。
>今回のエラーの原因は、Withの使い方です。
あらっ、本当だ!!
ご指摘ありがとうございます。
ぼけてるなあ・・・。
>
>Sub testtest_2()
>' With Worksheets("sheet1").Range("a2", .Cells(.Rows.Count, "a").End(xlUp)).Offset(, 3)
> With Worksheets("Sheet1")
> With .Range("A2", .Cells(.Rows.Count, "A").End(xlUp)).Offset(, 3)
> If .Row > 1 Then
> .Value = 2
> End If
> End With
> End With
>End Sub
>
後は、よろしくお願いします。
|
|