回答受付が終了しました

1月24日(月) 17時までの課題が全く分からないので、 プログラミングが得意な方に助けてほしいです。課題内容はエクセルで

Visual Basic | プログラミング470閲覧xmlns="http://www.w3.org/2000/svg">500

回答(1件)

0

注意事項 ・単利、複利という概念はさっき調べた。計算方法ちがうよ。。。な場合もありえる。 ・課題では、各計算結果を「ワークシートの所定のセルに出力する」必要があるが、無視した。そちらで何とかしてください(テキトーピーポー)。 ・本コードは現状、1~50行目と101~150行目のセルを使用する。よって、51~100行目のセルはコード実施前に「高さ」を3ピクセルくらいにしておくとよい。 Sub tanri(ganpon As Single, riritu As Single, row As Integer, column As Integer) Dim g g = ganpon For i = row To row + 49 Cells(i, column) = g Cells(i, column + 1) = g * riritu / 100 Cells(i, column + 2) = Cells(i, 1) + Cells(i, 2) * i Next End Sub Sub hukuri(ganpon As Single, riritu As Single, row As Integer, column As Integer) Dim g g = ganpon For i = row To row + 49 Cells(i, column) = g Cells(i, column + 1) = g * riritu / 100 Cells(i, column + 2) = Cells(i, column) + Cells(i, column + 1) g = Cells(i, column + 2) Next End Sub Sub main() Dim ganpon As Single ganpon = InputBox("元本は?") For i = 1 To 5 Call tanri(ganpon, 0.2 * i, 1, 4 * i - 3) Call hukuri(ganpon, 0.2 * i, 101, 4 * i - 3) Next End Sub