問題 topへ
- 掲示板にて質問があった質問です。
下表のように、数量ごとに単価が異なる「単価表」があります。
- 品名と数量から下図のように単価を求めたい・・・といったケースです。
- ここでは、品名を500種類、数量区分を各6種類のサンプルを作成したいと思います。
- 単価表のサンプル作成は手作業では大変なので、ここではVBAで適当に作成することとします。
品名はA001〜A500としました。
数量区分は "1-99" "100-199" "200-299" "300-499" "500-999" "1,000-1,500" の6種類としました。
単価は乱数で2000〜10000 の間でランダムに発生させました。
区分ごとの単価は 5% 刻みで安くなるように調整しました。- なお、テストでこのコードを実行するときには、ユーザー定義関数が再計算しないようにしてください。
処理が重くなり、Excelが停止する可能性があります。
(数量表シートに入力したユーザー定義関数を削除してから、実行するのが手っ取り早いです)
コードを強制終了するには[Ctrl]+[Break]を実行します。
Sub test1()
Dim i As Integer, j As Integer
Dim cn As Integer
Dim su(6) As String
Dim tanka As Double
'---数量区分
su(1) = "1-99"
su(2) = "100-199"
su(3) = "200-299"
su(4) = "300-499"
su(5) = "500-999"
su(6) = "1,000-1,500"
cn = 1
With Worksheets("単価表")
For i = 1 To 500
tanka = Int(Rnd() * (100 - 20 + 1) + 20) * 100
For j = 1 To 6
cn = cn + 1
'---品名の入力
.Cells(cn, 1) = "A" & Format(i, "000")
'---数量区分の入力
.Cells(cn, 2) = su(j)
'---単価の入力
.Cells(cn, 3) = tanka - Int(tanka * j * 5 / 100)
Next j
Next i
End With
End Sub - なお、テストでこのコードを実行するときには、ユーザー定義関数が再計算しないようにしてください。
- 作成した単価表の例
- 単価表のサンプル作成は手作業では大変なので、ここではVBAで適当に作成することとします。
- 数量表も10個ランダムに表示することにします。
- 品名と数量をランダムに10個発生させます。
Sub test2()
Dim i As Integer, j As Integer
Dim cn As Integer
Dim kazu As Double
With Worksheets("数量表")
cn = 2
For i = 1 To 10
cn = cn + 1
kazu = Int(Rnd() * (1500 - 10 + 1) + 10)
.Cells(cn, 3) = kazu
kazu = Int(Rnd() * (500 - 1 + 1) + 1)
.Cells(cn, 2) = "A" & Format(kazu, "000")
Next i
End With
End Sub - 作成した数量表の例
- 品名と数量をランダムに10個発生させます。
