中学生のためのExcel VBA

4-4 書道用名前(3)命令文内容

JUGEMテーマ:Office VBA

 

Range("A1").Clear  →書式や文字サイズ等すべて消される
Range("A3:ag6").Value = ""   →データだけが消される
Range("A3:ag6").Borders.LineStyle = xlLineStyleNone   →罫線だけが消される

 

Select Case 変数
    Case 条件式1
        処理1
    Case 条件式2
        処理2
    Case Else
        どの条件にも一致しない時の処理
End Select

  • 2019.05.31 Friday
  • 17:30

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

中学生のためのExcel VBA

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

JUGEMテーマ:Office VBA

 

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

Cells(gyou + 1, "w").    NumberFormat = "@":セルを文字列型にする

  • 2019.05.27 Monday
  • 22:42

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

中学生のためのExcel VBA

3-14 郵便番号と住所()エラー回避

JUGEMテーマ:Office VBA

 

Private Sub CommandButton2_Click()
Call hani
    Cells(gyou + 1, "s").Value = TextBox1.Text
Cells(gyou + 1, "s").NumberFormatLocal = "000-0000"
Range("t4:x4").Copy
Cells(gyou + 1, "t").PasteSpecial (xlPasteFormulas)
Application.CutCopyMode = False
If IsError(Cells(gyou + 1, "x").Value) Then
    MsgBox "郵便番号が違います。" , 16
  TextBox2.Text = ""
       With TextBox1
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
  Else
Cells(gyou + 1, "w").Value = ""
TextBox2.Text = Cells(gyou + 1, "x").Value
 End If
End Sub
 

  • 2019.05.25 Saturday
  • 17:36

中学生のためのExcel VBA

3-14 郵便番号と住所(4)エラー回避

JUGEMテーマ:Office VBA

 

Private Sub TextBox1_AfterUpdate()
Call hani
    Cells(gyou + 1, "s").Value = TextBox1.Text
Cells(gyou + 1, "s").NumberFormatLocal = "000-0000"
Range("t4:x4").Copy
Cells(gyou + 1, "t").PasteSpecial (xlPasteFormulas)
Application.CutCopyMode = False
If IsError(Cells(gyou + 1, "x").Value) Then
    MsgBox "郵便番号が違います。" 
 ' TextBox2.Text = ""
With TextBox1
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
 ' TextBox1.SetFocus
 Else
Cells(gyou + 1, "w").Value = ""
TextBox2.Text = Cells(gyou + 1, "x").Value
 End If
End Sab
 

  • 2019.05.25 Saturday
  • 15:26

中学生のためのExcel VBA

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

JUGEMテーマ:Office VBA

 

Call hani
Cells(gyou + 1, "s").Value = TextBox1.Text
Cells(gyou + 1, "s").NumberFormatLocal = "000-0000"
Range("t4:x4").Copy
Cells(gyou + 1, "t").PasteSpecial (xlPasteFormulas)
Application.CutCopyMode = False
Cells(gyou + 1, "w").Value = ""
TextBox2.Text = Cells(gyou + 1, "x").Value

Formula:お決まりのやり方
paste:糊で貼る
 

  • 2019.05.24 Friday
  • 16:27

中学生のためのExcel VBA

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

JUGEMテーマ:Office VBA

 

 

Call hani
    Cells(gyou + 1, "s").Value = TextBox1.Text
Cells(gyou + 1, "s").NumberFormatLocal = "000-0000"
Range("t4:x4").Copy
Cells(gyou + 1, "t").PasteSpecial (xlPasteFormulas)
Application.CutCopyMode = False
Cells(gyou + 1, "w").Value = ""
TextBox2.Text = Cells(gyou + 1, "x").Value

  • 2019.05.23 Thursday
  • 22:40

中学生のためのExcel VBA

3-14 郵便番号と住所(2)CONCATENATE関数

JUGEMテーマ:Office VBA

 

文字列の結合関数:CONCATENATE → 鎖状につなぐ

  • 2019.05.22 Wednesday
  • 22:57