Calender

S M T W T F S
  12345
6789101112
13141516171819
20212223242526
2728293031  
<< October 2019 >>

Categories

Archives

Recent Entries

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

Comment
Send Comment