株式会社MessageLeafさんが提供してる『MessageLeaf』というツールが 正式にリリースされたとのことなので利用してみました。 画面右下に表示されていると思います。 ※モバイルでは表示されないとのことです。 読者と作者で非公開のメッセージをやり取りする…

ワークブックを保存する場合は次のように行います。 "Book1"を『c:\』に"Book2.xls"として保存する Sub Test() Workbooks("Book1").SaveAs Filename:="c:\Book2.xls" End Sub "Book1"を『c:\』に"Book2.csv"としてCSV形式で保存する Sub Test() Workbooks("B…

ワークブックを閉じる場合は次のように行います。 "Book1"を閉じる Sub Test() Workbooks("Book1").Close SaveChanges:=True End Sub ※新規作成時の場合、名前をつけて保存するか確認されます。 "Book1"を保存しないで閉じる Sub Test() Workbooks("Book1").…

ワークブックを開く場合は次のように行います。 指定のディレクトリにあるファイルを開く Sub Test() Workbooks.Open Filename:="c:\test.xls" End Sub パスワードを指定してファイルを開く Sub Test() Workbooks.Open Filename:="c:\test.xls", Password:="…

ワークブックの作成は次のように行います。 ワークブック新規作成 Sub Test() Workbooks.Add End Sub

ワークシートの削除は次のように行います。 アクティブなシートを削除する Sub Test() ActiveSheet.Delete End Sub "Sheet1"を削除する Sub Test() Worksheets("Sheet1").Delete End Sub シート削除時の確認ポップアップを非表示にする Sub Test() Applicati…

ワークシートのコピーは次のように行います。 アクティブなシートを"Sheet2"の後ろにコピーする Sub Test() ActiveSheet.Copy After:=Worksheets("Sheet2") End Sub "Sheet1"を"Sheet2"の後ろにコピーする Sub Test() Worksheets("Sheet1").Copy After:=Work…

ワークシートの移動は次のように行います。 アクティブなシートを"Sheet2"の後に移動する Sub Test() ActiveSheet.Move After:=Worksheets("Sheet2") End Sub "Sheet1"を"Sheet2"の後に移動する Sub Test() Worksheets("Sheet1").Move After:=Worksheets("Sh…

ワークシート名の変更は次のように行います。 アクティブなシートのシート名を変更する Sub Test() ActiveSheet.Name = "シート名" End Sub "Sheet1"のシート名を変更する Sub Test() Worksheets("Sheet1").Name = "TEST" End Sub

ワークシートの追加は次のように行います。 先頭にシートを追加する Sub Test() Worksheets.Add End Sub "Sheet2"の前にシートを追加する Sub Test() Worksheets.Add Before:=Worksheets("Sheet2") End Sub "Sheet2"の後にシートを追加する Sub Test() Works…