ニャン太郎の叫び

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)複数行にコメントをつける外す
メニューバーから「表示→ツールバー→編集」

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 年組名前ソート

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年ほどたっているだけです。

JUGEMテーマ：Office VBA

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

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
 

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
 

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
 

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

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

JUGEMテーマ：Office VBA