Excel VBA質問箱 IV

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

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


11119 / 13644 ツリー ←次へ | 前へ→

【17961】連番の作成について yn61 04/9/11(土) 8:42 質問[未読]
【17971】Re:連番の作成について IROC 04/9/11(土) 18:39 回答[未読]
【17999】連番の作成について yn61 04/9/12(日) 15:21 お礼[未読]

【17961】連番の作成について
質問  yn61  - 04/9/11(土) 8:42 -

引用なし
パスワード
   VBAで連番を付けたいのですが、どのようにコードを書けば
良いのでしょうか。
言わば領収書のNo.ようなものです。

オリジナル(雛形)に文字・数字を入れて
コピーして印刷仕上げをしていますが、
現在No.(連番)を手入力していますが、それを
自動化したいのですが、


例えばH2に、No.0101から連番を作成し、
コピーするたびに自動的に連番・・・
0102、0103、0104・・・の数字をだして
いきたいのですが。

よろしくお願いします。

【17971】Re:連番の作成について
回答  IROC  - 04/9/11(土) 18:39 -

引用なし
パスワード
   >オリジナル(雛形)に文字・数字を入れて
>コピーして印刷仕上げをしていますが、
>現在No.(連番)を手入力していますが、それを
>自動化したいのですが、

これだけでは詳しく分からないのですが、
マクロの記録でできませんか?


>例えばH2に、No.0101から連番を作成し、
>コピーするたびに自動的に連番・・・
>0102、0103、0104・・・の数字をだして
>いきたいのですが。

Worksheets("Sheet1").Range("H2").Value = Worksheets("Sheet1").Range("H2").Value + 1

【17999】連番の作成について
お礼  yn61  - 04/9/12(日) 15:21 -

引用なし
パスワード
   IROC さん

早速ご回答ありがとう御座いました。
早速書類の整理に使わせていただきます。

今後ともよろしくお願いいたします。

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