中学生のためのExcel VBA

4-7 請求書長子(2)長子でソート

JUGEMテーマ:Office VBA

 

' 長子でソート
    Worksheets("moto").Range("i3").Sort Key1:=_
    Worksheets("moto").Range("y3"), Order1:=xlAscending, _
    Header:=xlYes
他の例
Sub 年組名前ソート()
    Range("i3").Sort Key1:=Range("f3"), Order1:=xlAscending, _
    Key2:=Range("g3"), Order2:=xlAscending, _
    key3:=Range("j3"), order3:=xlAscending, _
    Header:=xlYes
End Sub
コメント
作成している命令文の実行結果に影響を与えないメモ
(1)一行の時は'(シングルコーテーションをつける

' ここがコメントに
(2)複数行にコメントをつける外す
メニューバーから「表示→ツールバー→編集」

  • 2019.06.19 Wednesday
  • 16:25

中学生のためのExcel VBA

4-7 請求書長子(1)長子を数値に

JUGEMテーマ:Office VBA

 

基表加工に長子を数字に置き換えるボタンを作成
Call 電話ソート
Call hani
    For g = 4 To gyou
        If Cells(g, "o").Value <> Cells(g + 1, "o").Value Then
            Cells(g, "e").Value = "○"
            Cells(g, "y") = 2
        Else
            Cells(g, "e").Value = ""
           Cells(g, "y") = 1
         End If
    Next g
Call 年組名前ソート

  • 2019.06.18 Tuesday
  • 22:54

旅行

「原三溪記念室」「もえぎの里」(岐阜市柳津町下佐波西1丁目15番地)

JUGEMテーマ:岐阜県

 

原三溪記念室
令和元年5月31日に訪問

岐阜県には、斎藤道三や明智光秀など有名な偉人がいますが、よく知られていません。 原三溪も活躍した場所が横浜であったことから、県民でもはほとんど知られない存在です。
しかし、原三渓の生きた内容を見れば、岐阜出身であることに誇りが持てるかと思われます。
原三溪は、三井財閥から富岡製糸所を得て、戦前の生糸の輸出に尽力をし、日本の経済を支えた人です。経済人であるばかりか、多くの方面に社会貢献を行った人です。現在は三溪園(横浜市中区本牧三之谷58-1)をつくり、公開されています。
原三渓のは(1868年10月8日) - 昭和14年(1939年)8月16日)(1868〜1939)美濃国厚見郡佐波村(現・岐阜県岐阜市柳津町佐波)の庄屋のに生まれ、東京専門学校(現・早稲田大学)を出て、横浜の亀屋で活躍しました。


1885年18歳 東京専門学校(現・早稲田大学)で政治学・経済学を学ぶ。
1891年(明治24)横浜の生糸商原善三郎の孫娘、原屋寿(はら やす)と結婚し
    横浜で一二を争う生糸売込商「亀屋」(翌年、原合名会)の家業を継ぐ。
1902年 富岡製糸所を三井から手に入れ原富岡製糸所と改名する。
    三溪園の造成を始める。
1903年 蚕種(さんしゅ:蚕の卵)の配布を始める。
1906年 原富岡製糸所で蚕種の無料配布を行う。

この原三溪記念室では、原三渓の実業家という面ばかりか、多様な活躍がわかる貴重な品物や記事があります。原三渓の生き方を知り、されに岐阜を再認識できるものと思います。
来年のNHKの大河ドラマは「麒麟がくる」です。司馬遼太郎の「国盗り物語」は、明智光秀を裏切者の視点でなく、光秀の視点から作られた作品で、光秀を誇りに思うことができるものでした。
今、岐阜が熱くなる時がきました。

 「原三溪記念室」は「もえぎの里」(岐阜市柳津町下佐波西1丁目15番地)の2階に平成28年10月8日に設置され、まだ3年ほどたっているだけです。

  • 2019.06.18 Tuesday
  • 18:52

中学生のためのExcel VBA

4-6 請求書(8)印刷範囲設定

JUGEMテーマ:Office VBA

 

' 印刷範囲設定解除
PageSetup.PrintArea=""
' 印刷範囲
gyou = Cells(Rows.Count, 2).End(xlUp).Row
PageSetup.PrintArea = Range(Cells(21,"A"),Cells(gyou, "I")).Address

  • 2019.06.17 Monday
  • 22:08

中学生のためのExcel VBA

4-6 請求書(7)偶数命令文内容

JUGEMテーマ:Office VBA

 

' 変数の宣言gu:表の初めの行
Dim gu As Integer
' 行削除
Range("21:100").Delete
Range("c22").Select
g = 4
gu = 21
r = 2
 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
' 表のコピー
    Range(Cells(4, r), Cells(18, r+8)).Copy
    Cells(gu, r).PasteSpecial
    Application.CutCopyMode = False
' 表に値を挿入
            .Value = Worksheets("kaikei").Cells(g, "i").Value + _
                  Worksheets("kaikei").Cells(g, "g").Value
            .Offset(1, 0).Value = CStr(Worksheets("kaikei").Cells(g, "c").Value) + "-"+ _
                            CStr(Worksheets("kaikei").Cells(g, "d").Value) + _
                            CStr(Worksheets("kaikei").Cells(g, "j").Value)
            .Offset(6, 0).Value = Worksheets("kaikei").Cells(g, "k").Value
            .Offset(7, 0).Value = Worksheets("kaikei").Cells(g, "l").Value
            .Offset(8, 0).Value = Worksheets("kaikei").Cells(g, "m").Value
            .Offset(9, 0).Value = Worksheets("kaikei").Cells(g, "n").Value
            .Offset(17, 0).Select
' 次に表を作成するセル行を指定
            gu = gu+ 17
            End If
' 次の奇数の番号の生徒に
            g = g + 2
           End With
        Loop
Range("g22").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 = Worksheets("kaikei").Cells(g, "i").Value + _
                  Worksheets("kaikei").Cells(g, "g").Value
            .Offset(1, 0).Value = CStr(Worksheets("kaikei").Cells(g, "c").Value) + "-"+ _
                            CStr(Worksheets("kaikei").Cells(g, "d").Value) + _
                            CStr(Worksheets("kaikei").Cells(g, "j").Value)
            .Offset(6, 0).Value = Worksheets("kaikei").Cells(g, "k").Value
            .Offset(7, 0).Value = Worksheets("kaikei").Cells(g, "l").Value
            .Offset(8, 0).Value = Worksheets("kaikei").Cells(g, "m").Value
            .Offset(9, 0).Value = Worksheets("kaikei").Cells(g, "n").Value
            .Offset(17, 0).Select
            End If
' 次の偶数の番号の生徒に
            g = g + 2
           End With
        Loop
  Range("g4").Select
 

  • 2019.06.16 Sunday
  • 16:12

中学生のためのExcel VBA

4-6 請求書(6)偶数命令文挿入

JUGEMテーマ:Office VBA

 

Range("g22").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 = Worksheets("kaikei").Cells(g, "i").Value + _
                  Worksheets("kaikei").Cells(g, "g").Value
            .Offset(1, 0).Value = CStr(Worksheets("kaikei").Cells(g, "c").Value) + "-"+ _
                            CStr(Worksheets("kaikei").Cells(g, "d").Value) + _
                            CStr(Worksheets("kaikei").Cells(g, "j").Value)
            .Offset(6, 0).Value = Worksheets("kaikei").Cells(g, "k").Value
            .Offset(7, 0).Value = Worksheets("kaikei").Cells(g, "l").Value
            .Offset(8, 0).Value = Worksheets("kaikei").Cells(g, "m").Value
            .Offset(9, 0).Value = Worksheets("kaikei").Cells(g, "n").Value
            .Offset(17, 0).Select
            End If
' 次の偶数の番号の生徒に
            g = g + 2
           End With
        Loop
 

  • 2019.06.15 Saturday
  • 15:37

中学生のためのExcel VBA

4-6 請求書(5)奇数命令文内容

JUGEMテーマ:Office VBA

 

' 変数の宣言gu:表の初めの行
Dim gu As Integer
' 行削除
Range("21:100").Delete
Range("c22").Select
g = 4
gu = 21
r = 2
 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
' 表のコピー
    Range(Cells(4, r), Cells(18, r+8)).Copy
    Cells(gu, r).PasteSpecial
    Application.CutCopyMode = False
' 表に値を挿入
            .Value = Worksheets("kaikei").Cells(g, "i").Value + _
                  Worksheets("kaikei").Cells(g, "g").Value
            .Offset(1, 0).Value = CStr(Worksheets("kaikei").Cells(g, "c").Value) + "-"+ _
                            CStr(Worksheets("kaikei").Cells(g, "d").Value) + _
                            CStr(Worksheets("kaikei").Cells(g, "j").Value)
            .Offset(6, 0).Value = Worksheets("kaikei").Cells(g, "k").Value
            .Offset(7, 0).Value = Worksheets("kaikei").Cells(g, "l").Value
            .Offset(8, 0).Value = Worksheets("kaikei").Cells(g, "m").Value
            .Offset(9, 0).Value = Worksheets("kaikei").Cells(g, "n").Value
            .Offset(17, 0).Select
' 次に表を作成するセル行を指定
            gu = gu+ 17
            End If
' 次の奇数の番号の生徒に
            g = g + 2
           End With
        Loop
Range("g4").Select
 

  • 2019.06.13 Thursday
  • 22:01

中学生のためのExcel VBA

4-6 請求書(4)奇数命令文挿入

JUGEMテーマ:Office VBA

 

Range("B2:C3").Merge
    Range("A1").Offset(3, 3).Value = "D4 だよ"

Cells(g + 2, "p").Value = _
       CStr(Cells(g, "f").Value) + "-" + CStr(Cells(g, "g").Value) + _
       Cells(g, "r").Value + Cells(g + 2, "p").Value


Dim gu As Integer
' 行削除
Range("21:100").Delete
Range("c22").Select
g = 4
gu = 21
r = 2
 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
' 表のコピー

    Range(Cells(4, r), Cells(18, r+8)).Copy
    Cells(gu, r).PasteSpecial
    Application.CutCopyMode = False
            .Value = Worksheets("kaikei").Cells(g, "i").Value + _
                  Worksheets("kaikei").Cells(g, "g").Value
            .Offset(1, 0).Value = CStr(Worksheets("kaikei").Cells(g, "c").Value) + "-"+ _
                            CStr(Worksheets("kaikei").Cells(g, "d").Value) + _
                            CStr(Worksheets("kaikei").Cells(g, "j").Value)
            .Offset(6, 0).Value = Worksheets("kaikei").Cells(g, "k").Value
            .Offset(7, 0).Value = Worksheets("kaikei").Cells(g, "l").Value
            .Offset(8, 0).Value = Worksheets("kaikei").Cells(g, "m").Value
            .Offset(9, 0).Value = Worksheets("kaikei").Cells(g, "n").Value
            .Offset(17, 0).Select
            gu = gu+ 17
            End If
            g = g + 2
           End With
        Loop
Range("g4").Select

  • 2019.06.13 Thursday
  • 00:00

中学生のためのExcel VBA

4-6 請求書(3)表のコピー

JUGEMテーマ:Office VBA

 

 行削除
Range("21:100").Delete
' 表のコピー
g = 4  
r = 2
Range(Cells(g, r), Cells(g+12, r+8)).Copy
Cells(g+17, r).PasteSpecial
Application.CutCopyMode = False
' セル選択を戻す
Range("d2").Select

 

1 セル
セルの集合体:Range Rangesはない

(1)セル指定
  セルB列5行の指定→Range("B5")  アドレスは文字列で指定 Cells(5,2) は数値で指定

n:変数 
 Range("B5") Range("b" & 5)      Cells(5,2) Cells(5,"b")  Cells(n,"b")
範囲
 Range("B5","C6")
  Range(Cells(2, "E"), Cells(n, 3))
行の範囲「2 〜 3」は Range("2:3") 

Rows(2).Copy
Rows(3).PasteSpecial

  • 2019.06.11 Tuesday
  • 22:21

中学生のためのExcel VBA

4-6 請求書(2)請求書シート

JUGEMテーマ:Office VBA

  • 2019.06.10 Monday
  • 18:09