Excel このブログ内で基礎的な感じでよく出るプロシージャ

今回はこのブログ内でExcelのVBAをご紹介する際
必ずと言っていいほどよく出るプロシージャを
まとめておきます。


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
１．シートのセット
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'■変数の宣言
Public WH1 As WorkSheet
Public WH2 As WorkSheet
Public WH3 As WorkSheet

'■シートセットのプロシージャ
Sub SheetSet()

  Set WH1 = Worksheets("シート名1")

  Set WH2 = Worksheets("シート名2")

  Set WH3 = Worksheets("シート名3")

End Sub

―――――――――――――――――――――――

これを作っておくと、たとえば

Sub AAA ()

　　SheetSet '←これで呼び出し

　　WH1.Range("A1").Value =　"ｈｈｈ"

End Sub

のように使えます。
上でやっているのは、WH1（＝シート名1）の
A1セルに「ｈｈｈ」を格納する、です。


シートのセットを変数で行っておく利点は、

　１．シート名が変更になった時にそこだけ
　　　直せば済む
　２．シートのプロパティが絶対予測で出てくる

があります。
ブログ主はExcelでプログラミングする際は
絶対に使うプロシージャの１つです。

---

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
２．描画の停止と開始等々
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'■描画の停止他

Sub DontLook()

  '画面の移動を見せない

  Application.ScreenUpdating = False

  '確認メッセージを出さない

  Application.DisplayAlerts = False

  'マクロの動作が起因するイベント発生を抑制

  Application.EnableEvents = False

End Sub

このマクロを入れておくだけで画像のちらつきがなくなります。

ちなみにこの反対はこちら

'■描画の開始他
Sub OKLook()

  '画面の移動を見せる

  Application.ScreenUpdating = True

  '確認メッセージを出す

  Application.DisplayAlerts = True

  'マクロの動作が起因するイベント発生を抑制しない

  Application.EnableEvents = True

End Sub

ちなみに使い方は

Sub BBB ()

　　DontLook

　　（作業）

　　OKLook

End Sub

という感じです。
値を次々に入れていく、などの作業の時は
あった方が目に痛くない優しいシステムに
なるのではないかと思います。

１番と併せて、ブログ主が絶対に使うプロシージャです。

---

ということで、このブログ内でよく使われる
プロシージャでした。