Calender

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

Categories

Archives

Recent Entries

中学生のためのExcel VBA

4-5 宛名印刷(3)命令文内容

JUGEMテーマ:Office VBA

 

Range("A4:j100").Value = ""
Range("b4").Select
g = 4
 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 = "〒"
            .Offset(0, 1).Value =  Worksheets("moto").Cells(g, "s").Value
            .Offset(1, 1).Value = Worksheets("moto").Cells(g, "x").Value
            .Offset(3, 1).Value = Worksheets("moto").Cells(g, "i").Value
            .Offset(3, 2).Value = "様"
            .Offset(5, 0).Select
            End If
            g = g + 2
           End With
        Loop
Range("g4").Select

  • 2019.06.07 Friday
  • 22:43

Comment
Send Comment