Calender

S M T W T F S
 123456
78910111213
14151617181920
21222324252627
28293031   
<< July 2019 >>

Categories

Archives

Recent Entries

中学生のためのExcel VBA

3-15 会計金額挿入(9)長子用命令文

JUGEMテーマ:Office VBA

 

動画集:http://okmrt.mods.jp/1-3/
ブログ(中学生のためのVBA):http://nyan.okmrt.work/

長子の金額に兄弟の金額を足す命令文
学年会費

    Call 電話ソート
    Call hani
    g= 4
    Range(Cells(g, "z"), Cells(gyou, "ad")).Value = ""
    '兄弟記録1
    For g = 4 To gyou
        If Cells(g, "y").Value = 1 Then
        Cells(g, "z").Value = Cells(g, "ae").Value
        End If
    Next g
    '兄弟記録2
    For g = 4 To gyou
        If Cells(g, "o").Value = Cells(g + 1, "o").Value Then
        Cells(g + 1, "z").Value = Cells(g, "ae").Value + Cells(g + 1, "ae").Value
        Cells(g , "z").Value = ""
    End If
    Next g
   '兄弟3
   For g = 4 To gyou
      If Cells(g, "o").Value = Cells(g + 2, "o").Value Then
       Cells(g +2, "z").Value = Cells(g , "ae").Value + _
       Cells(g + 1, "ae").Value + Cells(g + 2, "ae").Value
       Cells(g + 1, "z").Value = ""
    End If
    Next g
Call 年組名前ソート

  • 2019.07.03 Wednesday
  • 17:25

Comment
Send Comment