|
▼もとあし さん
>マクロは多数の人が使う為、アドインにする予定となっており、
>ブックA自体にはマクロは入れません。
>ですが、ハチさんのおっしゃる、「どこかのセルに番号を入れておく」
>というのが初心者の私には一番簡単なのかな?という気がしています。
この内容だと全員がアクセスできるところにファイルを置く必要がありますので
逆に面倒だと思います。
他の方のレスを参考にされたほうが良いです。
>>With ThisWorkbook.Worksheets(1)
>> Do Until Dir(MyPath & "\" & MyBook & "_" & .Range("A1").Value & ".xls") = ""
>> .Range("A1").Value = .Range("A1").Value + 1
>> Loop
>
>ですが、私にはなぜループをさせているのかが、分かりません。(ごめんなさい。)
>フォルダ内に同一ファイルの重複がないようにしているのでしょうか?
ファイルを上書きせずに閉じるとか、マクロ以外でファイルが作られる、とか
イレギュラーもあるのかなぁ〜と思って、「おまじない」のつもりでLoopしてみました。
+1するだけで良いはずですので、もとあしさんの認識であっています^^
|
|