ChatGPTとは対話型のAIで、こちらの問いかけに対して

人工知能が答えてくれるツールになります。

なんとこちらのChatGPTを活用することで
自動でマクロVBAのソースコードを生成することができます。

今回は、その一例と活用方法について紹介したいと思います
それでは見ていきましょう！

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

ChatGPTを活用して、マクロVBAのソースコードを自動生成することができる

またはソースコードを修正することが出来るようになる。

⬛︎ChatGPTとは

ChatGPTとはOpen AIが運営しているシステムであり
対話型の人工知能システムとなっています。

公式ページはこちら☟

• https://openai.com/blog/chatgpt/

ログインページはこちら☟

• https://chat.openai.com/

⬛︎ChatGPTを活用したソースコード生成方法

・事例1

まず、簡単なソースコードを作成してみましょう。
デートしてセル番地B3の文字をコピーして
D3に貼り付けたいと思います。

ではChatGPTを開いて
「マクロVBAでB3のセルをコピーしてD3に貼り付けるソースコードを教えて」
と、打ち込んでみたいと思います。

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

なんと、ソースコードを自動生成することができました。

Sub CopyPaste()
Range("B3").Copy Destination:=Range("D3")
End Sub

さらにコードの説明までしてくれます。
説明書きは下記の通りです。

上記のコードは、 Range 関数を使用して、 B3 セルを選択し、その値を Copy メソッドでクリップボードにコピーし、 Destination 引数を使用して D3 セルに貼り付けることができます。このコードを実行するには、ExcelのVBAエディターで新しいマクロを作成し、コードを貼り付けて実行する必要があります。

とても便利ですね。

それでは、こちらのソースコードを貼り付けて実行してみましょう。

例でB3に「あいう」と文字を打った状態で
実行してみたいと思います。

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

ちゃんと動作してくれていますね。
自動でソースコードが生成できるなんて、とても便利な機能ですね。

・事例2

今度は少し難しいソースコードを作成しましょう。
例として、B列の2行目から10行目まで数値が入っています。
さらにD列にも同様に、2行目から10行目まで数字が入っています。

そして、B列とD列を合わせた数値をF列に表示させたいと思います。
なので、繰り返し処理が必要になってきます。

ではChatGPTに聞いてみましょう。
今回は「B列の2行目とD列の2行目を足した数をF列に表示するマクロVBAのソースコードを生成してください。さらに2行目から10行目まで同様の動作を繰り返しするソースコードにしてください。」
と聞いてみたいと思います。

いじわるですこし日本語も片言にしています。

それでは入力してみましょう。
結果はこのようになりました。

Sub SumColumns()
Dim i As Integer
For i = 2 To 10
Range("F" & i).Value = Range("B" & i).Value + Range("D" & i).Value
Next i
End Sub

説明書きもこのようになってます。

このコードは、 For ループを使用して、 i 変数を2から10までの値に設定し、 Range 関数を使用して、 B 列と D 列の各行の値を足し、 F 列の同じ行に結果を表示します。このコードを実行するには、ExcelのVBAエディターで新しいマクロを作成し、コードを貼り付けて実行する必要があります。

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

すごいです。
ここまで自動でできると少し悲しくなってしまいますね。

AIの時代は迫ってきています。

製品選定方法・オススメの購入方法についてはこちら☟

Excel・Officeの価格比較！あなたに合ったオススメの製品の選定方法から購入まで ► 独学エクセル塾 (dokugakuexcel.com)

■まとめ

いかがでしょうか。
ChatGPTでのマクロVBAの自動生成は驚きだったのではないでしょうか。

簡単なプログラムではとても便利だと思います。

とは言いつつも、基礎知識は持っておくべきというのが個人の意見です。
ソースコードも通常はもっと複雑で変数も様々な場所で連携したりすると思います。

しかしその動作をすべて言語化することも難しいですよね。
さらにエラーが起きても、そのコードの意味が理解できていないと
対応すらできないといった点もあります。

しかし、見本を作成したりコードの１部を作成したり、
どの関数を使えばいいのかわからない時にはとても重宝するシステムだと思います。

是非参考にしてみてください。

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

その際に通常のメニューにある実行の停止はグレーアウトして
選択できないため、プログラム実行が終わるまで待つ方もいるのではないでしょうか。

そこで今回はキーボード操作のみでできる実行中のコードを
停止させる方法について紹介します。

作業自体もとても簡単なので是非参考にしてみてください。
それでは見ていきましょう。

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

・実行中のプロシージャを強制的に途中停止できる。
・処理中のコードを途中停止できる

⬛︎実行コードを強制停止・終了する

では本題に入っていきましょう。
見本で下記のような簡単なコードを用意しました。

Sub 繰り返し処理()
Dim Time1 As Double, Time2 As Double, Result As Double
Dim Cycle As Long

Time1 = Timer
For Cycle = 1 To 1000 Step 1
 Cells(1, 1) = "=SUM(D:D)"
 Cells(1, 1) = "=SUM(D:D)" 
 Cells(1, 1) = "=SUM(D:D)"
Next Cycle

Time2 = Timer
Result = Time2 - Time1
MsgBox Result & "秒で処理しました"
End Sub

内容としてはセル番地A1からA3にＤ列の合計の算出を
SUM関数を用いて10000回繰り返すコードになります。

見本なので無意味な繰り返しをしていますが
こちらを実行すると「138秒」かかってしまいます。

一度実行してしまうと止まるまでに約２分待たないといけないので
誤動作時にはとてもめんどくさいです。
こちらを実行中に途中で止めてみましょう。

使用するキーは「エスケープキー」になります。
大半のキーボードでは左上に配置されており「Esc」と記されていると思います。

では実際に「Escキー」を活用してみましょう。
活用方法は簡単で、実行中に押すのみです。

では先程のコードを実行して「Escキー」を押してみたいと思います。
結果はこのようになりました。

「コードの実行が中断されました。」というメッセージが表示されました。
よく、エラー時に表示されるメッセージです。

では確認も含めてデバッグを押してみましょう。

変数Nは本来であれば10000回繰り返しますが
543回で止まっています。

つまり強制的に停止が出来たことになります。

とても簡単ですね。

⬛︎停止後の復帰方法

ここからは停止の復帰方法です。
デバッグ作業をされた事がある方は復習になりますが
一連の復帰方法を見ていきましょう。

・完全に実行を中断したい場合

現在の状態はあくまで強制停止状態にあります。
なので、そこから再度実行もできますし、デバッグもできます。

今回は完全に実行を中断するわけですから
先程のメッセージから「終了」を押します。

これで強制終了が終わりました。

注意点として、どこまでのコードが実行されたかは
確認が出来ないのでシートを確認して現状を把握する必要があります。

どこまでのコードが実行されたか確認する方法は次の項目で説明します。

・どこまでのコードを実行したか確認して終了する

今度はどこまでのコードが実行されたか確認して終了する手順を紹介します。

「Escキー」を押した後にでるメニューか「デバッグ」を選択します。

すると黄色く塗りつぶされた行があるのですか
そこまでコードが実行されたことを示します。

見本のように繰り返し動作の場合は変数を確認すれば何回まで繰り返し処理が行われたか確認することが出来ます。

その後、「リセット」ボタンにて停止中のプロシージャを
完全に中断することができます。

・コード実行を再開したい場合

最後にコードの実行を再開したい場合を見ていきましょう。

まずは、アラーム時の復帰から見ていきます。

操作は簡単でメニューにある「継続」を押せば、動作を再開してくれます。

次に「デバッグ」で停止させた後に再開の方法を見ていきましょう。

こちらは「F5」キーまたは「ユーザーフォームの実行」ボタンでコード実行の再開を行うことができます。

もちろん再開後も再度、「Esc」キーで停止させることも可能です。

■Escでも強制終了できない場合

Escキーでも止まらない場合はタスクマネージャーで停止させることも可能です。

しかし、先ほどまでの停止方法とは異なり、Excel自体の強制終了になるので

上書き保存をしていないと、前回の保存以降の処理が消えてしまうので注意が必要です。

では方法を見ていきましょう。

まずキーボードの「Ctrl」+「Alt」+「Delete」を押します。

するとメニューが表示されるので「タスクマネージャー」を選択します。

「プロセス」タブに「Microsoft　Excel」の項目があると思うので選択します。

最後に「タスクの終了」があるのでこちらを選択します。

するとExcelが強制終了します。

強制終了後のファイルの復元方法については下記記事をご参照ください☟

保存できずに終了・上書きしたエクセルファイルを復元する方法一覧！消えたファイルを元に戻す ► 独学エクセル塾 (dokugakuexcel.com)

いずれもコードの実行前には上書きを推奨します。

⬛︎まとめ

いかがだったでしょうか。
処理に時間がかかるプロシージャを途中で止めたくなった
場合など様々な場面で使用できそうですね。

また「Escキー」のみで操作可能なので
とても簡単な方法になっています。

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

そこからフィルダウンやセルのコピーで
参照先を固定したり、行や列のみ固定したりなどできるとても便利な機能です。

そんな絶対参照・相対参照ですが
一括で設定したい場合や解除したい場合などには、とても一苦労です。

そこで今回は絶対参照・相対参照を一括で切り替えれる方法について紹介します。
それでは見ていきましょう。

⬛︎こんな事が出来るようになる！

絶対参照と相対参照を一括で切り替えれる

⬛︎通常の絶対参照・相対参照について

まず、おさらいとして通常の絶対参照と相対参照を見ていきましょう。
下記の見本を見ていきましょう。

C3のセルに「＝A1」を入力して、A1を参照しています。
この数式の「A1」を選択した状態で「F4」キーを押す事で
A1に「$」が追加されて「＝$A$1」となります。

これが「絶対参照」を表す記号になります。
この状態でフィルダウン、コピーをしても参照先は動く事がありません。

対して「$」がついてない相対参照は

フィルダウン・コピーをすると参照先もあわせて動きます。

また、絶対参照には「絶対行参照」「絶対列参照」があります。
先程の「＝$A$1」の状態で、再度「F4」を押すと
「＝A$1」となります。
この状態が「絶対行参照」で行方向のみ固定となります。
さらに「F4」を押すと「＝$A1」の形になり、
「絶対列参照」となります。こちらで列方向の固定が可能です。

では本題に入りましょう。

通常は「F4」を押して絶対参照と相対参照を切り替えていましたが
複数の数式の絶対参照・相対参照を変更するのには
とても苦労します。

しかし、エクセルの機能を活用すれば簡単に一括で切り替えることが可能です。

では絶対参照から相対参照への切り替えを見ていきましょう。

⬛︎絶対参照から相対参照への一括変更

まずは絶対参照から相対参照に一括で変更する方法を見ていきましょう。
下記の見本をご覧ください。

こちらは簡単で「置き換え」の機能を活用します。

置き換えは「ホーム」の「検索と選択」から
「置換」を選択します。

すると下図のメニューが表示されます。
「検索する文字列」には「$」を入力して
「置換後の文字列」は空白にします。

ここで「すべて置換」を押すと一括で相対参照にする事が可能です。
注意点として1つのセルを選択しているとシート内全ての置き換えとなるので
範囲を絞りたい場合は対象範囲を選択した状態で「すべて置換」を押してください。

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

こちらの仕組みとしては絶対参照は「$」で指定しているので
「$」をなくす事で相対参照になります。

今回は置き換えで「$」を空白に変えるわけですから
置き換え後は相対参照になるという仕組みです。

⬛︎相対参照から絶対参照への一括変更

今度は相対参照から絶対参照へ一括で変更する方法を紹介します。
変更する方法として、3つパターンを用意しました。

・列が同一の場合
・行が同一の場合
・行と列がどちらとも統一されてない場合

では各パターンの対処法を紹介します。

・列が同一の場合

まずは列が同一の場合から見ていきましょう。
例えば「＝A1」や「＝A8」などのように列が同一である場合に有効です。

では下図の例を見てみましょう。
B列の相対参照の数式が並んでいます。

こちらを絶対参照にしてみたいと思います。

方法は絶対参照から相対参照に変更する際に使用した「置き換え」を活用します。

「検索する文字列」には対象の列の英字を入力します。
見本では「B」になります。

「置換後の文字列」は対象の列の英字に「$」を合わせます。
見本では「$B$」になります。

では「すべて置換」を実行してみましょう。
結果はこのようになりました。

すべて絶対参照に変わっていますね。

・行が同一の場合

今度は行が同一の場合の相対参照から絶対参照へ変更する方法を紹介します。
例えば「＝A8」や「＝D8」など行番号が同じ場合に使用できます。

まずは絶対列参照へ一括で変更します。
今回も「置き換え」の機能を活用していきます。

「検索する文字列」には「＝」を入力して
「置換後の文字列」は「＝$」にします。
これで置き換え後は絶対列参照になります。

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

絶対列参照になってますね。

次に絶対行参照を行います。

「検索する文字列」には対象の行番号を入力します。
見本では「8」になりますね。

「置換後の文字列」は$＋行番号にします。
見本では「$8」となります。

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

先ほどの結果とあわせて相対参照から絶対参照へ
変更する事ができました。

・行と列がどちらとも統一されてない場合

これまでは、行または列が同一である場合の
置き換えによる絶対参照への変更方法を見ていきました。

今回は行または列がどちらも同一ではない場合を紹介します。
例えば「＝A1」「＝B5」のような形ですね。

結論から言うと置き換えでの一括変更は不可能です。
行や列の種類が数通りであれば置き換えを繰り返すことを
オススメしますが、多くの数式を対象とする場合はVBAしかありません。

VBAを触った事がない人は少しハードルが高いように思えますが
実行するのみであれば簡単です。

先にコードを紹介します。

Sub 選択セルを相対参照から絶対参照に一括変更()

Dim Targetcell As Range

For Each Targetcell In Selection
　If Targetcell.HasFormula Then
　　Targetcell.Formula = Application.ConvertFormula( _
　　Formula:=Targetcell.Formula, _
　　FromReferenceStyle:=xlA1, _
　　ToAbsolute:=xlAbsolute)
　End If
Next

End Sub

意味としては下記の通りです。
「For Each Targetcell In Selection」から「Next」までの選択しているセルを繰り返し処理します。
「 If Targetcell.HasFormula Then」では対象のセルが数式であるか確認します。
この指示がなければ空白でも実行してしまうため、「#VALUE!」のエラーが発生します。

「Application.ConvertFormula」では実際に数式を変更するコードなのですが
重要なのは「ToAbsolute:=xlAbsolute」になります。
こちらのコードで絶対参照に変換しています。

では補足です。「xlAbsolute」を下表に置き換えると様々な参照が可能になります。

では実践です。
開発タブから「Visual Basic」を選択します。

すると下図の画面が表示されるので実行したいファイルの「ThisWorkbook」を選択します。
その後先ほどのコードをコピーペーストして、実行ボタンを押してください

これで選択したセルの相対参照を絶対参照に変えてくれます。

⬛︎まとめ

いかがだったでしょうか。
使用頻度の高い絶対参照を一括で変えるのには
少しテクニックが必要です。

是非今回の内容を活用して一括での絶対参照・相対参照を切り替えてみてください。

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

1行または１列おきに色で塗りつぶして分かりやすくしているファイルもありますが
行・列数が多ければ多いほど、「今どの行を入力しているんだっけ？」という
場面が大いにあります。

そこで今回は選択しているセル・行・列を自動で色付けすることで
どこの項目や番号に入力しているか分かりやすくしてみたいと思います。

条件付き書式とマクロVBAを使用しますが
実際の画面を用いて説明しますので是非参考にしてみてください。

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

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

選択しているセル・行・列に自動的に塗りつぶしで色がつくことで
選択中の範囲が一目でわかるようになる。

⬛︎必要な知識

・条件付き書式設定

【条件付き書式】必見！使用方法や設定方法を詳しく説明～ルールの追加・編集・削除・優先順位～ ► 独学エクセル塾 (dokugakuexcel.com)
・マクロVBA設定

【マクロVBA】プログラム・ソースコードを入力するためのモジュール作成・削除・名前の変更について ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎選択しているセル・行・列に色をつける

①条件付き書式の設定

まず初めに条件付き書式を設定する必要があります。
見本で下図の表を用意しました。

今回は見本で選択した行の色が変わるようにしたいと思います。
まず、表を範囲選択します。

そしてメニューの「ホーム」から「条件付き書式」を選択します。

メニューの中に「新しいルール」という項目があるのでこちらを選択します。

まずは、ルールの種類を選択するのですがここでは「数式を使用して、書式設定するセルを決定」にします。

次に「次の数式を満たす場合に値を書式設定」に数式を入れるのですが
例では選択した行に色をつけるので「=Cell(“Row”)=Row()」とします。

意味として「Cell(“Row”)」は現在選択しているセルになります。
つまり、5行目を選択していれば「Cell(“Row”)」は「5」になります。

「Row()」の部分は単純でセルの行数を指します。
つまり、7行目の書式の「Row()」は「7」のように、
そのセルの行数を出力します。

つまり「Cell(“Row”)=Row()」とする事で
選択した行に対して対象の行がイコールになれば、設定した書式になります。

次に書式の設定です。
メニューから「書式」を選択すると以下のようなメニューが表示されます。

そこから「塗りつぶし」タブを選択して色を選択します。
ちなみに今回は「塗りつぶし」ですが文字の色を変えたい場合は「フォント」のタブから
色を選択すれば可能になります。

今回は黄色にしてみました。
これで対象の表のセルを選択すると、選択した行数に合わせてその行が「黄色」になります。

では動作確認してみましょう。
「9行目」を選択して、「数式」タブから「再計算実行」をしてみたいと思います。

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

「9行目」が黄色に変わりました。

今回は行に色を付けましたが列やセル、または行と列などの条件も見本で用意しました。

列:Cell(“COL”)=Column()

行と列：OR(Cell(“Row”)=Row(),Cell(“COL”)=Column())

セル：AND(Cell(“Row”)=Row(),Cell(“COL”)=Column())

しかし、ここまで出来たものの「再計算」をしないと色が変わらないのは不便ですよね。
この現象の理由としては「条件付き書式」は再計算をしたタイミングで反映されるので、
「再計算」をさせるか、「セルをダブルクリックして編集した後にEnterで確定（計算方法の設定が自動に限る）」になります。

この問題を解決するためにマクロVBAで再計算を自動で行うプログラムを組んでいきます。

②マクロVBAで自動的に再計算を実行する

では自動的に再計算を実施する方法について説明します。
まず、visual basicの画面を開きましょう。

visual basicの画面の出し方についてはこちらから☟

【マクロVBA】プログラム・ソースコードを入力するためのモジュール作成・削除・名前の変更について ► 独学エクセル塾 (dokugakuexcel.com)

そして対象のシートを選択します。
ここでは「見本シート」になります。

こちらにコードを書き込むのですが先に書き込むコードを紹介します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End sub

VBAのコードを知らない方、知らなくても良いという方は
すでに機能していると思うので試してみてください。

ではコードの説明をしていきます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
の意味は「セルの選択が変更された時に実行する」という機能を持ちます。

つまり、マウスで別のセルを選択したり、矢印キーで
セルの選択の移動をした際にプロシージャ（プログラム）が実行されます。

その下に「calculate」がありますが
これは「計算の実行」を指します。つまり、再計算をしてくれるコードです。

では先程のシートに戻りましょう。

セルをクリックまたはし矢印キーで表を動かした結果はこちらです。

セルの選択に合わせて対象行が塗りつぶされて、
現在選んでいる行がわかりやすくなりました。

⬛︎応用:セルを動かすたびに動きが遅くなる原因

今回の機能を追加して、動作が遅くなった場合は
ファイル自体に多くの関数を使っているのかもしれません。

セルの選択を変えると表以外の関数も再計算が実行されます。

つまり関数を大量に使用していれば、その都度計算を実行するので処理に時間がかかるメカニズムです。

そこで対処法として、「指定範囲内のセルの選択のみ計算を実行する」ことで、

不要な再計算をなくす事ができます。

ではコードを紹介します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 13 And Target.Column >= 2 And Target.Column <= 7 Then
Calculate
End If
End Sub

仕組みとして、選択したセルの情報は「target」に格納されます。
そこから選択したセルの行数と列数を検出し、対象範囲だった場合に再計算をさせるコードになっています。

見本では行数は「3から13」、列数は「2から7」で再計算を実行します。

これにより、表以外を選択しても不要な再計算をしなくてもいいので
余分なロスがなくなります。

⬛︎公式の説明

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

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

Worksheet.Calculate メソッド (Excel) | Microsoft Learn

Worksheet.SelectionChange イベント (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
今回の内容を応用すると表の入力箇所が、どの項目に打ち込んでいるのか分かりやすくなるので
とても便利になります。

VBAを触った事がない方は
少し、難しい内容ですがこれを機にVBAを学ぶのも良いかもしれません。

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

皆さんも悩んでいるのではないでしょうか。
プログラムを作った人は発生したエラーについて理解・把握できますが作ってない方はエラーが発生したらすぐに原因を理解するのは難しいです。

その中でも今回は「実行時エラー1004」の中の「指定された値は境界を超えています」
の発生する原因とエラーの対策について説明したいと思います。

同様のエラーが発生した場合には是非参考にしてみてください。
それでは見ていきましょう。

⬛︎「指定された値は境界を超えています」のエラーの原因について

まず、「指定された値は境界を超えています」のエラーが発生する原因から見ていきましょう。

現在確認できる原因としては下記の通りです。

①色を変える際のSchemeColorの指定に不備がある
②保護したシートへの写真・図の貼り付け

※確認できている原因を挙げています。
上記以外で発生の原因がある場合はコメントしていただけたら幸いです。

では各原因についてみていきましょう。

⬛︎原因①:色を変える際のSchemeColorの指定に不備がある

・原因の内容

SchemeColorとはオブジェクトの配色の色を変更する際に使用します。
SchemeColorは「1から80」で指定します。

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

Sub 図に色をつける()
ActiveSheet.Shapes("見本図").Fill.ForeColor.SchemeColor = 5
End Sub

見本のプログラムは「見本図」と言う名前をつけた図の
色をSchemeColorで変更するプログラムです。

今回は「SchemeColor＝5」で指示しています。
では実行してみます。結果はこのようになりました。

図が黄色に変化してますね。

では「SchemeColor＝81」で再度実行したいと思います。
プログラムはこちらです。

Sub 図に色をつける()
ActiveSheet.Shapes("見本図").Fill.ForeColor.SchemeColor = 81
End Sub

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

「指定された値は境界を超えています」というエラーが発生しました。

「SchemeColor」の前提条件として「1から80」となってます。
しかし今回は「81」と、条件以外の数値であることから
「指定された値は境界を超えています」というエラーが発生した仕組みになっています。

・対策方法

こちらの対策は単純です。
「SchemeColor」を使用する場合は「1から80」までの数値にしてください。

⬛︎原因②:保護したシートへの写真・図貼り付け

・原因の内容

つぎに保護したシートへの写真・図の貼り付け時に発生するパターンを見ていきましょう。

見本のプログラムを用意しました。
プログラムは下記の通りです。

Sub 写真の貼り付け()

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
　　　　　　　　  Filename:="C:\検証ファイル\見本写真.jpg", _
　　　　　　　　  LinkToFile:=False, _
　　　　　　　　  SaveWithDocument:=True, _
　　　　　　　　  Left:=ActiveSheet.Range("E7").Left, _
　　　　　　　　  Top:=ActiveSheet.Range("E7").Top, _
　　　　　　　　  Width:=ActiveSheet.Range("E7").Width, _
　　　　　　　　  Height:=ActiveSheet.Range("E7").Height) '貼り付け
End Sub

プログラムの内容として「Cドライブの検証ファイル」というフォルダに保存してある「見本写真.jpg」という写真を「E7」に貼り付けるプログラムになっています。

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

「E7」に写真を貼り付けれていますね。

では本題です。

貼り付け先のアクティブシートに保護をかけた状態でプログラムを実行してみます。
結果はこのようになりました。

「指定された値は境界を超えています」というエラーが発生しました。

・対策方法

こちらは貼り付け先のシートに保護が掛かっている可能性があるので
保護を解除して、実行する必要があります。

通常通り「校閲」タブから「シートの保護」状態であるか確認する方法もありますが、
シートの保護をプログラムで実行している場合はActiveSheet.Unprotectで
マクロから保護の解除をする方法もあります。

シートの保護・解除をマクロで行う方法についてはこちらから☟

【マクロVBA㊲】シートの保護・解除全集！アクティブ・対象・全シートやパスワードを含めた保護・解除 ► 独学エクセル塾 (dokugakuexcel.com)

場面に合わせて使い分けてください。

⬛︎公式の説明

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

マクロで図形の塗りつぶしを行うと 「指定された値は境界を越えています」 のエラーになります – Microsoft コミュニティ

⬛︎まとめ

いかがだったでしょうか。
「指定された値は境界を超えています」というエラー名だけでは
なにが原因か理解しにくいですが
本記事を参考にして解決いただけたら嬉しいです。

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

通常は印刷すると紙で出てきますが、その状態をファイル形式で
保存する事ができるファイルになります。

つまり紙の電子化ともいえますね。

資料として配布したり、文書としてファイル保管したい場合にはとても役立つ
PDFですがExcelのVBAでも保存・作成ができます。

ショートカットキーに登録すると、とても便利なので是非参考にしてみてください。
それでは見ていきましょう。

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

Sub アクティブシートのPDF化()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
End Sub

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

選択した単体・複数のシートをもとにPDFファイルを作成・保存することができる

⬛︎忙しい人向けのオススメコピー用プログラム

Sub アクティブシートのPDF化()

Dim Ans As String

Ans = InputBox(“保存するファイル名を入力してください。”)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=”C:\PDF保存先” & “\” & Ans & “.PDF”, Quality:=xlQualityStandard, OpenAfterPublish:=True, From:=2, To:=4

End Sub

⬛︎構文の仕組み

PDF化の対象.ExportAsFixedFormat (Type、 FileName、 Quality、 IncludeDocProperties、 IgnorePrintAreas、 From、 To、 OpenAfterPublish、 FixedFormatExtClassPtr)

各引数については下記表を参照してみてください。

・引数の詳細

⬛︎実際にプログラムを作成する

では実際に選択したシートをPDFにしてみたいと思います。
再度構文を見ていきましょう。

PDF化の対象.ExportAsFixedFormat (Type、 FileName、 Quality、 IncludeDocProperties、 IgnorePrintAreas、 From、 To、 OpenAfterPublish、 FixedFormatExtClassPtr)

ここで省略ができないのは

PDF化の対象.xportAsFixedFormat (Type）

となります。
つまり、Ｔype以外はオプションと捉えていただいても構いません。

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

まず、「PDF化の対象」ですが、今回はアクティブシートをPDF化させるので
「ActiveSheet.」となります。
つぎに「Type」はPDFまたはxsp形式での保存が可能です。
今回はPDFなので「xlTypePDF 」となります。ちなみにxsp形式の場合は「 xlTypeXPS」となります。

ではプログラムを作成してみましょう。

Sub アクティブシートのPDF化()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF

End Sub

実はこれだけでPDF化のプログラムは機能します。
ではプログラムを実行してみましょう。

見本で下図のシートを用意しました。

こちらのシートを選択した状態で実行すると…

PDFファイルが作成できました。

この場合、保存先はカレントディレクトリ（設定していなければドキュメント）でファイル名は対象のブック名になります。
見本では「エクセル虎の巻」というブック名なのでそのままファイル名として保存されています。

この保存先やファイル名などは構文の「Type」以降で設定することができます。
次の項目ではそちらのオプションの部分に当たる説明をしたいと思います。

今回は１つのシートをPDF化しましたが、複数のシートを選ぶと選んだシート分、
PDFファイルを作成してくれます。

⬛︎PDFファイルで保存・作成する際の詳細設定について

ではPDFで保存する際の詳細設定について紹介します。
こちらの内容をマスターすれば保存先やファイル名、保存・作成時の確認などを
コントロールすることができます。

では再度、構文とその内容を見ていきましょう。

PDF化の対象.ExportAsFixedFormat (Type、 FileName、 Quality、 IncludeDocProperties、 IgnorePrintAreas、 From、 To、 OpenAfterPublish、 FixedFormatExtClassPtr)

ここで抑えておきたい項目について説明します。
では１つずつ見ていきましょう。

・FileName…保存先・ファイルネームを指定する

まずは構文の「FileName」から見ていきましょう。
こちらは英語の意味通り、保存する際のファイルの場所・ファイル名を設定できます。
使い方としては「FileName:=”保存先ファイルパス&ファイルの名前”&”.pdf”」となります。

では例を紹介しましょう。
今回は保存先を「C:\PDF保存先」とし、ファイル名を「打ち合わせ資料」としたいと思います。
新しく作成したフォルダなのでデータはありません。

「File name」の構文に当てはめるとこのようになります。

Filename:=”C:\PDF保存先\打ち合わせ資料.PDF”
変数などでファイル名と保存先のパスを分けたい場合はこちらです。
Filename:=”C:\PDF保存先” & “\” & “打ち合わせ資料” & “.PDF”

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

Sub アクティブシートのPDF化()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=”C:\PDF保存先” & “\” & “打ち合わせ資料” & “.PDF”

End Sub

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

フォルダ「C:\PDF保存先」に「打ち合わせ資料」として保存されました。

ちなみに保存先を指名せずに「Filename:=”打ち合わせ資料.PDF”」のようにファイル名だけ入力すると
ドキュメント内に保存されます。

・Quality・・・画質・ファイル容量をコントロールする

次は構文の「Quality」にあたる部分を紹介します。
こちらは「xlQualityStandard」か「xlQualityMinimum」のどちらかになります。

内容としてはPDF化した際の画質を表します。
「xlQualityStandard」は通常の画質になり
「xlQualityMinimum」は画質を落としたファイルとなります。

プログラムとしてはこのように使用します。

Sub アクティブシートのPDF化()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard

End Sub
もちろん、「xlQualityMinimum」の方がファイルサイズは小さくなります。
文字のみであればどちらも大差ありませんが、写真の画質は変わってきます。

例で下図に「xlQualityStandard」と「xlQualityMinimum」で保存したPDFを
載せているので比較してみてください。

・IncludeDocProperties…ドキュメント プロパティを含めるか選択する

こちらはドキュメントプロパティを含めてPDFを作成するか選択できます。
作成者などといったファイルの情報をPDFにも反映させるかの選択ですね。

こちらは「True」「False」で選択するのですが省略時は自動で「False」になるので
ドキュメントプロパティを含めたい場合には「True」を指定してください。

見本のプログラムを紹介します。

Sub アクティブシートのPDF化()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, IncludeDocProperties:=True

End Sub

・「From」「To」でPDFを作成するシート番号を設定する

こちらは複数のページをPDF化する際に指定した範囲のページのみ作成したい時に使用します。
「From」が開始位置で「To」が終了位置です。

仮にPDF化する際に通常であれば10ページ出力するようなシートがあったとします。
その際に5〜8ページだけPDF化したい場合は「From」を5、「To」を8にします。

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

Sub アクティブシートのPDF化()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, From:=5, To:=8

End Sub

・OpenAfterPublishでPDFファイル作成後に確認の有無を設定する

こちらはPDFのファイル作成後に作成したファイルを自動で開いて確認するかの有無を設定します。
入力する内容として「True」または「False」を選択します。

「True 」を選んだ場合はPDFファイル作成後に作成したファイルが自動で
開きますが、「False」を選んだ場合は保存して終了です。
ちなみに入力を省略した場合は「False」と同様に、確認がなく保存されるのみとなります。

確認を行う見本プログラムを参考に載せておきます。

Sub アクティブシートのPDF化()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True

End Sub

・見本のプログラムを紹介

上記オプションは複数組み合わせることができます。
下記のプログラムを見本に見ていきましょう。

Sub アクティブシートのPDF化()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=”見本.PDF”, Quality:=xlQualityStandard, OpenAfterPublish:=True, From:=2, To:=4

End Sub

こちらのプログラムはファイル名を「見本」とし、通常の画質で、PDFを作成後は確認
するようにしています。さらにページ数は2〜4ページのみPDF化するといった
プログラムになっています。
このように複数の条件でも作成することができます。

⬛︎応用編

先程のプログラムではファイル名は「見本」で固定されてしまいます。
しかし、別のPDFを作成する場合には「見本」の部分を打ち替えないと
PDFファイルを上書きすることになってしまいます。

セルの値をファイル名にする方法や、現在の日時をファイル名に組み込む
方法もありますが、管理しやすく汎用性のある方法を紹介します。

使用するのは「InputBox」です。
こちらはプログラム実行中に文字・数値が入力できるポップアップが表示され、
入力した文字・数値を変数に格納できる物になります。

PDF化のプログラムを実行して、入力した文字・数値をファイル名にすることが
できます。

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

Sub アクティブシートのPDF化()

Dim Ans As String

Ans = InputBox(“保存するファイル名を入力してください。”)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=”C:\PDF保存先” & “\” & Ans & “.PDF”, Quality:=xlQualityStandard, OpenAfterPublish:=True, From:=2, To:=4

End Sub

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

表示されたポップアップに「独学エクセル塾」と入力しました。
「OK」を押すと、、、

「独学エクセル塾」というファイル名のPDFファイルを作成することが出来ました。
このブログラムだと、その都度ファイル名を変えるので汎用性があって便利です。

さらにこのプログラムをプライベートで記録してショートカットキーに登録しておけば
どのファイルでもPDF化できるので便利です。
私も「Ctrl」＋「Shift」＋「P」でPDF化のプログラムが走るようにしています。
ショートカットキー登録については下記記事を参照してみてください。

【マクロVBA】ショートカットキーへ割り付け・設定を行い、プロシージャ・プログラムを実行する！ ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

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

Workbook.ExportAsFixedFormat メソッド (Excel) | Microsoft Docs

⬛︎まとめ

いかがだったでしょうか。
PDFファイルは様々な場面で見かけますが
直接PDF化できるのは便利ですよね。

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

別のブックから数値を参照したりなと、ブックを経由する場合はよく使用する機能です。
しかし、使用方法を誤るとエラーが発生し、閉じることができません。

そこで今回はブックを閉じる際に発生するエラーに対しての原因と対処法を紹介します。
それでは見ていきましょう。

⬛︎通常のブックの閉じ方

まず、エラー対応の前に通常のブックを閉じる方法を説明します。
構文は以下の通りです。

Workbooks("ここに閉じたいブック名を記入").Close

とてもシンプルですね。

では見本で「見本.xlsx」というブックを閉じるプログラムを見ていきましょう。
前提として対象のブックが開いてあることが条件となります。

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

Sub ブックを閉じる()

Workbooks(“見本.xlsx“).Close

End Sub

こちらのプログラムで「見本.xlsx」のブックを閉じることができました。
結論としてブックを閉じる際に使用する「Close」はブック名で指示します。
これが原因でエラーが生じる場合もあります。
では、ブックを「close」で閉じる際のエラーの原因と対処法を見ていきましょう。

⬛︎closeのエラーの原因と対処法

・「実行時エラー’9′:インデックスが有効範囲にありません」について

こちらはブック名で指定していない可能性があります。
よくある原因としてはフルパスでファイルを開いて、そのフルパスを活用して「close」
することでエラーが生じてしまいます。

ではプログラムの例を見ていきましょう。
今回は「見本」ブックを開いて、処理を行い、閉じるプログラムです。

Sub ブックを閉じる()

Dim FilePath As String

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

Workbooks(FilePath).Close

End Sub

一見問題無さそうですが実行したらこのようになります。

「実行時エラー’9′:インデックスが有効範囲にありません」というエラーが発生しました。

原因としてブックを開く際の参照と閉じる際の参照の違いに問題があります。
ブックを開く際の「Open」はフルパスでなければなりませんが
ブックを閉じる際の「close」はファイル名でなければなりません。

しかし、パスが繰り返し動作やセルに入力してあるパスを参照する際には
プログラムにファイル名は入力できませんよね。

ファイル名が限定される方は次の項目に飛んでください。

使用するのは「Dir」になります。
機能としてはフルパスからファイル名を取得することができます。

では構文を見ていきましょう。

ファイル名＝Dir(フルパス)

ではこちらを活用したプログラムはこのようになります。

Sub ブックを閉じる()

Dim FilePath As String, CloseFileName

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

CloseFileName = Dir(FilePath)
Workbooks(CloseFileName).Close

End Sub

それでは実行してみましょう。
「CloseFileName = Dir(FilePath)」の部分の変数「CloseFileName」にファイル名が
格納できているか見てみましょう。

「C:\excel\見本.xlsx」のフルパスからファイル名のみを抽出できています。

これでファイル名で「close」するのでエラーが出なくなります。

また、「close」で設定したファイル名が合っていなくても同様のエラーとなります。

例えば閉じたいブック名に半角のスペースが入っただけでも
エラーになってしまいます。

正確なファイル名で「close」の指示ができるようにプログラムを作成してください。

・プログラムが途中で停止、実行中のブックが閉じる

こちらは実行中のプロシージャ（プログラム)のブックを閉じると
起こるエラーとなっています。

例えば、「ファイル A」というファイルからVBAを使用して
「ファイルB」というファイルを閉じようとします。

しかし誤って「ファイルA」を閉じるように設定すると
プログラムを実行中のファイルAが閉じてしまうため
プログラムが途中で停止してしまう問題が発生します。

なので閉じるファイル名が正確か確認してみてください。

⬛︎補足　ブックを閉じる際の確認画面を表示させない方法

ここからは補足になります。
編集したブックを「close」で閉じる指令を実行すると「’対象ファイル名’の変更内容を保存じますか？」というメッセージがでます。

「Workbooks(ファイル名).Save」で１度保存した場合は問題ありませんが、保存しない場合は処理しないといけません。

しかし何度もブックを閉じるプログラムだと毎回確認ボタンを押さないといけないので面倒くさいですよね。
そこでブックを閉じる前に「Application.DisplayAlerts = False」を実行することで、確認動作をスルーすることができます。
ブックを閉じた後は「Application.DisplayAlerts = True」で再度、確認メッセージが出るように設定することをオススメします。

では先ほどのプログラムに織り込んでみましょう。

Sub ブックを閉じる()

Dim FilePath As String, CloseFileName

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

CloseFileName = Dir(FilePath)

Application.DisplayAlerts = False
Workbooks(CloseFileName).Close
Application.DisplayAlerts = True

End Sub

これで「’対象ファイル名’の変更内容を保存じますか？」の確認メッセージをスルーすることが出来ます。

⬛︎まとめ

いかがだったでしょうか。
ブックを経由してデータを取得したり入力したりする際に用いられる
「close」ですが、使用方法を間違えるとエラーが生じてしまいます。

ぜひ今回の記事を参考にして
エラーが出ないようなプログラムを作成してみてください。

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

しかし「data(5)」のように複数の配列の中から数値・文字を入力・出力するには
悩まれる方も多いのではないでしょうか。

そこで今回は複数の2次配列内の入力・出力方法について紹介したいと思います。
それでは見ていきましょう。

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

・複数の２次配列内の指定位置・セルの文字数値を入力・出力できるようになる

⬛︎通常の2次配列内の指定位置・セルの文字を入出力する

まず初めに通常の2次配列内の指定した位置・セルから文字・数値を出力、または入力してみましょう。
見本で以下のシートを用意しました。

内容としては「B3からE5」までを配列に格納して
配列内に入力したのち、「G3からJ5」に貼り付けます。

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

Sub 配列見本()

Dim Data

Data = Range(“B3:E5”)

Range(“G3:J5”) = Data

End Sub

実行した結果こちら。

上手く配列に格納して、貼り付けもできています。
では配列内の指定位置に数値を入力するプログラムを作成していきましょう。

例えば3行目の５列目にあたる、「E3」は「cells(3,5)」ですが、同じ要領で
2次配列に格納した3行目の５列目は「変数名（3,5）」となります。

では再度見本を見ていきましょう。
「B3からE5」を配列に格納して配列内の2行目の3行目に「123」を入力し、
「G3からJ5」に格納した配列を出力します。

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

Sub 配列見本()

Dim Data

Data = Range(“B3:E5”)
Data(2, 3) = 123

Range(“G3:J5”) = Data

End Sub

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

格納した配列に変数に文字・数値を入力して、その配列を
別のセルに貼り付けることができるようになりました。

こちらの方法は処理の高速化にも応用できます。
例えばセル内の文字数値の計算をする際に計算する回数が多ければ
処理速度は遅くなってしまいます。

そこで計算したい数値を配列に格納して
配列内で計算させて、最後にセルに出力することで、
処理速度はとても速くなります。

詳しい方法については下記リンクに貼り付けてますので是非参考にしてみてください。

【マクロVBA知識 高速化②】あまり知られていない？大量データで処理が遅いマクロVBAを高速化 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎連続した2次配列内の指定位置・セルに入力・出力をする方法

では連続した2次配列の方法を見てみましょう。
例えば「N(5)」のようにNという配列を5つ活用することができます。

例を見ていきましょう。

「B2からE3」「B5からE6」「B8からE9」「B11からE12」「B14からE15」を
Nという配列に格納してみましょう。

そして出力したい配列を変数「Number」で指定したいとします。
プログラムはこのようになります。

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 2 ‘表示したい配列番号を入力

　

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

　

Range(“G8:J9”) = N(Number)

End Sub

今回は変数「Number」を2で実行してみましょう。
結果はこのようになります。

N（2）の配列を貼り付けることができました。
さらに「number」を4で実行すると、、、

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 4 ‘表示したい配列番号を入力

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

Range(“G8:J9”) = N(Number)

End Sub

N（4）の配列を貼り付けることができました。

では本題です。
複数の配列の中の位置・セルに入力・出力をしてみましょう。

１つの配列だと「変数（行数,列数）」でしたね。
複数の配列の場合は「変数（配列数）（行数,列数）」となります。

では実際にプログラムにて確認していきましょう。
先ほどの見本を活用し、N（Number）の1行目の３列目に「456」を入力して
配列N（Number）をG8からJ9に貼り付けましょう。

今回はN(3)の配列を貼り付けたいと思います。

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

Sub 二次配列見本()

Dim N(5), Number As Long

Number = 3 ‘表示したい配列番号を入力

N(1) = Range(“B2:E3”)
N(2) = Range(“B5:E6”)
N(3) = Range(“B8:E9”)
N(4) = Range(“B11:E12”)
N(5) = Range(“B14:E15”)

N(Number)(1, 3) = 456

Range(“G8:J9”) = N(Number)

End Sub

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

複数の配列内の指定した位置にも数値を格納できていますね。
もちろん計算させることも可能です。

⬛︎まとめ

いかがだったでしょうか。
2次配列は複数のセルを格納できたり、配列の数も変えれたりと、とても便利です。

しかし初心者のかたは慣れるまで習得しにくく
できることも十分に理解するまで時間がかかるように思います。

是非配列の知識を身につけて
活用してみてください。

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

繰り返し回数を指定できればとても便利ですよね。

例としてFor Nextでは繰り返し開始位置と終わる位置を設定します。
その数値をプログラム実行中に入力して変化させたい方は
とっても役立つ知識となります。

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

⬛︎使用する機能

まず使用する機能を紹介します。

繰り返し処理についてはFor Nextを使用して
開始行と終わる行の入力についてはInputBoxを使用します。

詳細について知りたい方は下記リンクをご参照ください。

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

【マクロVBA㊱】実行中に入力画面を表示して文字・数値を活用、変数に格納する方法InputBox ► 独学エクセル塾 (dokugakuexcel.com)

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

本記事を理解していただくことで下図のような事ができるようになります。

①プログラム実行時にダイアログが表示され、繰り返し回数を入力する
②1で入力した回数分繰り返し処理を行う

⬛︎実践

では実際の内容に移りたいと思います。
今回はFor Nextでのパターンを紹介するのでプログラムを
コピーしていただいて、改造していくのが良いかもしれません。

・For Nextで入力した回数分、繰り返し処理を実行する。

見本で下図のようなシートを作成しました。
仕組みとしては基準値に数値①を○○回プラスするようにしてみます。

回数が決まっているのであれば下のようなプログラムになります。
見本で3回繰り返すようにしています。

Sub 基準値に数値①を○○回足す()

Dim N As Long

Cells(3, 5) = Cells(3, 2)

For N = 1 To 3

Cells(3, 5) = Cells(3, 5) + Cells(3, 3)

Next N

End Sub

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

結果は基準値の5に1を3回プラスするので8となってます。
今回はここの「To 3」を任意の数値に変えたいということになりますね。
その時に使用するのがInputBoxです。

InputBoxの構文は下記の通りです。
入力先・変数 = InputBox(prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ])

今回は表示メッセージの「prompt」以外省略して活用していきましょう。
表示するメッセージは「繰り返し回数を入力してください。」とします。

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

Cycle = InputBox(“繰り返し回数を入力してください。”)

これで入力した数値を変数Cycleに格納し、
「To Cycle」とすることで繰り返し回数を指定できることになります。

これを先ほどのプログラムと合わせるとこのようになります。

Sub 基準値に数値①を○○回足す()

Dim N As Long, Cycle As Long

Cycle = InputBox(“繰り返し回数を入力してください。”)

Cells(3, 5) = Cells(3, 2)

For N = 1 To Cycle

Cells(3, 5) = Cells(3, 5) + Cells(3, 3)

Next N

End Sub

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

実行するとダイアログが表示され、「繰り返し回数を入力してください。」というメッセージ
とともにダイアログボックスに数値を打ち込めるようになっています。

今回は見本で5を押してみましょう。

「OK」を押すと5回繰り返し処理を行います。

結果は基準値3に対し1を５回足したので結果は8になってます。

参考に数値①を2にして繰り返しを８回にした結果も見てみましょう。

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

これでプログラム実行時にダイアログで入力した数値分、繰り返し処理を行うことが
できるようになりました。

変則的な自動計算などが求められる時に使えますね。

■まとめ

いかがだったでしょうか。

InputBoxを使えばこのようなことができます。

開始位置も同様に設定が可能です。

是非参考にしてみてください。

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

行の高さ・列の幅に同じ数値を打ち込んでも正方形にはなりません。

その仕組みについても説明しますのでぜひ参考にしてみてください。

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

⬛︎行の高さと列の幅の単位について

まずは単位の説明をしたいと思います。

・行の高さの単位とは

行の高さの単位は「ポイント」になります。
そして高さを指定する際もポイントが基本の単位のなっています。
ではポイントとは一体どのくらいの長さなのでしょうか。

結論として、1ポイント＝約0.3528mmです。
内訳としては1ポイントは1／72インチであり、1インチは25.4mmです。

・列の幅の単位とは

今度は列の幅の単位を見てみましょう。

列の幅の単位を表すのであれば「文字数」になります。
さらに詳しく説明すると「設定した規定フォントの半角文字数」となります。

一例で説明すると列の幅が「5」の場合は設定したフォントの半角の「5文字分」となります。

では既定フォントとは何か説明しましょう。
既定フォントは「ファイル」から「オプション」を選択し、「Excelのオプション」というメニューにあります。

新しいブック作成時という項目に「次を既定フォントとして使用」とありますが、ここで選択しているフォントが既定フォントになります。

・行の高さと列の幅の相違について

では単位のまとめです。

行の高さの単位は「ポイント」
列の幅の単位は「既定フォントの半角文字数」

つまり単位が違うので同じ数値を入力しても正方形にならないことがわかりました。

⬛︎行の高さと列の幅を揃えるには

では行の高さと列の幅を揃えて正方形をつくってみましょう。

方法としては2通りあります。

①手動で変更する方法
②VBAを用いて変更する方法

①は初心者の方でも変更できますが、②はVBAの知識が必要になります。

VBAを身につけたい方は本サイトでもまとめてますので参考にしてみてください。

・①手動で変更する方法

まず手動で変更する方法です。
初心者の方でもすぐにできる方法になってます。

では行の高さ・列の幅を調整する際に出てくる数値を見てみましょう。

それぞれ数値の隣に「ピクセル」という単位がありますね。
ピクセルとは画面に表示する際などの点のことを意味します。
こちらは列と行共に同じ尺度を持っています。

つまりピクセルを揃えれば行の高さと列の幅を同じ長さにすることができます。

では手動で2行目の列を100ピクセルに合わせてみましょう。

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

狙い通り正方形を作成することができました。

・②VBAを用いて変更する方法

こちらはVBAで行の高さ・列の幅を変更できる知識が必要になってきます。

詳細についてはこちらから☟

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

・ピクセルで行の高さと列の幅を揃える

まず、ピクセルでの調整方法を見ていきましょう。

行の高さの単位である「ポイント」をピクセルに換算すると下記の式になります。
500ピクセル＝300➡1ピクセル=0.6ポイント

対する列の幅をピクセルに直すとこのようになります。
500ピクセル＝54.78（文字数）➡1ピクセル=0.10956（文字数）

ちなみに500ピクセルで求める必要はありませんが、数値が大きいほど誤差は
少なくなります。是非ご自身のPCで確認してみてください。

ではVBAの式を見てみましょう。
今回は見本で5行目と5列目を50ピクセルにします。

Sub ピクセルを用いてセルを正方形にする()

Dim Pixel As Variant

Pixel = 50 ‘変換したいピクセル量を入力

Rows(5).RowHeight = Pixel * 0.6
Columns(5).ColumnWidth = Pixel * 0.10956

End Sub

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

50ピクセルの正方形が出来ました。

・センチで行の高さと列の幅を揃える

行の高さの変更は

Rows(高さを変更したい行数).RowHeight=変更したい高さの数値

列の幅を変更したい場合は

Columns(幅を変更したい列数).ColumnWid th=変更したい列の幅の数値

となります。

しかしこのままでは行の高さは「ポイント」、列の幅は「文字数」と基準が違ってきます。

なので変更したい高さ・幅の数値の項目に
「Application.CentimetersToPoints＝（変更したいセンチの数値）」を当てはめます。

さらに列に関しては「文字数」に「ポイント」を割って掛けてあげないといけないので「Application.CentimetersToPoints＝（変更したいセンチの数値)* Columns(幅を変更したい列数).ColumnWidth/Columns(幅を変更したい列数).Width」となります。

これにより単位はセンチに統一され同じ数値を入力すると正方形になります。

なので結論として
行の高さは「Rows(高さを変更したい行数).RowHeight= Application.CentimetersToPoints（変更したいセンチの数値)」
列の幅は「Columns(幅を変更したい列数).ColumnWidth= Application.CentimetersToPoints（変更したいセンチの数値)* Columns(幅を変更したい列数).ColumnWidth/Columns(幅を変更したい列数).Width」となります。

では実際に2行目の3(C)列目を2センチの正方形にしてみましょう。

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

Sub 行の2行目と列の3列目を2センチの正方形に()

Rows(2).RowHeight = Application.CentimetersToPoints(2)

Columns(3).ColumnWidth = Application.CentimetersToPoints(2) * Columns(3).ColumnWidth / Columns(3).Width

End Sub

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

無事正方形にできましたね。

⬛︎まとめ

いかがだったでしょうか。
行の高さと列の幅の単位が異なる事は
調べないとわからない事です。

さらにそれが原因で長さを揃えれないとは少し不便ですよね。

なので本記事を参考に一歩踏み込んだ調整方法を行ってみてください。
それでは次回の記事でお会いしましょう。