Calender

S M T W T F S
    123
45678910
11121314151617
18192021222324
25262728293031
<< August 2019 >>

Categories

Archives

Recent Entries

中学生のためのExcel VBA

3-15 会計金額挿入(8)長子用ボタン

JUGEMテーマ:Office VBA

 

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

    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.02 Tuesday
  • 16:40

Comment
Send Comment