Calender

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

Categories

Archives

Recent Entries

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

Comment
Send Comment