中学生のための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年　原富岡製糸所で蚕種の無料配布を行う。

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

 「原三溪記念室」は「もえぎの里」（岐阜市柳津町下佐波西1丁目15番地）の２階に平成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

中学生のためのExcel VBA

1-1 101回記念VBAで何ができるのか��

JUGEMテーマ：Office VBA

 

小中学校でプログラム学習が始まるということですが、何をどのように教えるのかとても気になります。ロボットの制御を行うようですが、自分で作成したプログラムをロボットで実行させることは、自分の考えがすぐに判定できることでは興味を持つと思います。しかし、ロボットを自分の理想とするものにするためには、専門家でないとできません。
パソコンやキーボードの操作が多少できた者がプログラムに触れるのに一番良いのがこのExcel VBAだと思っています。自分の生活を小さいことから改善し積み上げられるからです。中学生にとって何が今必要なことわからないので住所録の活用からはじめました。私としては、学習ノートの作成をVBAで作ったらと思っていますが、自分自身が行ってこなかったこを始めても実態に合わなくなると思い断念しています。
多くの人から、パソコンでこんなことをしたいというこの必要感がプログラミング学習の出発だと思っています。

中学生のためのVBA　が101回を迎えることができ、私どもも驚きです。
ここまで100回の動画でどこまでできるようなったかを紹介しますので、自分の生活で何が必要かを考えるきっかけになればと思います。

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

  • 2019.06.09 Sunday
  • 17:51

このページの先頭へ▲