|
>この現在使用しているシートのみでなく、
>別シートを次々処理したく、
>汎用的にいつでも、使えるようにしたい
>のですが、そのようなことも可能でしょうか?
>後からの質問で申し訳ないです。
マクロの有るBookと転記されるBook("現在シート"が有るBook)を別にしたいならこんなのでも善いかな?
'コードの有る範囲を設定
With ThisWorkbook.Worksheets("現在シート")
Set rngKyes = Range(.Cells(2, "A"), _
.Cells(lngRowEnd, "A").End(xlUp))
End With
を
'コードの有る範囲を設定
With ActiveSheet
Set rngKyes = Range(.Cells(2, "A"), _
.Cells(lngRowEnd, "A").End(xlUp))
End With
として、実行する時は、先ず、マクロの有るBookを開き、
次に"現在シート"が有るBookを開きます
次に、"現在シート"をActiveにして、マクロを実行します
尚、
>皆さんが言っておられる通り、現在使用
>しているシートにて、マクロを記入すると
>正常に処理することができました。
>ありがとうございます。
と有りますが、コードを記述するのは、シートのコードモジュールではなくて
必ず、標準モジュールに記述して下さい
|
|