通常であれば、写真・図を貼り付けたい場合はコピーペーストして対応すると思いますが、
貼り付け位置が多い場合や、貼り付けのパターンが多ければコピペでの貼り付けは面倒です。

そこで今回はマクロVBAで変数・配列のように図を格納して好きな位置に

貼り付ける方法を紹介します。
是非参考にしてみてください。それではみていきましょう。

⬛︎忙しい人向けのコピぺ用プログラム

黄色の蛍光ペンの部分をお好みで打ち換えてください。

Sub 図を格納して貼り付け()

Dim WideValue, HighValue, PhotoName As String

For Each TARGET In ActiveSheet.Shapes '写真を繰り返し選択
　If Not Intersect(TARGET.TopLeftCell, Range("切り取り範囲")) Is Nothing And _
　　Not Intersect(TARGET.BottomRightCell, Range("切り取り範囲")) Is Nothing Then
　　　TARGET.Select False '指定範囲に入っていない写真は除外
　End If
Next TARGET

With Selection
　WideValue = .Width '幅を格納
　HighValue = .Height '高さを格納
　.Copy '対象をコピー
End With　

ActiveSheet.ChartObjects.Add(0, 0, WideValue, HighValue).Name = "Targerpicture" 'チャートの作成
ActiveSheet.ChartObjects("Targerpicture").Activate '作成したチャートをアクティブに
ActiveChart.Paste 'チャートに写真を貼り付ける
ActiveChart.ChartArea.Format.Line.Visible = msoFalse 'チャートの外枠をなくす

PhotoName = "保存するパス" & "\" & "貼り付け用写真.jpg"

With ActiveSheet.ChartObjects("Targerpicture")
　.Chart.Export PhotoName '写真を名前をつけて保存
　.Delete
End With

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
　　　　　　　　  FileName:=PhotoName, _
                          LinkToFile:=False, _
　　　　　　　　  SaveWithDocument:=True, _
　　　　　　　　  Left:=ActiveSheet.Range("貼り付け位置").Left, _
　　　　　　　　  Top:=ActiveSheet.Range("貼り付け位置").Top, _
　　　　　　　　  Width:=ActiveSheet.Range("貼り付けサイズ").Width, _
　　　　　　　　  Height:=ActiveSheet.Range("貼り付けサイズ").Height) '貼り付け

Kill PhotoName '写真を消す

End Sub

⬛︎プログラムの考え方について

まず結論から言うと配列や変数などに写真・図を格納することは不可能です。
しかし、似たような事をすることは出来ます。

様々な方法があるのかもしれませんが今回紹介する方法は
写真・図を一旦保存して、そのファイル名を変数に書き込み
その変数を用いて指定位置に貼り付けます。

なので手順としては

①指定範囲内にある写真・図を選択する
②写真・図を保存して、そのパスを変数に格納する
③指定位置に貼り付ける
④プログラム終了後は写真・図ファイルを削除する

と言った流れになります。
では実践編をみていきましょう。

⬛︎実践編:写真・図を格納して貼り付ける方法

では①から④の順に見ていきましょう。

・①指定範囲内にある写真・図を選択する

まずは格納したい写真・図を名前をつけて保存したいと思います。
注意点としてVBAで保存できるのは「Chart」となります。
「Chart」はグラフを意味します。

なのでイメージとして「Chart」を作成して
そこに指定した写真・図を貼り付けて写真・図ごと「Chart」を保存する
といった流れです。

ではまず、保存したい写真・図を選択します。
見本の写真は下図の通りです。

今回は指定範囲内にある写真・図を登録してみましょう。

構文はこちらです。

For Each TARGET In ActiveSheet.Shapes '写真を繰り返し選択

If Not Intersect(TARGET.TopLeftCell, Range("A1:D5")) Is Nothing And _
Not Intersect(TARGET.BottomRightCell, Range("A1:D5")) Is Nothing Then
TARGET.Select False '指定範囲に入っていない写真は除外
End If
Next 
TARGET

今回は見本で「A1からD5」にある写真・図を対象にしました。
なので「Range(“A1:D5”)) Is Nothing」で範囲をしぼっています。

仕組みとして「TopLeftCell」で写真の左上、「BottomRightCell」で写真の右下を検知し、
対象範囲内にあるか確認しています。

その後、範囲内に該当する写真・図については選択した状態を維持するようになります。
実行した結果はこちら。

これで選択は出来ましたが、選択した写真・図を
「Chart」に貼り付ける必要があります。
しかし、通常の状態で「Chart」を生成すると選択した写真・図のサイズとは
異なってしまいます。

そこで現在の写真・図のサイズを格納し、そのサイズに見合った
「Chart」を生成する必要があります。

ではプログラムを見ていきましょう。

Dim WideValue, HighValue

With Selection
WideValue = .Width '幅を格納
HighValue = .Height '高さを格納
.Copy '対象をコピー

End With

現状は対象の写真を選択している状態です。
その選択した写真を対象に「WideValue = .Width」で写真・図の幅を格納し、「HighValue = .Height 」で写真・図の高さを格納します。
さらに貼り付けるため、対象をコピーしています。

では、チャートを作成して、対象の写真を貼り付けてみましょう。
プログラムはこちら

ActiveSheet.ChartObjects.Add(0, 0, WideValue, HighValue).Name = "Targerpicture" 'チャートの作成
ActiveSheet.ChartObjects("Targerpicture").Activate '作成したチャートをアクティブに
ActiveChart.Paste 'チャートに写真を貼り付ける
ActiveChart.ChartArea.Format.Line.Visible = msoFalse 'チャートの外枠をなくす

まずはチャートの作成の構文はこちらです。

ActiveSheet.ChartObjects.Add(左端からの距離, 上端からの距離, 幅, 高さ).Name = "チャートの名前"

左端からの距離と上端からの距離については今回は写真として保存するだけなので
それぞれ「0」とします。
幅と高さについては、先ほど変数に格納した「WideValue」「HighValue」が該当します。

そして今回はチャートの名前を「Targerpicture」としました。
こちらを２行目のプログラムでアクティブ状態にします。

さらに3行目の「ActiveChart.Paste」でチャートに写真を貼り付けます。
そして最後にチャートの外枠を無くしました。外周に黒い線が残ってもいい場合はこちらは省略してください。

ではこれでChart形式の写真・図ができました。

・②写真・図を保存して、そのパスを変数に格納する

ではChart形式で保存できるようになったので、
指定フォルダに保存&変数にパスを格納していきましょう。

プログラムはこのようになります。

Dim PhotoName As String

PhotoName = "C:\検証ファイル\" & "貼り付け用写真.jpg"

With ActiveSheet.ChartObjects("Targerpicture")
.Chart.Export PhotoName
.Delete
End With

では仕組みを紹介します。
現在は①でチャート形式にした写真・図を作成している状態です。

まず変数で写真・図を保存する名前をフルパスを含めて決めています。
つまり、フルパスで指名したフォルダ・ファイル名で一旦
写真・図を保存するようになります。

見本では「ローカルディスクC」の「検証ファイル」に保存して、
写真・図名を「貼り付け用写真」としました。
写真・図なので拡張子を「.jpg」としています。

そして「Chart.Export＋先程のフルパス変数」で
写真・図として保存を実行します。

つまり、このフルパスが入った変数「PhotoName」が
画像を貼り付ける変数になります。

ちなみにここまでのプログラムを実行してみましょう。
指定ファイルにファイルが追加されました。

・③指定位置に貼り付ける

では実際に指定位置に貼り付けてみましょう。
まず構文から紹介したいと思います。

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
FileName:=ここにファイル名, _
LinkToFile:=False, _
SaveWithDocument:=TrueかFalse, _
Left:=左端からの貼り付け位置, _
Top:=上端からの貼り付け位置, _
Width:=写真・図の幅, _
Height:=写真・図の高さ)

では構文に当てはめていきましょう。
まず「FileName」は先程のフルパスが格納された変数「PhotoName」になります。

次に「LinkToFile」ですが図をグラフィック ファイルとリンクするかどうかを指定します。
今回は「False」にします。

「SaveWithDocument」については文書を保存するときに図も一緒に保存するかどうかを指定します。
今回は「True」にしておきましょう。

次に貼り付け位置についてです。
ここでは左端からの貼り付け位置が「Left」、上端からの貼り付け位置が「Top」となります。
ここには数値でもいいですが、セルを指定しても構いません。

今回は見本で「E7」に貼り付けたいと思います。

最後に写真のサイズを指定します。
写真の幅は「Width」、高さは「Height」で指定します。

通常のサイズを維持する場合は「-1」を入力します。
もちろん、直接サイズを入力しても構いません。

今回は見本で「E7」のセルのサイズに合わせて貼り付けます。

すべて足したプログラムはこちらです。

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
FileName:=PhotoName, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=ActiveSheet.Range("E7").Left, _
Top:=ActiveSheet.Range("E7").Top, _
Width:=ActiveSheet.Range("E7").Width, _
Height:=ActiveSheet.Range("E7").Height)

・④プログラム終了後は写真・図ファイルを削除する

写真・図を貼り付け終わったら最後に元の状態に戻すため
保存した写真・図を削除します。

削除する構文はこちら。

kill フルパス

では当てはめていきましょう。

フルパスは見本では「PhotoName」に格納しているので
「Kill PhotoName」だけで写真・図ファイルを削除できます。

これで一連の動作は完了です。

・プログラムまとめ

では①から④を組み合わせてみます。
結果はこちらです。

Sub 図を格納して貼り付け()

Dim WideValue, HighValue, PhotoName As String

For Each TARGET In ActiveSheet.Shapes '写真を繰り返し選択
　If Not Intersect(TARGET.TopLeftCell, Range("A1:D5")) Is Nothing And _
　　Not Intersect(TARGET.BottomRightCell, Range("A1:D5")) Is Nothing Then
　　　TARGET.Select False '指定範囲に入っていない写真は除外
　End If
Next TARGET

With Selection
　WideValue = .Width '幅を格納
　HighValue = .Height '高さを格納
　.Copy '対象をコピー
End With　

ActiveSheet.ChartObjects.Add(0, 0, WideValue, HighValue).Name = "Targerpicture" 'チャートの作成
ActiveSheet.ChartObjects("Targerpicture").Activate '作成したチャートをアクティブに
ActiveChart.Paste 'チャートに写真を貼り付ける
ActiveChart.ChartArea.Format.Line.Visible = msoFalse 'チャートの外枠をなくす

PhotoName = "C:\検証ファイル\" & "貼り付け用写真.jpg"

With ActiveSheet.ChartObjects("Targerpicture")
　.Chart.Export PhotoName '写真を名前をつけて保存
　.Delete
End With

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
　　　　　　　　  FileName:=PhotoName, _
                          LinkToFile:=False, _
　　　　　　　　  SaveWithDocument:=True, _
　　　　　　　　  Left:=ActiveSheet.Range("E7").Left, _
　　　　　　　　  Top:=ActiveSheet.Range("E7").Top, _
　　　　　　　　  Width:=ActiveSheet.Range("E7").Width, _
　　　　　　　　  Height:=ActiveSheet.Range("E7").Height) '貼り付け

Kill PhotoName '写真を消す

End Sub

長いですが、これで写真・図を格納して貼り付けるプログラムができました。
では実践してみましょう。

今回は「A1からD5」内の写真・図を格納して
「E7」に貼り付けます。

実行した結果はこちら。

狙い通り、貼り付けることができていますね。
サイズもセルの大きさに合わせて貼り付けてくれています。

⬛︎応用:見本のプログラム

ここからは先程のプログラムを応用したプログラムの事例を紹介します。

・格納した写真・図をブック内の全てのシートに貼り付ける。

まずは写真・図を格納して、ブック内のシート全ての指定位置に
貼り付けてみましょう。

今回は先頭のシートの「A1からD5」の中の写真・図を
他の全てのシートの「E7」に貼り付けるプログラムを見てみましょう。

Sub 図を格納して貼り付け()

Dim WideValue, HighValue, PhotoName As String, SheetNo, cycle

For Each TARGET In ActiveSheet.Shapes '写真を繰り返し選択
  If Not Intersect(TARGET.TopLeftCell, Range("A1:D5")) Is Nothing And _
     Not Intersect(TARGET.BottomRightCell, Range("A1:D5")) Is Nothing Then 
     TARGET.Select False '指定範囲に入っていない写真は除外
  End If
Next TARGET

With Selection
  WideValue = .Width '幅を格納
  HighValue = .Height '高さを格納
  .Copy '対象をコピー
End With

ActiveSheet.ChartObjects.Add(0, 0, WideValue, HighValue).Name = "Targerpicture" 'チャートの作成
ActiveSheet.ChartObjects("Targerpicture").Activate '作成したチャートをアクティブに
ActiveChart.Paste 'チャートに写真を貼り付ける
ActiveChart.ChartArea.Format.Line.Visible = msoFalse 'チャートの外枠をなくす

PhotoName = "C:\検証ファイル\" & "貼り付け用写真.jpg"

With ActiveSheet.ChartObjects("Targerpicture")
  .Chart.Export PhotoName '写真を名前をつけて保存
  .Delete
End With

SheetNo = Sheets.Count

For cycle = 2 To SheetNo Step 1
  Sheets(cycle).Activate
  Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
                           FileName:=PhotoName, _
                           LinkToFile:=False, _
                           SaveWithDocument:=True, _
                           Left:=ActiveSheet.Range("E7").Left, _
                           Top:=ActiveSheet.Range("E7").Top, _
                           Width:=ActiveSheet.Range("E7").Width, _
                           Height:=ActiveSheet.Range("E7").Height) '貼り付け
Next cycle

Kill PhotoName '写真を消す

End Sub

「SheetNo」に全体のシート数をカウントして
「For Next」で貼り付けてシート数分貼り付けるようにしています。

通常、シートを繰り返し選択する場合は「For Each 変数 In Worksheets」
を使用しますが、貼り付けるシートを変則的に応用するために
今回はシート番号で対象シートをアクティブにさせています。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください☟

Shapes.AddPicture メソッド (PowerPoint) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
本記事の内容を活用すると、図を変数のように活用することができます。

エクセル内で図を定期的に指定位置に貼り付けたりする際には便利です。
署名の貼り付けなどにも活用できますね！

是非参考にしてみてください。
それでは次回の記事でお会いしましょう。

コピペまとめ記事は下記リンクをご参照ください。

【マクロVBA㉟】コピー&ペースト全集！セル・指定範囲・行・列のコピーと様々な貼り付け方法 ► 独学エクセル塾 (dokugakuexcel.com)

今回は変数を用いた行・列のコピー方法を紹介します。
変数を使用するとなると少し工夫が必要になってきます。

通常の行・列のコピーについては下記の記事を参考にしてみてください。

【マクロVBA】行・列のコピー！１つ・複数の行・列のコピーをして形式を指定して貼り付ける方法とは ► 独学エクセル塾 (dokugakuexcel.com)

それでは見ていきましょう。

⬛︎こんなことができるようになる！

・変数を使用して行・複数行をコピーすることができる
・変数を使用して列・複数列をコピーすることができる

⬛︎忙しい向けのコピペ用のプログラム

・複数行のコピー

Sub 変数を用いて複数の行数をコピーする()

Dim N1 As Long, N2 As Long
N1 = 3 'コピーしたい開始行数を入力する
N2 = 5 'コピーしたい終わり行数を入力する
Rows(N1 & ":" & N2).Copy

End Sub

・複数列のコピー

Sub 変数を用いて複数の列をコピーする()

Dim N1 As Long, N2 As Long
N1 = 3 'コピーしたい開始行数を入力する
N2 = 10 'コピーしたい終わり行数を入力する
Range(Columns(N1), Columns(N2)).Copy

End Sub

⬛︎構文の説明

・単体の行・列のコピー

行:Rows(行番号).Copy
列:Columns(列番号).Copy または　　Columns(“列英字”).Copy

・複数の行・列のコピー

行:Rows(開始行番号:終わり行番号).Copy
列:Range(Columns(開始列番号),Columns(終わり列番号)).Copy

⬛︎変数を使用した行のコピー

・１つの行のコピー

まずは1行のコピーをする方法を紹介します。
簡単なプログラムなので見本から見ていきましょう。

Sub 変数の行数をコピーする()

Dim N As Long
N = 6 'コピーしたい行数を入力する
Rows(N).Copy

End Sub

変数Nに数値を格納して「Rows(N)」のように当てはめています。
これで変数Nに格納した数値の行番号のコピーが可能となります。
見本ではN＝6なので6行目がコピーされます。

それでは実行してみましょう。
結果はこのようになります。

6行目がコピーできましたね。

・複数の行をコピー

今度は複数行のコピーを見ていきましょう。
こちらは一工夫必要になります。

まず通常の複数行のコピーの例を見ていきましょう。
Rows(3:5).Cooy

今回の見本は3から5行目のコピーとなります。

では変数を用いた場合はどうなるのでしょうか。
構文はこちらです。

Rows(開始行番号:終わり行番号).Copy

今回は見本で「開始行番号」を「N1」、「終わり行番号」を「N2」とします。

「開始行番号:終わり行番号」の形にしないといけないのですが、
本来数値の入る行番号に変数の文字列が入力されます。
すると区切りの「:」が検出されなくなるため、「&」と「”」で分ける必要があります。

結果としてこのようになります。

Rows(N1 & “:” & N2).Copy

ちなみに「&」と「”」を省略すると「N1:N2」という文字列で検出されるため、エラーとなります。

では「3行目から５行目」をコピーするプログラムを紹介します。

Sub 変数を用いて複数の行数をコピーする()

Dim N1 As Long, N2 As Long
N1 = 3 'コピーしたい開始行数を入力する
N2 = 5 'コピーしたい終わり行数を入力する
Rows(N1 & ":" & N2).Copy
End Sub

では実際に実行してみましょう。
結果はこのようになります。

狙い通り3から5行目をコピーすることができました。

⬛︎変数を使用した列のコピー

これまでは行のコピーでしたが、今度は列のコピー方法について紹介します。
まず前提条件として、列のはAやCといった「英字」で表されます。

しかし英字は計算できない上に文字列なので、VBAには不向きになります。
なので今回は列番号を元に説明していきます。
列番号の考え方として「A」は「1」、「B」は「2」など英字が進むにつれて数値が増える仕組みになります。

しかし列番号を数えるのは大変ですよね。
そこで簡単に列番号を求める方法を紹介します。

まず、求めたい列を選択します。
ここでは「DA列」を見本にしてみましょう。

この状態で「Ctrl」+「Shift」を押したまま「←」を押します。
すると列番号が表示されます。

これで「DA列」の列番号は「105」番目ということがわかりました。

・1つの列のコピー

まず、1列をコピーする方法についてみていきましょう。
こちらも先にプログラムから見ていきましょう。

Sub 変数の列をコピーする()

Dim N As Long
N = 6 'コピーしたい行数を入力する
Columns(N).Copy

End Sub

列のコピーの部分は「N」に当てはまります。
「Columns(N)」となっており、N=6を読み取っているので6列目をコピーすることになります。
Aから数えると6つ目はF列なのでF列をコピーしているプログラムになりますね。

では実行してみましょう。
結果はこのようになりました。

F列をコピーすることができました。

・複数の列のコピー

ここが今回の山場になります。
変数を用いた複数列のコピーを行ってみましょう。

まず、例として「C列からJ列」をコピーしてみたいと思います。
では通常のプログラムを見てみましょう。

Columns(“C:J“).Copy

簡単ですね。「Columns(“C:J”)」でC列からJ列を指示してコピーしています。
しかし今回は変数を使用します。
さらに冒頭で説明した通り、汎用性を考えて列番号で指示してみましょう。

では構文を紹介します。

Range(Columns(開始列番号),Columns(終わり列番号)).Copy

こちらの開始列番号と終わり列番号に変数を組み込むだけです。
今回は見本で「開始列番号」を「N1」、「終わり列番号」を「N2」とします。
それではプログラムを見ていきましょう。

Sub 変数を用いて複数の列をコピーする()

Dim N1 As Long, N2 As Long
N1 = 3 'コピーしたい開始行数を入力する
N2 = 10 'コピーしたい終わり行数を入力する
Range(Columns(N1), Columns(N2)).Copy

End Sub

C列はAから数えて「3」番目なので開始列番号には「3」
J列はAから数えて「10」番目なので終わり列番号には「10」が入ります。

では実行してみましょう。
結果はこのようになりました。

狙い通りC列からJ列までコピー出来ていますね。

⬛︎貼り付けの形式とプログラム

これまではコピーの方法についてまとめました。
そのコピーした行・列を貼り付けるのですが、値のみや書式など
様々な貼り付け方法が存在します。

そこで各貼り付け方法を見ていきましょう。

貼り付けの表を参照してください。

貼り付け位置.PasteSpecial Paste:=貼り付け内容,Operation:=演算内容,SkipBlanks:=True Or False,Transpose:=True Or False)
※PasteSpecial以降は省略可

各貼り付けのオプションを下の表にまとめました。

では例を見てみましょう。

数値のみ貼り付けするときは…
貼り付け位置.PasteSpecial Paste:=xlPasteValues

コメントの貼り付けと行列を入れ替えるときは…
貼り付け位置.PasteSpecial Paste:=xlpasteComments, Transpose:=True

それぞれの貼り付け方法の意味は通常の貼り付けの記事でまとめてますので、下記リンクにてご覧ください。

貼り付けの記事についてはこちらから☟

【様々な貼り付け】値の貼り付け・行と列を入れ替えて貼り付ける方法などのオプション一覧 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが マイクロソフト公式の説明については下記のリンクを参照してください。☟

Copy メソッド (Visual Basic for Applications) | Microsoft Docs

⬛︎まとめ

いかがだったでしょうか。
変数を用いて、行・列を選択するのには少し工夫が必要ですね。

しかし慣れてしまえば簡単に行・列単位でコピーできます。
さらに今回紹介した数値での行・列の選択は計算とも組み合わせることが
可能なので是非活用してみてください。

それでは次回の記事でお会いしましょう。

前回の記事はこちらから☟

【マクロVBA㉜】行の高さ・列の幅を指定の数字・ポイント・センチに変更、自動調整する方法 ► 独学エクセル塾 (dokugakuexcel.com)

今回は指定した行の高さ・列の幅を取得する方法、さらに活用する方法について紹介したいと思います。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム

青文字をカスタムして使用してください

・行の高さ

Sub 行の高さを変数Nに格納()
Dim N As Variant
N = Rows(ここに行番号を入力).RowHeight
End Sub

・列の幅

Sub 列の幅を変数Nに格納()
Dim N as Variant
N= Columns(ここに列番号を入力).Width
End Sub

■行の高さを取得する

・取得方法

まず行の高さを取得する方法を見てみましょう。
プログラムはこのようになります。

変数・出力先=Rows(取得したい行番号).RowHeight

RowHeight はHeight でも構いません。

では見本で変数Nに3行目の高さを格納してみましょう。

Sub 行の3行目の高さを変数Nに格納()

Dim N As Variant

N = Rows(3).RowHeight

End Sub

実行した結果はこちらです。

変数Nに「13.2」が格納されていますね。
実際に行の高さを確認すると「13.2」なので機能している事がわかります。

・活用方法

では先程取得した行の高さを活用してみましょう。

今回は見本として3行目の高さを4から6行目にも反映させてみたいと思います。

ではプログラムです。

Sub 行の3行目の高さを4から6行目に反映()

Dim N as Variant,A as Long

N= Rows(3).RowHeight

For A＝4 to 6 step 1
Rows(A).RowHeight=N
Next A

End Sub

実行した結果はこのようになります。

狙い通り3行目の高さを4から6行目に反映させる事ができました。

・複数行の行の高さを取得する

今度は複数行の行の高さの取得方法を見ていきましょう。
これまではRowHeightを使用して行の選択をしてきましたが、RowHeightは1行のみしか対応出来ないので「Height」を使用します。

使用方法としては
変数・出力先=Rows(“先頭行:最終行”).Height
のように使用します。

では例をみていきましょう。

今回は3行目から6行目までの行の高さをまとめて取得してみたいと思います。

プログラムはこのようになります。

Sub 行の3行目から6行目までの高さを変数Nに格納()

Dim N As Variant

N = Rows(“3:6”).Height

End Sub

結果はこのようになります。

行数の高さはすべて13.2にしています。
3から6行目の行の高さの和は「52.8」なので問題なく機能していますね。

■列の幅を取得する

・取得方法

次に列の幅を取得する方法を見てみましょう。
プログラムはこのようになります。

変数・出力先=Columns(取得したい行番号). ColumnWidthまたはWidth

ColumnWidthとWidthを扱う上での注意点は下記の通りです。

ColumnWidthは幅の設定する際の数値に用いられる単位で半角文字1文字を「1」に置き換えた数値ですが
Widthは行の高さでも用いられる「ポイント」と呼ばれる単位なので
Widthで取得した値を別の列に反映させても列の幅は異なってしまいます

では見本で変数NにE列目の高さを格納してみましょう。

Sub E列目の幅を変数Nに格納()

Dim N as Variant

N= Columns(5).Width

End Sub

実行した結果はこちらです。

変数Nに「8.11」が格納されていますね。
実際に列の幅を確認すると「8.11」なので機能している事がわかります。

・活用方法

では先程取得した列の幅を活用してみましょう。

今回は見本としてB列目の幅をDからF列目にも反映させてみたいと思います。

ではプログラムです。

Sub B列の幅をDからF列目に反映()

Dim N as Variant,A as Long

N= Columns(2).ColumnWidth

For A＝4 to 6 step 1
Columns(A).ColumnWidth=N
Next A

End Sub

実行した結果はこのようになります。

狙い通りB列目の幅をDからF列目に反映させる事ができました。

・複数列の列の幅を取得する

では今度に複数列の列の幅の取得方法を見ていきましょう。
これまではColumnWidthを使用して列の選択をしてきましたが、ColumnWidthは1行のみしか対応出来ないので「Width」を使用します。

ここで再度、「ColumnsWidth」と「Width」の違いを見てみましょう。

ColumnsWidth：既定フォントの文字数。列の幅を決める際はこちらの数値となる
Width：行の高さと同じ「ポイント」と呼ばれる単位

では実行してみましょう。

使用方法としては
変数・出力先= Columns(“先頭列の英字:最終列の英字”). Width
のように使用します。

では例をみていきましょう。

今回はC列目からE列目までの列の幅をまとめて取得してみたいと思います。

プログラムはこのようになります。

Sub C列目からE列目までの幅を変数Nに格納()

Dim N as Variant

N= Columns(“C:E”). Width

End Sub

結果はこのようになります。

CからE行目の列の幅の和は「144」ポイントという事がわかりました。

⬛︎応用について

これまでは行の高さ・列の幅の取得から活用まで見てきました。
そこで行の高さと列の幅の単位の違いもわかりましたね。

この違いで、例えば正方形のセルを作るにはひと工夫必要になります。

より詳しい違いや長さを揃えるためにはといった内容で別の記事にまとめてますので参考にしてみてください。

記事はこちらから☟

行の高さと列の幅の数値が異なる理由！単位の説明や長さを揃えて正方形にする方法など ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Slicer.RowHeight プロパティ (Excel) | Microsoft Learn

Range.ColumnWidth プロパティ (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
行の高さ・列の幅を取得して他の行・列にも反映させたりなど様々な事ができますね。

ぜひ活用してみてください。

それでは次回の記事でお会いしましょう。

今回は「For Next」などの繰り返し処理のデバッグについてです。
For Nextの記事についてはこちらから☟

【マクロVBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 ► 独学エクセル塾 (dokugakuexcel.com)

繰り返し処理は繰り返す回数が多い場合はデバッグは不便ですよね。
Ｆ8を連打して実行するのも不便ですし、ブレークポイントを使用しても
処理するプログラム行は手動で実行しないといけません。

そこで今回は繰り返し処理で設定した変数・条件まで実行し、停止させる方法を紹介します。
それでは見ていきましょう。

■見本のプログラム

まず、本記事の内容を紹介するにあたり、見本のプログラムを用意しました。
下図をご覧ください。

3行目から25行目まである、B・C列の数値の和をE列に出力したいと思います。
見本でプログラムを作成しました。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

では「F5」を押して全実行してみましょう。
結果はこのようになります。

狙い通り数値1と2を足すことができました。
では本題に移りたいと思います。

下図をご覧ください。

仮に15列目までは確認が取れており、15行目の位置で停止したいと思います。
ここで今回の記事の設定した変数・条件まで実行し、停止させる方法が必要になります。
では実際に見ていきましょう。

■ウォッチウインドウを活用する

では本題に移りたいと思います。
使用するのはウォッチウインドウになります。

・ウォッチウインドウを表示する

ウォッチウインドウを使用するにあたり、使用したことがない方もおられると思うので
ウォッチウインドウの表示方法を説明します。

まず「表示」のメニューを選択してください。
そこから「ウォッチウィンドウ」を押せばウォッチウィンドウを表示することができます。

すると下部にウォッチウィンドウが表示されます。

今回はこの部分を活用する内容です。

・ウォッチ式を追加する

では再度、内容を見ていきましょう。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

では3行目から25行目まで計算するプログラムを16行目で止めてみましょう。

まずウォッチウインドウで右クリックを押します。

メニューに「ウォッチ式の追加」の項目があるので選択します。
すると下図のようなメニューが表示されます。

今回は15行目を計算した後に止めたいので
A=16になったときに停止します。

そこでウォッチ式の式を「A=16」に設定します。
ウォッチの種類を「式がTrueのときに中断」にします。

これにより「繰り返し変数のAが16になったタイミングで処理を停止」するという意味になります。
それでは実行してみましょう。結果はこのようになります。

狙いの停止位置で止まってくれました。

さらに別の方法も紹介します。
今回は15行目を計算した状態で止まってくれればいいので
「Cells(15,5)<>””」または「Range(“E15”) <> “”」を式として入力することで
E15が空白でなくなったら停止するように設定することも可能です。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

[ウォッチ] ウィンドウ | Microsoft Learn

■まとめ

いかがだったでしょうか。
ウォッチウインドウはデバッグ（動作確認)にとても役に立ちます。

ウォッチウインドウについてはこちらから☟

【マクロVBA知識 31】値が変化・設定した条件まで実行・停止!ウォッチウインドウの表示・使用方法 ► 独学エクセル塾 (dokugakuexcel.com)

でひ本内容を身に着けて、動作確認を効率よく実行してみてください。
それでは次回の記事でお会いしましょう。

【マクロVBA知識 28】指定した位置まで実行する!ブレークポイント・カーソル行の前まで実行とは ► 独学エクセル塾 (dokugakuexcel.com)

今回はデバッグ操作で役立つ変数の確認・変更、計算結果の出力や
プログラムの実行ができるイミディエイトウインドウについて紹介したいとします。

特に変数の確認や配列内のデータ確認はとても便利なのでぜひ身に着けてみてください。

それでは見ていきましょう。

■イミディエイトウインドウの表示方法について

まず、イミディエイトウインドウの表示方法について紹介します。
イミディエイトウインドウは通常は隠れていますが、設定して表示することで
初めて使用することができます。

表示する方法は2種類あります。

①ショートカットキーを使用する
②表示メニューから表示する

では詳しく見ていきましょう。

・①ショートカットキーを使用する

まずはショートカットキーを使用する方法についてです。
ショートカットキーは手間が少なくとても便利なのでおすすめです。

イミディエイトウインドウを表示するショートカットキーは「Ctrl + G 」になります。
では押してみましょう。

イミディエイトウインドウを表示することができました。

・②表示メニューから表示する

次は表示メニューからイミディエイトウインドウを表示する方法について紹介します。
まず「表示」のメニューを選択してください。

そこから「イミディエイトウインドウ」を押せばイミディエイトウインドウを表示することができます。

では実際にイミディエイトウインドウを活用してみましょう。

■イミディエイトウインドウを活用する

ではイミディエイトウインドウを用いて実際にどんなことができるのか紹介したいとします。

・変数を確認・変更する

まず変数の確認について紹介します。
例としてFor Nextの見本を用意しました。

内容としてB列・C列の数値の和をE列に表示するといった内容です。

こちらの処理プログラムはこのようになります。

Sub 数値1と2の和2()

Dim A As Long

For A = 3 To 7 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

プログラムの内容としてはAは3から7まで繰り返す処理となってます。
しかしデバック途中に変数はどのくらい進んだのかきになりますよね。

では下記の処理まで進めた状態で変数の確認をしてみます。

ではイミディエイトウインドウを活用しましょう。
使用方法として「？」の後に知りたい変数を打ち込みます。
今回は変数Aを知りたいので「?A」となりますね。

この状態で「Enter」を押してみましょう。

「5」という結果が出力されました。
処理はA=3行目から始まっって5行目で止まっているので「5」が出力された仕組みです。

変数の変更については下記記事でまとめてますので是非参考にしてみてください☟

【マクロVBAデバッグ】繰り返し処理の変数を任意の数値・途中から実行する方法について ► 独学エクセル塾 (dokugakuexcel.com)

・セルの数値・文字を確認する

次にセルの内容の確認方法を見てみましょう。
先ほどの見本を使用します。

見本で「E3」の結果を知りたいとします。
使用方法として「？」の後に知りたい変数を打ち込みます。
今回はE3の番地の数値・文字を知りたいので「?Cells(3,5)」となりますね。
「?Range(“E3”)」でも同じ意味です。

この状態で「Enter」を押してみましょう。

E3に入力されてある「46」が出力されました。

さらに配列内の数値・文字も確認してみましょう。

・配列内の数値・文字を確認する

次に配列内の数値・文字を確認してみましょう。
今回はB3からC7を変数Aという配列内に格納しています。

Sub 配列内の数値を確認()

Dim A As Variant

A = Range(“B3:C7”)

End Sub

では配列Aの2行目の2列目の数値をイミディエイトウインドウで確認してみましょう。
配列Aの2行目の2列目は「A(2,2)」となります。

そしてこれまで通り先頭に「?」をイミディエイトウインドウに打ち込み
そのあとに「A(2,2)」を打ち込んで「Enter」を押します。

結果はこのようになります。

2行目の2列目である「48」が出力されました。
今回は配列内の行・列数は少ないですが
大量のデータを格納している数値を確認する際はとても便利ですね。

・文字・数値を入力・計算する

あまり使用する機会はないと思いますが
イミディエイトウインドウを用いて文字・数値を打ち込むことも可能です。

使用方法は簡単で、通常の文字・数値を打ち込むプログラム・計算するプログラムを
イミディエイトウインドウに入力し、「Enter」を押すだけです。

では見本を見てみましょう。

「E3」に「B3」と「C3」を足した数値を入力するとします。
プログラムは「Range(“E3”)=Range(“B3”)+Range(“C3”)」としましょう。

こちらをイミディエイトウインドウに直接打ち込みます。

実行した結果はこのようになります。

計算できていますね。
変数を用いて1回限りの計算をしたい時などには使用できるかもしれませんね。

■イミディエイトウインドウに結果を表示する

これまではイミディエイトウインドウから結果などを確認していましたが
結果をイミディエイトウインドウに表示することもできます。

下図の見本をご覧ください。

数値1と数値2があります。
今回は2つの和をイミディエイトウインドウに表示してみましょう。

使用するのは「Debug.Print」になります。
使用方法としてDebug.Printの後にイミディエイトウインドウに表示したい
プログラムを入力します。プログラムは変数でもいいですし、計算式でも構いません。

では下記プログラムをご覧ください。

Sub イミディエイトウインドウに表示()

Debug.Print Cells(3, 2) + Cells(3, 3)

End Sub

実行した結果はこのようになります。

数値1と数値2の和が表示されました。
変数の結果や式の結果を表示したい時に使用できますね。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

イミディエイト ウィンドウ (VBA) を使用する | Microsoft Learn

■まとめ

いかがだったでしょうか。
特に配列内の数値・文字の確認はイミディエイトウインドウを
活用すれば簡単に確認できるのでとても便利です

ぜひデバッグなどする際にはイミディエイトウインドウを用いて
効率的に実行してみてください。

それでは次回の記事でお会いしましょう。

For Nextの記事についてはこちらから☟

【VBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 ► 独学エクセル塾 (dokugakuexcel.com)

For Nextの繰り返し処理が多い場合はデバッグは大変ですよね。
Ｆ8を連打して実行するのも不便ですし、ブレークポイントを使用しても
処理するプログラム行は手動で実行しないといけません。

そこで今回はFor Nextの変数の数値を任意の数値に変え、途中から実行する方法を紹介します。
それでは見ていきましょう。

■見本のプログラム

まず、本記事の内容を紹介するにあたり、見本のプログラムを用意しました。
下図をご覧ください。

3行目から25行目まである、B・C列の数値の和をE列に出力したいと思います。
見本でプログラムを作成しました。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

では「F5」を押して全実行してみましょう。
結果はこのようになります。

狙い通り数値1と2を足すことができました。
では本題に移りたいと思います。

下図をご覧ください。

仮に15列目までは確認が取れており、16行目から実行したいと思います。
方法としては2つあります。

内容は下記の通りです。

①イミディエイトウインドウを使用して変数を変更する
②変数の変更をプログラムに織り込む

悩んでない状態でこの記事をご覧になった方は
ForのAを16から開始すればいいと思うでしょうが
重複した繰り返し処理では本内容の技術が必要になってきます。

それでは見ていきましょう。

■イミディエイトウインドウを使用して変数を変更する

まずはイミディエイトウインドウを使用する方法についてです。
こちらは現在のプログラムを変更することなく、繰り返し処理の変数を変更できるので
おすすめです。

再度プログラムを見ていきましょう。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

まず繰り返し処理の開始位置まで実行します。
見本のプログラムでは「Cells(A, 5) = Cells(A, 2) + Cells(A, 3)」までですね。

現在のAは3からスタートなので最初の「3」になってます。

しかし今回は16行目から確認（デバッグ）したいので
繰り返し処理をすることなくA=16にしないといけません。

ここで使用するのはイミディエイトウインドウです。
まず、イミディエイトウインドウを表示します。

表示方法として「Ctrl + G 」または
メニューの「表示」から「イミディエイトウインドウ」を押します。

すると下図のようなウインドウが現れます。

この記事ではイミディエイトウインドウについて詳しくは表示しませんが
こちらで変数の変更が可能です。

今回は変数Aの数値を「16」に変更したいので
「A=16」とイミディエイトウインドウに打ち込みます。

そして「Enter」を押してみましょう。
結果はこのようになります。

繰り返し処理をしなくても変数を狙いの「16」にすることができました。
ではプログラムを全実行してみましょう。

16行目から実行できてますね。

この方法はプログラムの変更がなく、動作確認（デバッグ）後もプログラムを元に戻したりなど
手戻り作業がないのでとても便利です。

■変数の変更をプログラムに織り込む

次に変数の変更をプログラムに織り込む方法について紹介します。
こちらの内容はプログラム変更によって直接変更するため
イメージしやすいですが、間違った手順で実行すると無限ループになってしまうので注意が必要です。
イミディエイトウインドウでイメージしにくい方はこちらの方法をご活用ください。

では再度プログラムを見てみましょう。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

この状態だとAは3からスタートですが動作確認（デバッグ）ではAを16からスタートしたいとします。

つまりA=16をプログラムに組み込みます。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
A = 16
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

とてもシンプルですね。
しかしこのまま全実行すると無限ループになっています。

理由としてFor で　Aを3から25まで実行するはずですが
Aを16に置き換えて処理を終えてもAが再度16に置き換えるので
無限ループになる仕組みです。

なので動作確認（デバッグ）方法としてA=16まで実行した後は
A=16を無効または削除する必要があります。

無効または削除した後は全実行で構いません。

無事、16行目から実行できてますね。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

イミディエイト ウィンドウ (VBA) を使用する | Microsoft Learn

■まとめ

いかがだったでしょうか。
デバッグで繰り返し処理は曲者ですよね。

本記事の内容を活用して、動作確認（デバッグ）を効率よく実行してみてください。
変数を直接変更する方法を実行する場合は無限ループになってもいいように保存を先にしておいた方がいいです。

それでは次回の記事でお会いしましょう。

数値や文字を入れる部屋みたいなものですね。

さらにその変数を使用して計算や比較など行うことができる優れものです。
とても便利な知識になってるので是非参考にしてみてください。

それでは見ていきましょう。

■変数の一覧

よく使用されるものから順に説明します。

Single、Doubleなどもありますが、ほとんど使用しません。

ここでは

文字＝String
整数＝Long
小数点あり数値・配列・その他＝Variant

これだけでプログラムは成り立ちます。
初めはこの３つを覚えておけば問題はありません。

必要に応じでほかの変数は使用してみてください。

■変数の宣言の方法

次に変数の宣言方法についてです。

宣言については…

Dim 変数の名前　As 変数の型

このように宣言します。

変数の名前はA.B.Cでも　「あ」「い」「う」でも、なんでも構いません。
ただし、数値のみの変数名はエラーになってしまいます。

なので数値を使用したい場合は「A1」のように文字列を入れないといけません。

これならエラーになりませんね。

■変数に数値・文字の格納

では実際に変数に数値を入れてみます。

今回は「A」と「B」に数値
「あ」と「い」に文字を入れてみます。

変数への宣言はこのようになります。

Sub 変数の宣言()

Dim A As Long ‘数値の変数1
Dim B As Long ‘数値の変数2

Dim あ As String ‘文字の変数1
Dim い As String ‘文字の変数2

End Sub

これにより「A」と「Ｂ」には数値を、「あ」と「い」には文字を入れれるようになりました。

次に実際に数値を変数に入れてみます。
入れる方法はとても簡単です。

変数名＝入れたい文字・数値

これで大丈夫です。

つまり「A」に3、「B」に5
「あ」に独学、「い」にエクセルを入れるとするとこのようになります。

Sub 変数の宣言()

Dim A As Long ‘数値の変数1
Dim B As Long ‘数値の変数2

Dim あ As String ‘文字の変数1
Dim い As String ‘文字の変数2

A = 3
B = 5

あ = “独学”
い = “エクセル”

End Sub

文字に関しては「”」で挟むのを忘れないでください。

１度この状態で1行づつ実行してみましょう。
一行づつの実行方法についてはこちらから☟

【VBA知識 5】プログラムを１行ずづ実行・すべて実行をする方法 – 独学エクセル塾 (dokugakuexcel.com)

この状態で変数名にカーソルを合わせると現在、どのような数値が入っているか確認できます。
現在は「あ」にカーソルを合わせているのですが「独学」が入っていることが確認できました。

■変数の活用

それでは格納した変数を実際に活用してみましょう。

まず、B2に「変数A」×「変数B」を表示します。答えが3*5なので15になれば成功です。
次にB4には「変数あ」と「変数い」の文字をつなげてみましょう。
それぞれ、「独学」と「エクセル」の文字が入っているので「独学エクセル」で成功です。

プログラムはこのようになります。

Sub 変数の宣言()

Dim A As Long ‘数値の変数1
Dim B As Long ‘数値の変数2

Dim あ As String ‘文字の変数1
Dim い As String ‘文字の変数2

A = 3
B = 5

あ = “独学”
い = “エクセル”

Cells(2, 2) = A * B ‘Cells(2,2)はRange(“B2”)でも同等
Cells(4, 2) = あ & い ‘Cells(4,2)はRange(“B4”)でも同等

End Sub

では実行してみましょう。

うまく出力することができました。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

変数を宣言する (VBA) | Microsoft Learn

■まとめ

内容は以上です。
VBAを学ぶ上で欠かせない変数でしたが、いかがだったでしょうか。

変数の種類は多いですが使用するものは限られています。
用途によって使い分けてみてください。

それでは次回の記事でお会いしましょう。次回の記事はこちらから☟

【VBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 ► 独学エクセル塾 (dokugakuexcel.com)