|
おじゃまします。
>Thisworkbook.Activesheet.Range("B" & cnt).Select
エクセルから見たらアクティブシートは1つしかありませんから、このマクロが書いてあるブックのアクティブシートという表現は正しくありません。(他ブックも開いていた場合等も考えると..。)
つんさんの
>Thisworkbook.Worksheets("Sheet1").Range("B" & cnt).Select
も、場合によってはエラーになると思います。
突っ込んでごめんなさい。
お元気ですか?
多分、他ブックがアクティブ状態からでしょうから、順番にアクティブにして行かないとエラーになると思います。
ThisWorkbook.Activate
Worksheets("Sheet1").Select
Range("B" & cnt).Select
値の取得だったら
aa = Thisworkbook.Worksheets("Sheet1").Range("B" & cnt).value
書きこむんだったら
Thisworkbook.Worksheets("Sheet1").Range("B" & cnt).value = "あああ"
と、書けないば良いです。
全くでたらめな事書いてましたら、ごめんなさい。
|
|