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

よろしくお願いします。

0 hits

【60541】シート別に同じ動作を Ponta 09/2/27(金) 7:36 質問
【60544】Re:シート別に同じ動作を Abebobo 09/2/27(金) 9:30 発言
【60546】Re:シート別に同じ動作を ss 09/2/27(金) 10:28 回答
【60553】Re:シート別に同じ動作を Ponta 09/2/27(金) 21:53 質問
【60572】Re:シート別に同じ動作を つん 09/3/2(月) 17:52 回答

21572 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free