中学生のためのExcel VBA

4-7 請求書長子(7)兄弟表示

JUGEMテーマ:Office VBA

 

.Offset(2, 0).Value = Worksheets("moto").Cells(g, "p").Value

  • 2019.07.06 Saturday
  • 21:47

中学生のためのExcel VBA

3-15 会計金額挿入(11)書式設定

JUGEMテーマ:Office VBA

 

3桁ごとにコンマを打つ書式設定
  Range(Cells(g, "z"), Cells(gyou, "ad")).NumberFormatLocal = "#,###"
    
 

  • 2019.07.05 Friday
  • 21:38

中学生のためのExcel VBA

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

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
        Cells(g, "aa").Value = Cells(g, "af").Value
        Cells(g, "ab").Value = Cells(g, "ag").Value
        Cells(g, "ac").Value = Cells(g, "ah").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 = ""
        Cells(g + 1, "ab").Value = Cells(g, "ag").Value + Cells(g + 1, "ag").Value
        Cells(g , "ab").Value = ""
        Cells(g + 1, "ac").Value = Cells(g, "ah").Value + Cells(g + 1, "ah").Value
        Cells(g , "ac").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 = ""
       Cells(g +2, "ab").Value = Cells(g , "ag").Value + _
       Cells(g + 1, "ag").Value + Cells(g + 2, "ag").Value
       Cells(g + 1, "ab").Value = ""
       Cells(g +2, "ac").Value = Cells(g , "ah").Value + _
       Cells(g + 1, "ah").Value + Cells(g + 2, "ah").Value
       Cells(g + 1, "ac").Value = ""
    End If
    Next g
Call 年組名前ソート

  • 2019.07.04 Thursday
  • 20:59

中学生のための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

中学生のための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

中学生のためのExcel VBA

3-15 会計金額挿入(7)3桁ごとにカンマ

JUGEMテーマ:Office VBA

 

右揃え
プロパティTextAlign →fmTextAlignRight

書式設定3桁ごとにカンマを入れる
Private Sub  gaku1_Change()
 gaku1.Text = Format( gaku1.Text, "#,##0")
End Sub

  • 2019.07.01 Monday
  • 21:35

中学生のためのExcel VBA

3-15 会計金額挿入(6)テキストボックス規定値

JUGEMテーマ:Office VBA

 

g = 5
r = 1
  With Worksheets("data")
       For r =1 to 3
    Controls("gaku" & r).Value = .Cells(g, "b")
        Controls("kyou" & r).Value = .Cells(g, "d")
    Controls("sono" & r).Value = .Cells(g, "e") 
       g = g + 1
    Next r
        ptz.Text = .Cells(5, "c")
  End With
 

  • 2019.06.30 Sunday
  • 18:53

中学生のためのExcel VBA

3-15 会計金額挿入(4)登録命令文

JUGEMテーマ:Office VBA

 

g = 4
 Do Until Cells(g, "i").Value = ""
 r = Cells(g, "f").Value
   Select Case r
        Case 1
           Cells(g, "ae").Value = gaku1.Text
     Cells(g, "ag").Value = kyou1.Text
     Cells(g, "ah").Value = sono1.Text
        Case 2
           Cells(g, "ae").Value = gaku2.Text
     Cells(g, "ag").Value = kyou2.Text
     Cells(g, "ah").Value = sono2.Text
        Case 3
            Cells(g, "ae").Value = gaku3.Text
      Cells(g, "ag").Value = kyou3.Text
      Cells(g, "ah").Value = sono3.Text
    End Select
    If Cells(g, "y").Value = 1 Then
      Cells(g, "af").Value = ptz.Text
    EndIf
  g = g + 1
 Loop
 

  • 2019.06.29 Saturday
  • 15:13

中学生のためのExcel VBA

3-15 会計金額挿入(4)登録命令文

JUGEMテーマ:Office VBA

g = 4
 Do Until Cells(g, "i").Value = ""
 r = Cells(g, "f").Value
   Select Case r
        Case 1
           Cells(g, "ae").Value = gaku1.Text
        Case 2
           Cells(g, "ae").Value = gaku2.Text
        Case 3
            Cells(g, "ae").Value = gaku3.Text
    End Select
  g = g + 1
 Loop
 

  • 2019.06.28 Friday
  • 21:28

中学生のためのExcel VBA

3-15 会計金額挿入(3)テキストボックス作成

JUGEMテーマ:Office VBA

g = 4
 Do Until Cells(g, "i").Value = ""
            If Cells(g, "f").Value = 1 Then
            Cells(g, "ae").Value = gaku1.Text
            End If
            g = g + 1
        Loop
  gaku1.Text = ""
 

  • 2019.06.27 Thursday
  • 21:06