Calender

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

Categories

Archives

Recent Entries

中学生のためのExcel VBA

4-6 請求書(6)偶数命令文挿入

JUGEMテーマ:Office VBA

 

Range("g22").Select
g = 5
 Do Until Worksheets("moto").Cells(g, "i").Value = ""
           With ActiveCell
            If Worksheets("moto").Cells(g, "f").Value = _
            Cells(2, "d") And _
            Worksheets("moto").Cells(g, "g").Value = _
            Cells(2, "f") Then
' 表に値を挿入
            .Value = Worksheets("kaikei").Cells(g, "i").Value + _
                  Worksheets("kaikei").Cells(g, "g").Value
            .Offset(1, 0).Value = CStr(Worksheets("kaikei").Cells(g, "c").Value) + "-"+ _
                            CStr(Worksheets("kaikei").Cells(g, "d").Value) + _
                            CStr(Worksheets("kaikei").Cells(g, "j").Value)
            .Offset(6, 0).Value = Worksheets("kaikei").Cells(g, "k").Value
            .Offset(7, 0).Value = Worksheets("kaikei").Cells(g, "l").Value
            .Offset(8, 0).Value = Worksheets("kaikei").Cells(g, "m").Value
            .Offset(9, 0).Value = Worksheets("kaikei").Cells(g, "n").Value
            .Offset(17, 0).Select
            End If
' 次の偶数の番号の生徒に
            g = g + 2
           End With
        Loop
 

  • 2019.06.15 Saturday
  • 15:37

Comment
Send Comment