【マクロ・VBA初心者】変数って何？必要なの？このへん理解しておこう！

さあVBA書くぞ～ってなって

まず初めに変数を書いていきます

ってよくあるけど何！？なんで！？
とよく思ってました。

同じ事思ってる人は
この記事を参考にしてみてください！

専門的な説明というより
ざっくりとした意味やポイントを説明します！

動画はコチラ

実際にマクロを作りながら紹介してます！
記事で説明しきれなかった情報もあります！

変数とはどんなものか？

変数は「箱」のイメージ

変数はデータを入れる為の箱というイメージです！

1，2，3 の様な数字のデータだったり
昨日、今日、明日の様な文字のデータだったり
Excelシートについてのデータだったり。

変数の書き方

Dim 箱の名前(変数名) As 箱の種類(型)

好きな箱の名前を付けて
その箱の種類を決める感じですね！

例えば
「カボチャ」という文字列データを
「name」という箱に入れる場合

'「name」って箱に文字列データ入ります
Dim name As String

'「name」の箱に「カボチャ」って文字列データ入れました
name = "カボチャ"

'「name」って箱に文字列データ入ります

Dim name As String

'「name」の箱に「カボチャ」って文字列データ入れました

name = "カボチャ"

箱の種類はたくさんあるので
ネットで「データ型 vba」とかで検索して
調べて見て下さい！

箱の種類というか
データの種類って言った方が良かったか…！

なんで変数を書くの？

変数を書くメリット

データの管理がしやすい！

いや、どゆこと‥？
と思うでしょう！

例えば「カボチャ」というデータを
プログラム内で5か所使っていたとしましょう！

Sub main()
    Range("A1").Value = "カボチャ"
    Range("A2").Value = "カボチャ"
    Range("A3").Value = "カボチャ"
    Range("A4").Value = "カボチャ"
    Range("A5").Value = "カボチャ"
Sub End

Sub main()

Range("A1").Value = "カボチャ"

Range("A2").Value = "カボチャ"

Range("A3").Value = "カボチャ"

Range("A4").Value = "カボチャ"

Range("A5").Value = "カボチャ"

Sub End

一応↑は
A1～A5セルに「カボチャ」と入力させるVBAです！

ここで
やっぱり「リンゴ」に修正して～！
って言われたらどうする！？

１つ１つ書き換えるしかないですよね。。

でも！もし「カボチャ」を箱に入れて使うと…

Sub main()
     Dim name As String
     name = "カボチャ" '←ここをリンゴに変えるだけ

     Range("A1").Value = name
     Range("A2").Value = name
     Range("A3").Value = name
     Range("A4").Value = name
     Range("A5").Value = name
Sub End

Sub main()

Dim name As String

name = "カボチャ" '←ここをリンゴに変えるだけ

Range("A1").Value = name

Range("A2").Value = name

Range("A3").Value = name

Range("A4").Value = name

Range("A5").Value = name

Sub End

たった１か所の書き換えだけで済む！

「name」という箱を活用する事で
データの管理がしやすくなるのです！

変数の書き間違えを知らせる1文

Option Explicit

この1文は
「その箱あなた作ってませんよ～！」
と教えてくれる文です！

例えばさっきの「name」という箱を
「ame」って書き間違えたら！？

Sub main()
    Dim name As String
    name = "カボチャ"

    Range("A1").Value = name
    Range("A2").Value = name
    Range("A3").Value = ame　'←書き間違えに気づかず
    Range("A4").Value = name
    Range("A5").Value = name
Sub End

Sub main()

Dim name As String

name = "カボチャ"

Range("A1").Value = name

Range("A2").Value = name

Range("A3").Value = ame　'←書き間違えに気づかず

Range("A4").Value = name

Range("A5").Value = name

Sub End

これをそのまま実行すると
「ame」という箱を作ってないにも関わらず
エラーは起こらず、A3セルだけ何も入力されずに
処理が完了します！

こうなった場合
意図してない結果を見て初めて気づく事になります！

「あれ？何でA3セルにカボチャって出てないんだ？」

これを防ぐために1行目に
「Option Explicit」と書いておくと
実行する前に「ame」って箱作ってないよ！
って教えてくれて気づく事が出来ます！

Option Explicit '←1行目に書いておく
Sub main()
    Dim name As String
    name = "カボチャ"

    Range("A1").Value = name
    Range("A2").Value = name
    Range("A3").Value = name
    Range("A4").Value = name
    Range("A5").Value = name
Sub End

Option Explicit '←1行目に書いておく

Sub main()

Dim name As String

name = "カボチャ"

Range("A1").Value = name

Range("A2").Value = name

Range("A3").Value = name

Range("A4").Value = name

Range("A5").Value = name

Sub End

VbaForYoutube

YouTube動画で
最後書き終わったVBAになります！
気になる方は動画をご覧下さい♪

Option Explicit
Sub main()
    Dim wsList As Worksheet     '①「リスト」シートってどれ？
    Dim intListCount As Integer '②シート名の「数」は？
    Dim intLastSheet As Integer '③シートの一番後ろって何番目？
    Dim wsTemplate As Worksheet '④「テンプレート」シートってどれ？
    Dim strSheetName As String  '⑤「シート名」ってどれ？
    
    '１．「テンプレート」シートを複製する
        '１-１．「リスト」シート内の「シート名」の数を数える
            '①「リスト」シートってどれ？
            '②シート名の「数」は？
        '１-２．シート１番後ろを指定する
            '③シートの一番後ろって何番目？
        '１-３．「テンプレート」シートを複製する
            '④「テンプレート」シートってどれ？
    '２．複製したシート名を変更する
        '２-１．「リスト」シート内の「シート名」の値を取ってくる
            '⑤「シート名」ってどれ？
        '２-２．１-３で複製したシート名を２-１に書き変える
    '３．「リスト」シートのA1セルにカーソルを置く
End Sub