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.（連番）を手入力していますが、それを
自動化したいのですが、


例えばH２に、No.０１０１から連番を作成し、
コピーするたびに自動的に連番･･･
０１０２、０１０３、０１０４･･･の数字をだして
いきたいのですが。

よろしくお願いします。
【17971】Re:連番の作成について
回答  IROC  - 04/9/11(土) 18:39 -
引用なし
パスワード
   >オリジナル（雛形）に文字・数字を入れて
>コピーして印刷仕上げをしていますが、
>現在No.（連番）を手入力していますが、それを
>自動化したいのですが、

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


>例えばH２に、No.０１０１から連番を作成し、
>コピーするたびに自動的に連番･･･
>０１０２、０１０３、０１０４･･･の数字をだして
>いきたいのですが。

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