Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65406 / 76732

←次へ　｜　前へ→


	【15901】Re:データ抽出について

Hirofumi - 04/7/11(日) 10:57 -


	引用なし

	パスワード

>この現在使用しているシートのみでなく、
>別シートを次々処理したく、
>汎用的にいつでも、使えるようにしたい
>のですが、そのようなことも可能でしょうか？
>後からの質問で申し訳ないです。

マクロの有る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にして、マクロを実行します

尚、
>皆さんが言っておられる通り、現在使用
>しているシートにて、マクロを記入すると
>正常に処理することができました。
>ありがとうございます。
と有りますが、コードを記述するのは、シートのコードモジュールではなくて
必ず、標準モジュールに記述して下さい

4 hits

▼

【15876】データ抽出について 初心者 04/7/9(金) 23:12