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の自動生成は驚きだったのではないでしょうか。

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

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

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

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

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

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

特に表・リストの作成には必要不可欠な機能です。
ただ、項目が追加されるリストであれば追加のたびに、

罫線を引き直さなければいけないのでとても面倒です。

そこで今回は自動で罫線を引く方法を紹介します。

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

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

指定した条件によって罫線を自動で引く事ができるようになる。

⬛︎条件に合わせて罫線をひく

・行方向の自動罫線

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

B(2)列目からG(7)列まで項目があり、行方向にデータを入力していきます。

しかし、このままだとデータは10個しか入力できないため
11個以上のデータを入力するには罫線を引き直す必要があります。

こちらを今回は11個目以上のデータを入力しても自動的に罫線を引くようにしましょう。

では対象範囲を選択します。
今回はB列目からG列目までを選択しました。

この状態で「ホーム」から「条件付き書式」を選択します。

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

まずは、ルールの種類を選択するのですが、

ここでは「数式を使用して、書式設定するセルを決定」にします。

次に「次の数式を満たす場合に値を書式設定」に数式を入れるのですが
今回はB列にNo.が入力されたら罫線を自動で引くようにしたいの「=$B1<>””」とします。
絶対参照の位置に注意してください。
意味としてはB列が空白でない場合その列の対象範囲は設定した書式にすることを意味します。

では書式を設定しましょう。
メニューから「書式」を押します。

その中の「罫線」タブから「外枠」を選択しましょう。
これでB列に文字・数値が入ればと外枠の罫線が引かれる仕組みです。

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

B列に文字・数値が追加されるたびに自動で罫線をひいてくれます。
これで罫線を引き直す必要がなくなりますね。

・列方向の自動罫線

先程は行方向に自動で罫線をひく、条件付き書式を設定しました。
今度は列方向に自動で罫線を引く方法を見ていきましょう。

今度は2行目から8行目までを対象としたいと思います。

まずは書式を設定する範囲を選択します。
今回の範囲は2行目から8行目までの表なので2行目から8行目を選択します。

先程と同様に「新しいルール」を追加していきます。

そして項目を「数式を使用して、書式設定するセルを決定」にします。
次に「次の数式を満たす場合に値を書式設定」に数式を入れるのですが
今回は2行目にNo.が入力されたら罫線を自動で引くようにしたいの「=A$2<>””」とします。
こちらも絶対参照の位置に注意してください。

意味としては2行目が空白でない場合その行の対象範囲は設定した書式になることを意味します。

書式については先程と同様に「罫線」タブから「外枠」を選択しましょう。
これで2行目に文字・数値が入ればと外枠の罫線が引かれる仕組みです。

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

2行目に文字・数値が追加されるたびに自動で罫線をひいてくれます。

■一連の動作を動画で解説

これまで説明した内容を動画にしています。

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

■公式の説明

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

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

Excel の条件付き書式を活用して視覚的に見やすい資料を作ろう – Microsoft for business

⬛︎まとめ

いかがだったでしょうか。
今回は条件付き書式を活用して自動で罫線を引く方法を紹介しました。

さらに応用として、条件が揃った場合に
罫線を消したりなど様々なこともできます。

条件付き書式の詳細はこちらから☟

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

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

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

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を学ぶのも良いかもしれません。

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

前回はマクロ・VBAのプログラム名を設定しました。

【マクロVBA】プロシージャ名（プログラム名）を設定・打ち込む！設定不可能な文字やエラーについて ► 独学エクセル塾 (dokugakuexcel.com)
今回は数値や文字・記号を打ち込むプログラムを作成してみます。

それでは早速作ってみましょう。

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

・Rangeでの入力

Sub 文字数値記号を入力()
Range("セル番地") = "入力したい文字・数値・記号"
End Sub

・Cellsでの入力

Sub 文字数値記号を入力()
Cells(行数,列数) =  "入力したい文字・数値・記号"
End Sub

■入力の仕組み

まず、仕組みについて説明します。

Range(“B2”)　=　入力したい文字・数値

Cells(4,3)=　入力したい文字・数値

上記のようにセルに文字を選択する際は「Range」と「Cells」があります。

指定したセルを選択して文字や数値の入力する機能は同じなんですが、セルの選択方法が異なります。

それぞれのセルの指示方法について見ていきましょう。

■RangeとCellsの違いと実践

・Rangeでの入力方法

下記のようにセル番地B2に「123」、C4に「あいうえお」と入力するプログラムを作成してみたいと思います。

まずB2の方からいきます。

B2には「123」と入れてみようと思います。

プログラムの内容は
Range(“B2”)　=123
となります。

内容としてはB列の2行目をRangeで選択してイコールで入力したい「123」を打ち込みます
さらにセルの番地の先頭と最後は「”」で挟みます。

次はC4です。

C4には「あいうえお」と入れてみようと思います。
Range(“C4”)　=”あいうえお”
でもいいのですが、もう1パターン打ち込める方法があるので、そちらで説明します。

・Cellsでの入力方法

もう一つの方法で文字・数値・記号を入力する際に使用するのは「Cells」です。
プログラムで表すと

Cells(4,3)=”あいうえお”

となります。

こちらの説明としてはCells(4,3)の4が行数
Cells(4,3)の3が列数となります。

Rangeは「Range(“列行“)」ですが、Cellsは「Cells(行列)」と逆になります。

では実際に打ち込んでみましょう。

このようになりました。
これで入力プログラムの完成です。

RangeとCellsでは今後の変数というシステムを考えるとCellsで慣れた方がいいです。

理由としてはCellsは変数を合わせて活用できるのですがRangeはそれができません。

変数に関しては今後の記事で紹介します。

■練習問題

ではE8のセルに「マクロ・VBA」と入力してみましょう。

Rangeの場合

　　　　対象セルは「E8」なのでそのまま打ち込みます。

　　　　Range(“E8“)=”マクロ・VBA“

Cellsの場合

　　　　対象セルの行は「8」、列はEでABCDEの「5番目」なので

　　　　Cells(8,5)=”マクロ・VBA“

初めは使い分ける意味があるの？と思いますが使い続けていくと

「ここはRangeでいいや」「ここは変数を使いたいからCellsだな」となってくると思います。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

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

Range オブジェクト (Excel) | Microsoft Learn

Worksheet.Cells プロパティ (Excel) | Microsoft Learn

■ まとめ

今回は以上です。
これでほんとにできるの？と思う方もいると思います。

では次回は実際にこのプログラムを動かしてみましょう。
ぜひ、参考にしてみてください。

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

【マクロ・VBA知識 5】プログラムを１行ずづ実行・すべて実行・指定した位置・個所まで実行する方法 ► 独学エクセル塾 (dokugakuexcel.com)

！