【動画付き】ワークシート操作2 名前変更、削除、非表示、色変更

目次

ワークシート操作

今日も前回に引き続きワークシートの勉強をしていきましょう。

前回の記事はこちらになります。

今日使う実例はこちらになります。

Sub WORKSHEET_OP2()

    'ワークシートの名前変更
    ActiveSheet.Name = "シート名変更"
    
    Stop
    
    'ワークシートを作成する
    Worksheets.Add
       
    Stop
       
    'ワークシートの削除
    ActiveSheet.Delete
    
    Stop
    
    'ワークシートの非表示
    Worksheets("Sheet2").Visible = False

    Stop

    'ワークシートの再表示
    Worksheets("Sheet2").Visible = Ture
    
    Stop
    
    'ワークシート見出しの色変更
    Worksheets("Sheet2").Tab.Color = vbRed

End Sub

今日は動画もあります!こちらで実例の動作イメージをつかんでね!

実例を動かす場合、下記のようにマクロが記載されているワークブックに予めSheet1とSheet2を準備しておいてね。

ワークシートの名前変更

ワークシートの名前は下記のようにNameプロパティで操作することができます。

ActiveSheet.Name

実例では、4行目でシート名を”Sheet1″から”シート名変更”としています。

ActiveSheet.Name = "シート名変更"

ワークシートの削除

ワークシートの削除はDeleteメソッドを使います。

ActiveSheet.Delete

9行目で追加したワークシートを、

14行目の処理で削除しています。

マクロでワークシートを削除するとき、上記確認メッセージでマクロが停止してしまいます。

このメッセージを表示しないでワークシートを削除するにはExcelのApplicationオブジェクトのDisplayAlertsプロパティにFalseを設定しましょう。

Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

DisplayAlertsプロパティはプロシージャが正常終了するとTrueに戻りますが、エラーによりFlaseのままになると、Excelのすべての処理で確認メッセージが表示されてなくなります。

必ず、上記のように明示的にプロシージャ内でDisplayAlertsプロパティ設定をTrueに戻しておきましょう。

ワークシートの非表示

マクロでもシート上で右クリック → 非表示としてシートを非表示にする処理が準備されています。

WorksheetオブジェクトのVisibleプロパティにFalseを設定することで対象シートを非表示にできます。

Worksheets(“シート名”).Visible = False

実例では19行目でシート名が”Sheet2″のシートを非表示としています。

下記のように、実例で表示されているシートは”シート名変更”シートのみとなります。

ワークシートを再表示するには、WorksheetオブジェクトのVisibleプロパティにTrueとすればokです。

Worksheets(“シート名”).Visible = True

ワークシート見出し色変更

最後にワークシートの見出し色を変更してみましょう。

ワークシートの見出しはTabオブジェクトで操作できます。シート見出しの色はTabオブジェクトのColorプロパティをつかって設定することができます。

Worksheets(“シート名”).Tab.Color = カラー定数

実例29行目で、ワークシートの見出しを赤に変更しています。

Worksheets("Sheet2").Tab.Color = vbRed

カラー定数に関しては、別記事で説明予定ですが、

vbBlue,vbGreen,vbYellowなど基本色はこのカラー定数で表すことができます。

ワークシート操作2 名前変更、削除、非表示、色変更まとめ

今日はワークシートの基本操作として、ワークシートの名前変更、削除、非表示、色変更といった処理について学びました。

実務でもワークシートの操作は多用することになりますので是非習得してください。

VBA初級から抜け出すための知恵と、実務で活用できるスキルが学べる1冊です!激しくオススメ!

bookfan 2号店 楽天市場店
¥1,980 (2024/09/23 18:47時点 | 楽天市場調べ)

この記事が気に入ったら
フォローしてね!

よかったらシェアしてね!

この記事を書いた人

ものおと申します。

10年以上の大手メーカー勤務経験のあるエンジニアです。

これまでのものづくりの経験から小学生にも伝わるExcel VBAお役立ち記事を発信していきたいと思います。

よろしくお願いします。

コメント

コメントする

CAPTCHA


目次