2020-08-01から1日間の記事一覧

シートを別ブックに保存する(オフィスTANAKA練習問題4)

1 よく使うコードの整理 2コード (1)xlsx保存 Sub TanakaMondai4() Dim i As Long For i = 2 To Sheets.Count ThisWorkbook.Sheets(i).Copy With ActiveWorkbook .SaveAs "C:\Work\" & ActiveSheet.Name & ".xlsx" .Close End With Next End Sub (2)PDF保存 …

並べ替えて指定フォルダに保存する

1 並べ替えて、保存するマクロ 指定の順序で並べ替え。指定のフォルダ(シート内にアドレスを記載)に保存。 2コード Sub 引継簿並べ替え() '並べ替え With ThisWorkbook.Sheets("引継簿") .Range("A5").Sort key1:=Range("G5"), order1:=xlAscending, _ k…

特定の列のセルをダブルクリックしたら、「○」を入力するイベントマクロ

1 機能 特定の列のセルをダブルクリックしたときに、「○」を入力するイベントマクロ 2 方針 シートモジュールにイベントマクロを記述する。ダブルクリックしたのが特定の列かどうかを判定する方法が複数ある。ダブルクリックなので、セル範囲を考慮する必…