文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。

問題

図１のようにA列に金額がランダムに入力されている。支払う時に必要な紙幣または硬貨の枚数を、セルB2以降に求めようとしている（図２）。次のコードを完成させなさい。ただし、セルA2から処理をはじめて空白になったら終了する。また、2000円札は考慮しないものとする。

Sub moshi()
   kinshu = Array(10000, 5000, 1000, 500, 100, 50, 10, 5, 1)
   kinshu_max = UBound(kinshu)

   Do While Cells(i, 1) <> ""


   Loop
End Sub

＜図１＞

＜図２：完成イメージ＞

わえなび式 正解例

（このページの下にあります）

目標回答時間

プロ2分以内、アマチュア10分以内に処理ができたら合格

この問題の出題範囲

「速読VBA単語」Program3-9まで

ご案内

ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。

正解例

Sub moshi()
   kinshu = Array(10000, 5000, 1000, 500, 100, 50, 10, 5, 1)
   kinshu_max = UBound(kinshu)
   i = 2
   Do While Cells(i, 1) <> ""
       shiharai = Cells(i, 1)
       For j = 0 To kinshu_max
           Cells(i, j + 2) = shiharai ￥ kinshu(j)
           shiharai = shiharai Mod kinshu(j)
       Next
       i = i + 1
   Loop
End Sub

バックナンバー