Calender

S M T W T F S
    123
45678910
11121314151617
18192021222324
25262728293031
<< August 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