連続したシリアルを自動生成する方法

質問

連続したシリアルを自動生成する方法

VBA入門したばかりの初心者です。

業務で使用するのですが、お力を貸していただければ助かります。

　　A　　　　　B
1　コード　　　1111
2　数量　　　　　40
3　シリアル　 25250

毎回するのはB1:B3です。
シリアルは先頭のシリアル番号であり、数量分連番で作成しなければなりません。

最終的にはコードをタイトルとしたテキストファイルに
数量分のシリアルを出力したいのです。

ですが、初歩的な部分でシリアルの生成ができません。
一度"SHEET2"などにシリアルを生成するか、"SHEET1"の空きスペースに作成しても
構いません。（まだ構造がはっきりできていないのでモヤモヤしています）

使用環境：
winXP SP2
Excel2000（9.0）

不足情報があればご指摘くださいますよう、お願いいたします。

回答No.1

chuchuo · ベストアンサー

こんな感じですか
一例です。
Sub Macro1()

Dim CODENo As Integer
Dim Suuryou As Integer
Dim NowSN As Integer

CODENo = Sheets("Sheet1").Range("B1")
Suuryou = Sheets("Sheet1").Range("B2")
NowSN = Sheets("Sheet1").Range("B3")
Sheets("Sheet2").Select
For i = 0 To Suuryou - 1

Range("A1").Cells(i + 1) = NowSN + i

Next
Sheets("Sheet2").Activate

End Sub

お礼

早速のご回答ありがとうございます！

まだまだ初心者なので本当に助かりました。
すばらしい回答でした！

回答No.2

Hardking

一番お勧めするのは、シリアル番号のデータ管理を
Access等のＤＢで行い、業務入力操作は
今まで通りEXCEL VBAマクロを行う方法。

只、テキストファイルに保存すれば良いならば
１．コード番号単位にファイルを管理する。（ファイル名をコード番号にする）
２．保存データは、開始シリアル番号と終了シリアル番号の２項目

お礼

ありがとうございます。

規則にのっとりシリアルを作成するのですが、できればエクセルのみで
動かしたいと思いこのような質問をさせていただきました。

ありがとうございました。