Excel VBA質問箱 IV

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

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


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

21572 / 76732

←次へ　｜　前へ→


	【60553】Re:シート別に同じ動作を

Ponta - 09/2/27(金) 21:53 -


	引用なし

	パスワード

▼Abebobo さん、ss さん：

アドバイス有難うございました。
説明が美味く表現できず、ご迷惑をおかけしたと思います。
でもイメージはそのような感じです。

お二人のアドバイスで、私なりに、したい事をコードにしました…
もっとスマートなコードがありましたら、よろしくお願いします。

Sub 開いているシートから()　　'シート単位のコード
With ActiveSheet
　Call AA
End With
End Sub

'リンク先が
　Sub AA()　　　　　　　　　　'共通のコード
　　　Dim myR As Range
　　　With ActiveSheet
　　　　　　Set myR = .Range("A2").CurrentRegion
　　　　　　 ':
　　　　　　 ':
　　　End With
　End Sub

よろしくお願いします。

2 hits

▼

【60541】シート別に同じ動作を Ponta 09/2/27(金) 7:36