Calender

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

Categories

Archives

Recent Entries

中学生のためのExcel VBA

4-4 書道用名前(2)命令文挿入

JUGEMテーマ:Office VBA

 

Range("A3:ag6").Value = ""
Range("A3:ag6").Borders.LineStyle = xlLineStyleNone 
Range("a6").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 = Worksheets("moto").Cells(g, 9).Value
        Select Case Range("d2").Value
             Case Is = 1
                .Offset(-3, 0).Value = "一"
             Case Is = 2
                .Offset(-3, 0).Value = "二"
             Case Is = 3
                .Offset(-3, 0).Value = "三"
        Case Else
                .Offset(-3, 0).Value = "四"
        End Select
            .Offset(-2, 0).Value = "年"
            .Offset(0, 1).Select
            End If
            g = g + 1
           End With
        Loop
     Range("d3").Select
 

  • 2019.05.30 Thursday
  • 22:17

Comment
Send Comment