Calender

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

Categories

Archives

Recent Entries

中学生のためのExcel VBA

3-14 郵便番号と住所(5)番地テキストボックス

 

 

Private Sub CommandButton3_Click()
Cells(gyou + 1, "w").NumberFormatLocal = "@" 
Cells(gyou + 1, "w").Value = TextBox3.Text
       With TextBox3
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
TextBox2.Text = Cells(gyou + 1, "x").Value

  • 2019.05.26 Sunday
  • 17:52

Comment
Send Comment