【マクロVBA】ブックを閉じているか確認して、閉じていない場合のみ閉じる（Close)方法 ► 独学エクセル塾 (dokugakuexcel.com)

今回はさらに発展させた内容を紹介します。内容としては指定した文字の一部を含むブックを
開いているか確認して、開いているファイルは閉じるといった処理を行いたいと思います。

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

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

赤文字の指定文字を打ち換えて使用してください。

Sub 対象ブックを閉じているか確認して開いてあれば閉じる()

Dim CloseBook As Workbook, Flag As Boolean

For Each CloseBook In Workbooks
　Flag = False
　　If CloseBook.Name Like "*指定文字*" Then
　　　Flag = True
　　End If
　If Flag = True Then
　　Workbooks(CloseBook.Name).Close
　End If
Next
End Sub

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

・対象の文字を含むブック名のブックが開いているか確認し、開いていれば閉じるできる

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

Sub 対象ブックを閉じているか確認して開いてあれば閉じる()

Dim CloseBook As Workbook, Flag As Boolean

For Each CloseBook In Workbooks
Flag = False

If CloseBook.Name Like “*ここに任意の文字を入力*” Then
Flag = True
End If
If Flag = True Then
Workbooks(CloseBook.Name).Close
End If
Next

End Sub

⬛︎通常のブック名を指定して確認する方法

まず、おさらいとしてブック名が全て判明している場合です。
対象ブックが開いている時に対象ブックを閉じるプログラムをご紹介します。
プログラムは下記の通りです。

Sub ブックAを閉じているか確認()

Dim CloseBook As Workbook, Flag As Boolean

Flag = False

For Each CloseBook In Workbooks

If CloseBook.Name = “ブックA.xlsx” Then
Flag = True
End If

Next

If Flag = True Then
Workbooks(“ブックA.xlsx”).Close
End If

End Sub

内容として、「For Each　変数　In Workbooks」で現在開いているブックを変数に繰り返し格納していきます。
そして変数に格納したブックと対象ブック名が等しければ「Flag」が「True」になり
「True」の場合は対象ブックを閉じるといった仕組みです。

今回はこの動作を応用して指定文字の一部でも等しい場合は対象ブックを閉じたいと思います。

⬛︎文字の一部を含むブックが開いてあるか確認して、開いていれば閉じる処理をする

では本題に入ります。
内容としては対象の文字の一部に対し、現在開いてあるブックを照らし合わせて
開いているか確認し、開いてあれば閉じるといった内容となってます。

通常の処理と異なるのは「文字の一部」という面です。
その際に使用する機能は「ワイルドカード」と呼ばれる「✳︎」となります。

では内容を紹介します。
通常では先ほどの「If CloseBook.Name = “ブックA.xlsx” 」のように「＝」で
対象ブックか判別していましたが、今回は「Like」を使用して文字列を比較します。

そして「Like」と「✳︎対象の文字の一部✳︎」を組み合わせて、対象の文字が含まれているか確認しています。
プログラムはこのようになります。

If 変数.Name Like "*対象としたい文字*" Then
Flag = True
End If

これにより、開いているブック名に対象としたい文字が含まれていれば変数「Flag」が「True」となります。

では見本を見ていきましょう。
今回は「A」という文字を含んであるブックを開いているか確認して
開いてある場合は閉じて見てみましょう。

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

Sub 対象ブックを閉じているか確認して開いてあれば閉じる()

Dim CloseBook As Workbook, Flag As Boolean

For Each CloseBook In Workbooks
Flag = False

If CloseBook.Name Like “*A*” Then
Flag = True
End If

If Flag = True Then
Workbooks(CloseBook.Name).Close
End If

Next

End Sub

では実行すればどのようになるか説明します。
たとえば「A-1」「A-2」「A-3」「B-1」「B-2」「B-3」「C-1」「C-2」「C-3」
というブックを開いていたとします。

今回はブック名に「A」がつくブックを閉じるので
「A」を含む「A-1」「A-2」「A-3」のブックを対象とし、閉じるプログラムになります。

⬛︎ワイルドカードの応用方法

これまでは指定の文字を含むブックが開いてあるか確認し、
開いてあればブックを閉じていました。

例えば「A」を含むブックを閉じたければ「✳︎A✳︎」の条件で開いてあるか確認してましたね。
しかし場合によっては「○○○A×××」というファイル名の形式があった場合、○○○の部分は対象から
外したい場合などが存在します。

その場合は「✳︎」の位置を変える必要があります。

先程の例で説明すると「○○○A×××」の「○○○A」までは固定で「×」の部分は全対象としたい場合、
「A✳︎」を条件とします。

プログラムは下記の通りです。

Sub 対象ブックを閉じているか確認して開いてあれば閉じる()

Dim CloseBook As Workbook, Flag As Boolean

For Each CloseBook In Workbooks
Flag = False

If CloseBook.Name Like “A*” Then
Flag = True
End If

If Flag = True Then
Workbooks(CloseBook.Name).Close
End If

Next

End Sub

反対に「○○○A×××」の「A×××」までは固定で「○」の部分を全対象とする場合は
「✳︎A」となります。

「✳︎（ワイルドカード）」については下記記事でまとめてますのでぜひ参考にしてみて下さい。

【*（アスタリスク）の置換】うまくいかない原因と対処法！＊ワイルドカードを無視 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

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

Workbook.Close メソッド (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
指定した文字を含むブックを閉じる際にはとても楽になる知識です。

例えば日付でファイル名を管理してファイル開く、閉じるなどの
場合は対象の年月日のシートを閉じるなど、様々なことができます。

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

【置き換え】文字・数値の置換をシート・ブック内で様々な条件で行う ► 独学エクセル塾 (dokugakuexcel.com)

この記事をご覧になられた方は「*（アスタリスク）」を置き換えてもうまくいかなかったのではないでしょうか。

*（アスタリスク）はワイルドカードという効果を持っており、置換にもその効果を発揮します。

そこで今回は*（アスタリスク）を1つの文字として置き換える方法について紹介します。
それでは見ていきましょう。

■ワイルドカードとは

ではまず、*（アスタリスク）の持つワイルドカードという機能について紹介します。
*（アスタリスク）は簡単に説明すると「文字・数値何にでも変化する」機能です。

例えば

「　*　○×△」であれば「○×△で終わるすべての数値・文字」
「○×△　*　」であれば「○×△で始まるすべての数値・文字」
「　*　○×△　*　」であれば「○×△を含むすべての数値・文字」

というイメージです。

さらにイメージしやすいように見本を用意しました。

・「123456789」の「*5をaaaに置き換え」

結果は5を含んだそれ以前の数値をすべてaaaに置き換えています。

・「123456789」の「5*をaaaに置き換え」

結果は5を含んだそれ以降の数値をすべてaaaに置き換えています。

・「123456789」の「*5*をaaaに置き換え」

結果は5を含むすべての数値をaaaに置き換えています。

ワイルドカードの理解はできたでしょうか。
正確に使えばとても便利な置換の手法です。

ちなみに置換に限らずワイルドカードは様々な場面で使用できます。

■*（アスタリスク）の置換で起こる問題点

先ほどは（アスタリスク）のワイルドカードについて紹介しました。 しかし*（アスタリスク）を文字として置き換えたいときには問題が生じます。

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

「500*10」の計算をしたいとします。 なので「=500*10」と打ち込みました。

結果は500*10で5000になります。

しかしここで「10」で10をかけていた結果を「/10」で10で割るように変更したいとしましょう。 今回は置換で「*10」から「/10」に変更してみましょう。

置き換えた結果はこのようになります。

「＝500/10」の結果である「50」ではなく「/10」となってしまいました。
こちらの現象として「*10」の（*アスタリスク）がワイルドカードと判定され、
「10を含んだ10以前のすべての文字数値を”/10″に置き換える」といったことになります。

*（アスタリスク）を文字として置き換えたい場合はワイルドカードが厄介ですね。
では対策を見ていきましょう。

■*（アスタリスク）を1つの文字として置き換える

では*（アスタリスク）を文字として置き換えてみます。
使用するのは「～（チルダ）」という記号です。
～（チルダ）はワイルドカードを打ち消す機能があります。

○○から××を　「○○～××」で表す際に使用する記号ですね。

使用方法は簡単です。
*（アスタリスク）の前に「～（チルダ）」を入力するとワイルドカードを打ち消してくれます。

なので先ほどは検索する文字列を「*10」としていましたが「～*10」に変更すればいいです。
では実際の結果を見ていきましょう。

置き換えた結果はこのようになります。

無事ワイルドカードを無視して*（アスタリスク）を文字で置き換えることができました。

■公式の説明

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

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

ワイルドカード文字の例 (microsoft.com)

■まとめ

いかがだったでしょうか。
*（アスタリスク）のワイルドカードはとても便利ですが
文字で判別するとなると対応方法を考えなければなりません。

ぜひ今回の記事を参考に*（アスタリスク）とワイルドカードを
うまく活用してみてください。

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

エクセルを使用して計算する第一歩だと思います。

ぜひ、エクセルの基本的なスキルなので参考にしてみてください。

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

■足し算をする

まずは足し算から見ていきましょう。

今回は見本で作成した家計簿を元に説明していきます。

下図をご覧ください。

今回はこちらを見本に計算していきたいと思います。

まず、エクセルで計算させるためには「＝（イコール）」を使用して、

今から計算させることを宣言しないといけません。

それでは合計を計算していきます。

まず「＝(イコール)」の後に「食費の80000」をクリックしてみてください。

ちなみに「食費」や「80000」などが入っている部屋をセルといいます。

食費の80000のセルが点線で囲まれており、＝(イコール)の後にC4と入っているのがわかります。

これは「Ｃ」列の「4」行目を表しており、結果として食費の「80000」を選択しているということ

になります。

さらにガスを足し算したいので「+」を選択します。

このようになりました。

では次に、ガスの値段である「10000」クリックしてみてください。

はい。今度は「10000」が赤い点線で囲われました。

式の色と選択したセルが同じ色になって分かりやすいですね。

開発者の優しさが伝わります。

では流れで電気代と家賃も足してみましょう！

式に直すとこのようになります。

＝Ｃ4+Ｃ5+Ｃ6+Ｃ7

この状態でEnterキーを押すと…

計算できましたね！ほかの引き算・掛け算・割り算もベースはこの作業になります。

この状態で食費を「80000」から「60000」にした場合を見てみましょう。

Ｃ4を60000に打ち換えると…

なんと自動で再計算してくれます。
別パターンとして「＝60000+10000+20000+37000」と入力しても同じ計算ができますが数値が上記のように変わっても答えは自動反映してくれないので注意です。

■引き算をする

次に引き算を紹介します。

ではガスと電気を合計から引いてみましょう。考え方は足し算と同じです。
「＝」をクリックし、合計の「127000」をクリックします。

今回は引き算なので「-」を入力し、ガスと電気の値段を選択します。

式に表すと「＝Ｃ8-Ｃ5-Ｃ6」となりますね。

この状態でEnterキーを押すと…

ちゃんと計算してくれていますね！
どんどん行きましょう！

■掛け算

今度は掛け算を見ていきましょう。

見本では年間の合計金額を求めてみたいと思います。
つまり合計×１２か月ってことですね。

エクセルでは掛け算は「*（アスタリスク）」を使用します。

式に直してみましょう。

＝C８(合計）*　１２（１年の月数）

できてますね！

最後は割り算です。

■割り算

では最後に１人当たりの費用を計算してみます。
この表では３人家族なので合計に3を割ると求めることができます。

エクセルでの割り算は「/（スラッシュ）」を使用すると求めることができます。

式は下記のようになりますね。

＝C８（合計）/　C２（家族の人数）

こちらも割り算を行うことができました。

■四則演算の注意点と考えられるエラー

注意点について説明します。

・計算の対象

四則演算は数値の計算なので文字が含まれる状態でセルを参照するとエラーが生じます。

なので参照は数値のみを選択して活用してみてください。

・四則演算の併用

足し算と掛け算を併用する場面もあるかと思います。

この際は普通の数学と同様に「掛け算と割り算が優先」して計算されます。

先に足し算を計算したいときは「（）」で囲ってください

■公式の説明

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

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

演算子一覧表 – Access (microsoft.com)

■練習問題

・問題①：足し算

数値1と数値2を足した計算結果を「Ｆ3」に表示する

答え：=B3+D3

・問題②：引き算

数値1から「87」を引いた値を「Ｄ6」に表示する

答え：=D3-87

・問題③：掛け算

数値1と数値2を足した後に数値3をかけた値を「Ｆ4」に表示する

答え：=(B3+B6)*D4

かっこ入力が必要です。詳しくは目次の 四則演算の注意点 をご覧ください。

・問題④：割り算

数値1を数値2と数値3で足した値で割った結果を「Ｆ4」に表示する。

答え：=B4/(D3+D6)

⬛︎公式の説明

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

計算練習 (けいさんれんしゅう) シート – 無料テンプレート公開中 – 楽しもう Office (microsoft.com)

■まとめ

いかがだったでしょうか。
エクセルの基礎中の基礎ですがすべてはこのスキルが派生して様々な関数が生まれています。

結果をさらに次の計算に参照して…など結果を様々な場面で活用することもできます。

さらに便利な関数も多数ありますので是非、エクセルをきわめてみてください。

では次回の記事でお会いしましょう！