レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

勘定項目ごとに合計額を算出する。SumIf関数がやっていることをマクロで書くと？

garuruさんの投稿

(投稿ID: 3969)

初投稿となります。よろしくお願いします。問２で、下記の様なプログラムを書いてしましまた。一応やりたいことはできたのですが、「項目の分だけ変数を作ってelseifで処理する」という考えが真っ先に思いつき、しそ巻き無料の問題でも同じ構文でかいていました。

先生の正解に近づくにはロジカルシンキングの様なものが欠如しちるように思えるのですが、何かアドバイス頂けないでしょうか？

Sub enari()
Dim kek
Dim omi
Dim syu
Dim gre
Dim omihuku

Dim gyo

kek = 0
omi = 0
syu = 0
gre = 0
omihuku = 0

For gyo = 4 To 10
    If Range("I" & gyo).Value = "?????j??" Then
    kek = kek + Range("J" & gyo).Value
    
    ElseIf Range("I" & gyo).Value = "??????????" Then
    omihuku = omihuku + Range("J" & gyo).Value
    
    ElseIf Range("I" & gyo).Value = "?o?Y?j??" Then
    syu = syu + Range("J" & gyo).Value
    
    ElseIf Range("I" & gyo).Value = "???O" Then
    gre = gre + Range("J" & gyo).Value
    
    ElseIf Range("I" & gyo).Value = "????????" Then
    omi = omi + Range("J" & gyo).Value
    
    End If
Next

Range("D4").Value = kek
Range("D5").Value = syu
Range("D6").Value = Range("C6").Value
Range("D7").Value = gre
Range("D8").Value = omi
Range("D9").Value = omihuku

Range("E4").Value = Range("C4").Value + kek
Range("E5").Value = Range("C5").Value + syu
Range("E6").Value = Range("C6").Value
Range("E7").Value = Range("C7").Value + gre
Range("E8").Value = Range("C8").Value + omi
Range("E9").Value = Range("C9").Value + omihuku

End Sub

2018/06/23 10:56

小川慶一さんのコメント

(コメントID: 5520)

garuruさん:

「自分で考え抜いて、思いついた方法でとにかく書き上げられた」ということが、まずは、とてもすばらしいと思います。
そういうことをやりきれる力は、「ロジカルシンキング」とか、「ロジカルに表現しきる」ということの力そのものです。

ということなので、

>先生の正解に近づくにはロジカルシンキングの様なものが欠如しちるように思えるのですが、

「シンキング」の力は十分にあると思いますよ。
考え方の「パターンのストック」みたいなのがまだ少し足りないだけかな、と思います。

ということなので、演習には、パターンをしっかり学ぶということを意識して取り組んでください。
思いつかなかったやり方が出てきたとしても、「あ、これはこういうパターンなんだな」くらいに思って（^＿^ ）☆

演習ひととおりやってからこの問題を再度解き直せば、そのときには、僕がここで書いたことの意味がよりはっきり分かるかもしれません。

2018/06/23 22:01