- 799 名前：デフォルトの名無しさん mailto:sage [2008/08/13(水) 10:30:48 ]
- Ａというシートからユーザーフォームのテキストボックス（１０個ぐらいある）
に入力された内容に従ってデータを抽出して
既存のＢシートに貼り付けるような比較的長いコードを作りました。
最終的には、もしユーザーフォームの
「新規シートを作成して貼り付け」という
チェックボックスにチェックが入っていた場合は
Ｃシートを新たに作成し、そこにデータを貼り付け
さらにＤシート・・Ｅシートとシートを増やせるようにしたいと
思っています。
その場合は
現在作ってある長いコードを使って
if checkbox1 = true then
worksheets.add
「新しいシートに貼り付けてね」という長いコード
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
else 「シートＢに貼り付けてね」という長いコード
end if
という風に、指定するシートを変えるだけで
ほとんど同じコードを2回記述するしか方法はないでしょうか？？
もっと完結にできる方法があれば教えてください。
モジュールがやたら長くなって見にくくなってしまうのを回避したいです。
|
 |
