|
??? |
|
エクセルのマクロ
Option Explicit Sub Macro1() Dim a(2200) As Integer Dim n As Integer, price As Integer For n = 1 To 2000 : a(n) = 0 : Next n For n = 1 To 2000 If n <= 1000 Then price = Int(n * 0.98) Else price = Int(1000 * 0.98) + Int((n - 1000) * 1.08) End If a(price) = 1 Next n Cells(1, 1).Value = 0 For n = 1 To 2000 If a(n) = 0 Then Cells(1, 1).Value = Cells(1, 1).Value + 1 Cells(Cells(1, 1).Value, 2).Value = n End If Next n End Sub |
|
4月3日（木） 8:12:04
41624 |