続偏 エクセルを使って開くたびに証明書番号表示の件

質問

度々の投稿申し訳御座いません。
誤って締め切りしてしまったので質問できなくなってしまいました。
先ほど【monamucho】様からご教授頂いた表示の件、
Private Sub Workbook_Open()
With Worksheets(1).Range("A1")
.Value = Val(.Value) + 1
End With
End Sub

２）雛形のワークブックファイルのシート１のセルA1に数字の"0"を入力します。

３）雛形のワークブックファイルのシート１のセルB1に下記の計算式を入力します。

="W313【"&TEXT(A1,"000")&"】"

４）雛形のワークブックファイルを保存して閉じます。

５）雛形のワークブックファイルを再度開くと、セルB1の値が"W313【001】"に変わります。

６）雛形のワークブックファイルを閉じて再度開く度に連番で番号が振られていきます。
迄は、できたのですが、実際行うと余計に
1 W313001
↑この１が付いてしまいます。
この1は必要ではなく、単純に上記のW313001⇒W313002⇒W313003
というように連番を振っていきたいのですが、
またお手数をお掛けしますが、ご教授頂ければ幸いです。
宜しく御願い致します。

回答No.1

keithin · ベストアンサー

単純に「邪魔にならない箇所（セル）」にその１，２，３を符番するようマクロを修正する，あるいはＡ１のたとえばフォントの色を白くする・Ａ列を１行目を隠してしまうなど，あなたの実際のエクセルのレイアウト（ご相談で情報が提供されていません）に応じて，ご自分で適切に修正を加えていくのが適当です。

まぁ，そういう事込みでとにかく丸写し以外できないというお話なら

改めて
１．ひな形ブックを開く
２．ThisWorkbookシートを開く
３．さっき教わったマクロは綺麗に消去する
　　ついでにＡ１，Ｂ１セルも消してしまう
４．改めて次のマクロをコピー貼り付ける

private sub Workbook_Open()
　with worksheets(1)
　.range("A1") = "W313" & format(val(right(.range("A1"),3)) + 1, "000")
　end with
　thisworkbook.save
end sub

５．ブックを保存し，閉じて，開き直して使用する。

お礼

早速のご回答、有難う御座います。
早速試してみます。
その通り、丸写ししか出来なくすみません^^
ご説明頂いた領域も始めての内容でわからないことばかりです。
またご教授下さい。

補足

今行いましたが、その通りうまくいきました。
補足で教えていただきたいのですが、
private sub Workbook_Open()
　with worksheets(1)
　.range("A1") = "02" & format(val(right(.range("A1"),3)) + 1, "000")
　end with
　thisworkbook.save
end sub

で、02が表示されず2からの表示になってしまいます。
エクセルで何か設定はあるんでしょうか？
初歩的ですみません。

回答No.2

keithin

＞エクセルで何か設定はあるんでしょうか？

ご自分でも承知されている通り、それはマクロ云々よりずいぶん以前の、エクセルの基本的な使い方についての知識が足りてない状況です。
エクセルで普段の仕事をスムーズに進めるために、もうちょっと基礎的な部分について何を使っても構いませんから勉強を進めてください。

実際にあなたのエクセルで手を動かして勉強してくださいのその１：
任意のセルに、手で
02001
と記入する
→頭のゼロが消えてしまう事を確認してください。

勉強その２：
任意のセルについて、セルの書式設定の表示形式を「文字列」に変えてから、そのセルに
02002
を記入する
→頭のゼロは消えずに記入できること、それから数字を入れたのにセルには「左詰め」で記入されている事を確認する

勉強その３：
任意のセルについて、セルの書式設定の表示形式のユーザー定義を選び
00000
と設定してから、そのセルに
02003
を記入する
→頭のゼロは消えずに記入できること、それからセルには「右詰」で記入されることを確認する

勉強その４：
その３のセルに
100
とか
029999
を記入する
→頭のゼロは、表示形式で設定した桁数だけ有効なこと／しか有効ではない事を理解する。

ようやく本題：

＃その前に
ご相談で「以前こういうマクロを教わった」のを元に続きの質問をするときは、「教わったマクロをコピーして質問する」のは絶対にやめて、「いまあなたのエクセルで実際にあなたが動かしてみたそのマクロ」をあなたのエクセルからコピーして、情報提供するように必ずしてください。
あなたが勝手に間違えて手を入れた（けど関係ないだろうと勝手に判断して情報提供しなかった）部分が原因で、問題が起きている可能性がとても高いのですから。

マクロを
　.range("A1") = "'02" & format(val(right(.range("A1"),3)) + 1, "000")
に修正します。

勿論、上述で勉強してもらった各種方策を組み合わせる事でも出来ます。

お礼

お忙しい中、ご返信頂き有難う御座います。
おっしゃるとおり、使いこなす為の知識は少ないですね^^
こういうところで質問することがまだ慣れていないので、色々ご指導頂き非常に感謝しております。
有難う御座います。

まだ、ご教授いただいたことを早速試しながらエクセルも学んで行きたいと思います。

有難う御座います。