中学生のためのExcel VBA

4-6 請求書(1)会計シート

JUGEMテーマ:Office VBA

 

 

  名簿から会計のワークシートを作成する。名簿のワークシートに会計のデータを入れておよいが、別にした方がすっきりとすると思われる。

  • 2019.06.08 Saturday
  • 18:55

中学生のためのExcel VBA

4-5 宛名印刷(3)命令文内容

JUGEMテーマ:Office VBA

 

Range("A4:j100").Value = ""
Range("b4").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 = "〒"
            .Offset(0, 1).Value =  Worksheets("moto").Cells(g, "s").Value
            .Offset(1, 1).Value = Worksheets("moto").Cells(g, "x").Value
            .Offset(3, 1).Value = Worksheets("moto").Cells(g, "i").Value
            .Offset(3, 2).Value = "様"
            .Offset(5, 0).Select
            End If
            g = g + 2
           End With
        Loop
Range("g4").Select

  • 2019.06.07 Friday
  • 22:43

中学生のためのExcel VBA

4-5 宛名印刷(2)命令文の挿入

JUGEMテーマ:Office VBA

 

Range("A4:j100").Value = ""
Range("b4").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 = "〒"
            .Offset(0, 1).Value =  Worksheets("moto").Cells(g, "s").Value
            .Offset(1, 1).Value = Worksheets("moto").Cells(g, "x").Value
            .Offset(3, 1).Value = Worksheets("moto").Cells(g, "i").Value
            .Offset(3, 1).Value = Worksheets("moto").Cells(g, "i").Value
            .Offset(3, 2).Value = "様"
            .Offset(5, 0).Select
            End If
            g = g + 2
           End With
        Loop
Range("g4").Select
g = 5
 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 = "〒"
            .Offset(0, 1).Value =  Worksheets("moto").Cells(g, "s").Value
            .Offset(1, 1).Value = Worksheets("moto").Cells(g, "x").Value
            .Offset(3, 1).Value = Worksheets("moto").Cells(g, "i").Value
            .Offset(3, 2).Value = "様"
            .Offset(5, 0).Select
            End If
            g = g + 2
           End With
        Loop
     Range("d2").Select

  • 2019.06.06 Thursday
  • 22:11

中学生のためのExcel VBA

4-5 宛名印刷(1)関数で作成

JUGEMテーマ:Office VBA

 

繰り返し同じ作業をする→F4キー
=IFERROR(VLOOKUP(A5,moto!$A$4:$X$52,19, false), "")→エラーであれば、空白 エラーでなかったら実行する

  • 2019.06.05 Wednesday
  • 17:06

中学生のためのExcel VBA

4-5 宛名印刷(1)関数で作成

JUGEMテーマ:Office VBA

 

セルの書式設定→表示形式→ユーザー定義→「種類」ボックスに「;;;」(セミコロンを3つ)を入力→OK     →セル内を非表示
VLOOKUP(検索値, 範囲, 列番号, FALSE)
検索値:A5  範囲:moto!A4:Z47 列番号「郵便番号」:19 「住所」:24 「名前」:9
 

  • 2019.06.04 Tuesday
  • 15:47

中学生のためのExcel VBA

4-5 宛名印刷(1)関数で作成

JUGEMテーマ:Office VBA

 

=CONCATENATE(F4,G4,H4)
セルの書式設定→表示形式→ユーザー定義→「種類」ボックスに「;;;」(セミコロンを3つ)を入力→OK     →セル内を非表示
VLOOKUP(検索値, 範囲, 列番号, FALSE)
検索値:A5  範囲:moto!A4:Z47 列番号「郵便番号」:19 

  • 2019.06.03 Monday
  • 22:21

中学生のためのExcel VBA

4-4 書道用名前(5)印刷範囲設定

JUGEMテーマ:Office VBA

 

' 印刷範囲設定解除
PageSetup.PrintArea=""
' 印刷範囲
PageSetup.PrintArea = Range(Cells(3,"A"),Cells(7, retu)).Address

 

PageSetup.PrintArea=”” または false
PageSetup.PrintArea=範囲を表す文字列
PageSetup.PrintArea = Range(Cells(3,"A"),Cells(7, retu)).Address→Addressプロパティで範囲の文字列を求めている  Rangeオブジェクト.Address $A$1:$D$60という文字列が得られる
 

  • 2019.06.02 Sunday
  • 18:05

中学生のためのExcel VBA

4-4 書道用名前(4)罫線引き

JUGEMテーマ:Office VBA

 

' 罫線引き
retu = Range("A3").End(xlToRight).Column
With Range(Cells(3, "A"), Cells(7, retu))
 .Borders(xlEdgeRight).LineStyle = xlDash
 .Borders(xlInsideVertical).LineStyle = xlDash
 .Borders(xlEdgeLeft).LineStyle = xlDash
End With

Range(Cells(3, "A"), Cells(7, retu))→文字が入っている範囲 変数を入力
Vertical→垂直の
Dash→破線
 

  • 2019.06.01 Saturday
  • 17:13

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