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

中学生のためのExcel VBA

4-7 請求書長子(6)学年組名前でソート

JUGEMテーマ:Office VBA

 

印刷設定と基表を長子でソートをしてあるので、学年組名前でソートをして基に戻しておく。 
'' 印刷範囲設定解除
PageSetup.PrintArea = ""
' 印刷範囲
gyou = Cells(Rows.Count, 2).End(xlUp).Row
PageSetup.PrintArea = Range(Cells(21, "A"), Cells(gyou, "I")).Address
Call 年組名前ソート

年組名前ソート
Worksheets("moto").Range("i3").Sort Key1:=Worksheets("moto").Range("f3"), Order1:=xlAscending, _
Key2:=Worksheets("moto").Range("g3"), Order2:=xlAscending, _
key3:=Worksheets("moto").Range("j3"), order3:=xlAscending, _
Header:=xlYes
 

  • 2019.06.23 Sunday
  • 20:51

中学生のためのExcel VBA

4-7 請求書長子(5)偶数番目命令文

JUGEMテーマ:Office VBA

 

' 変数の宣言gu:表の初めの行
Dim gu As Integer
' 行削除
Range("21:100").Delete
Range("c22").Select
g = 4
gu = 21
r = 2
 Do Until Worksheets("moto").Cells(g, "i").Value = ""
           With ActiveCell
            If Worksheets("moto").Cells(g, "y").Value = 1 _
            And  Worksheets("moto").Cells(g, "f").Value = _
            Cells(2, "d") And _
            Worksheets("moto").Cells(g, "g").Value = _
            Cells(2, "f") Then
' 表のコピー
    Range(Cells(4, r), Cells(18, r+2)).Copy
    Cells(gu, r).PasteSpecial
    Application.CutCopyMode = False
' 表に値を挿入
            .Value = Worksheets("moto").Cells(g, "q").Value + _
                  Worksheets("moto").Cells(g, "l").Value
            .Offset(1, 0).Value = CStr(Worksheets("moto").Cells(g, "f").Value) + "-"+ _
                            CStr(Worksheets("moto").Cells(g, "g").Value) + _
                            CStr(Worksheets("moto").Cells(g, "r").Value)
            .Offset(6, 0).Value = Worksheets("moto").Cells(g, "z").Value
            .Offset(7, 0).Value = Worksheets("moto").Cells(g, "aa").Value
            .Offset(8, 0).Value = Worksheets("moto").Cells(g, "ab").Value
            .Offset(9, 0).Value = Worksheets("moto").Cells(g, "ac").Value
            .Offset(17, 0).Select
' 次に表を作成するセル行を指定
            gu = gu+ 17
            End If
' 次の奇数の番号の生徒に
            g = g + 2
           End With
        Loop

   Range("g22").Select
g = 5
r = 6
gu = 21
 Do Until Worksheets("moto").Cells(g, "i").Value = ""
           With ActiveCell
            If Worksheets("moto").Cells(g, "y").Value = 1 _
            And  Worksheets("moto").Cells(g, "f").Value = _
            Cells(2, "d") And _
            Worksheets("moto").Cells(g, "g").Value = _
            Cells(2, "f") Then
' 表のコピー
    Range(Cells(4, r), Cells(18, r+2)).Copy
    Cells(gu, r).PasteSpecial
    Application.CutCopyMode = False
' 表に値を挿入
            .Value = Worksheets("moto").Cells(g, "q").Value + _
                  Worksheets("moto").Cells(g, "l").Value
            .Offset(1, 0).Value = CStr(Worksheets("moto").Cells(g, "f").Value) + "-"+ _
                            CStr(Worksheets("moto").Cells(g, "g").Value) + _
                            CStr(Worksheets("moto").Cells(g, "r").Value)
            .Offset(6, 0).Value = Worksheets("moto").Cells(g, "z").Value
            .Offset(7, 0).Value = Worksheets("moto").Cells(g, "aa").Value
            .Offset(8, 0).Value = Worksheets("moto").Cells(g, "ab").Value
            .Offset(9, 0).Value = Worksheets("moto").Cells(g, "ac").Value
            .Offset(17, 0).Select
' 次に表を作成するセル行を指定
            gu = gu+ 17
            End If
' 次の偶数の番号の生徒に
              g = g + 2
           End With
        Loop                     
 

  • 2019.06.22 Saturday
  • 17:32

中学生のためのExcel VBA

4-7 請求書長子(4)奇数番目命令文

JUGEMテーマ:Office VBA

 

' 変数の宣言gu:表の初めの行
Dim gu As Integer
' 行削除
Range("21:100").Delete
Range("c22").Select
g = 4
gu = 21
r = 2
 Do Until Worksheets("moto").Cells(g, "i").Value = ""
           With ActiveCell
            If Worksheets("moto").Cells(g, "y").Value = 1 _
            And  Worksheets("moto").Cells(g, "f").Value = _
            Cells(2, "d") And _
            Worksheets("moto").Cells(g, "g").Value = _
            Cells(2, "f") Then
' 表のコピー
    Range(Cells(4, r), Cells(18, r+8)).Copy
    Cells(gu, r).PasteSpecial
    Application.CutCopyMode = False
' 表に値を挿入
            .Value = Worksheets("moto").Cells(g, "q").Value + _
                  Worksheets("moto").Cells(g, "l").Value
            .Offset(1, 0).Value = CStr(Worksheets("moto").Cells(g, "f").Value) + "-"+ _
                            CStr(Worksheets("moto").Cells(g, "g").Value) + _
                            CStr(Worksheets("moto").Cells(g, "r").Value)
            .Offset(6, 0).Value = Worksheets("moto").Cells(g, "z").Value
            .Offset(7, 0).Value = Worksheets("moto").Cells(g, "aa").Value
            .Offset(8, 0).Value = Worksheets("moto").Cells(g, "ab").Value
            .Offset(9, 0).Value = Worksheets("moto").Cells(g, "ac").Value
            .Offset(17, 0).Select
' 次に表を作成するセル行を指定
            gu = gu+ 17
            End If
' 次の奇数の番号の生徒に
            g = g + 2
           End With
        Loop

  • 2019.06.21 Friday
  • 22:23

中学生のためのExcel VBA

4-7 請求書長子(3)基表に会計基表ボタン

JUGEMテーマ:Office VBA

 

前回のソートで、会計をする金額は移動しないので、基表に会計用のセルを作成する必要になり、今後は会計基表のワークシートを使用しないようにする。

    If Columns("z:ai").Hidden = False Then
        Columns("z:ai").Hidden = True
        Columns("j:y").Hidden = False
    Else
        Columns("z:ai").Hidden = False
        Columns("j:y").Hidden = True
    End If
 

  • 2019.06.20 Thursday
  • 22:12