忍者ブログ
バイオインフォマティックス技術者試験、情報処理試験など、IT系の試験を基礎から勉強します。また、Javaなどプログラミングを勉強します。

【VBAスタンダード対策】オブジェクトのクリア「Nothing」と状態判定の構造!

オブジェクト変数に格納された「実体への参照(リモコン)」は、使い終わったら明示的にクリアすることが推奨されます。また、変数が空っぽ(未設定)の状態であるかどうかを正確に判定する構造をマスターしましょう。

1. 問題:Nothingによるクリアと状態判定の文法

【 問題 】 オブジェクト変数 myWB に割り当てられたワークブックの参照をクリアし、その後、正しくクリアされたかどうか(Nothingであるか)を条件分岐で確認したい。空欄 ( A )( B ) に入る正しいキーワードの組み合わせはどれでしょうか?

Sub ClearTest()
    Dim myWB As Workbook
    Set myWB = Workbooks.Open("C:\Test.xlsx")
    
    ' --- (1) 参照をクリアする ---
    Set myWB = ( A )
    
    ' --- (2) クリアされたか判定する ---
    If myWB ( B ) Nothing Then
        MsgBox "変数はクリアされています。"
    End If
End Sub

① (A) Empty (B) =
② (A) Nothing (B) =
③ (A) Empty (B) Is
④ (A) Nothing (B) Is

2. 正解:オブジェクトのクリアと判定に関する正解

正解: ④ (A) Nothing (B) Is

3. 解説:Nothingという概念と「Is」演算子

オブジェクト変数を「何も指していない状態」にするキーワードと、その状態を比較する演算子には、VBA独自の構造ルールがあります。

[ Nothingの構造的メカニズム ]

1. クリアは「Set 変数 = Nothing」
Nothing は「どこも指していない無の状態」を表す特殊なキーワードです。通常の変数でいう 0 や空文字("")のような役割ですが、オブジェクト変数なので代入時には必ず Set が必要です。これによりメモリ上の参照(紐付け)が完全に切断されます。

2. 判定には「=」ではなく「Is」を使う
【超重要】 オブジェクトが Nothing かどうかを判定するとき、If myWB = Nothing と書くと実行時エラーになります。値の比較ではなく「同じ対象を指しているか(参照の比較)」を行うため、構造的に Is 演算子 を使用しなければなりません。

1. ここが試験に出る!: スタンダード試験では、あえて If myWB = Nothing という誤ったコードを提示し、エラーになる原因を答えさせる問題が頻出します。オブジェクトの比較は必ず Is(または否定の IsNot ではなく Not ... Is Nothing)を使うという構造を叩き込んでください。
2. エンジニアの視点: Java 17などでは `if (myWB == null)` のように共通の比較演算子を使いますが、VBAは「値の比較(=)」と「参照の比較(Is)」を厳密に区別する理系NEOな設計になっています。大規模なマクロでメモリリーク(メモリが解放されずに重くなる現象)を防ぐためにも、プロシージャの最後で `Set 変数 = Nothing` を明示する癖をつけるのがプロの構造化プログラミングです。


4. まとめ

「オブジェクトを消すならSet = Nothing、確かめるならIs Nothing」。このセットを完璧に理解していれば、オブジェクト変数の制御で迷うことはありません。メモリ空間を綺麗に保ち、エラーのないスマートなマクロを構築しましょう。


PR

【VBAスタンダード対策】オブジェクト変数の代入と「Set」の構造を攻略!

オブジェクト変数とは、単なる「値」ではなく、ワークシートやセル範囲といった「モノ(オブジェクト)」を操作するために、その場所を記憶しておくための変数です。通常の変数とは代入のルールが根本的に異なります。

1. 問題:オブジェクト変数への正しい代入方法

【 問題 】 変数 mySheet に「Sheet1」というワークシートを割り当てて、そのシートの名前を表示させたい。空欄 ( A ) に入る正しい記述はどれでしょうか?

Sub ObjectTest()
    Dim mySheet As Worksheet

    ( A ) Worksheets("Sheet1")

    MsgBox mySheet.Name
End Sub

① mySheet =
② Set mySheet =
③ Let mySheet =
④ mySheet :=

2. 正解:オブジェクト変数の代入に関する正解

正解: ② Set mySheet =

3. 解説:なぜ「Set」が必要なのか?

VBAの構造において、通常の変数とオブジェクト変数は、メモリへの格納方法が明確に区別されています。

[ 変数の構造的違い ]

■ 値の代入(Set不要)
Dim n As Integer
n = 100 ' 箱の中に直接「100」を入れる

■ オブジェクトの代入(Set必須)
Dim r As Range
Set r = Range("A1") ' 箱の中に「A1セルという実体への参照(リモコン)」を入れる

★ 理系NEOなポイント:
参照(ポインタ):オブジェクト変数は、実体そのものを箱に入れているわけではなく、実体を操作するための「リモコン」を箱に入れているような構造です。
Nothing:オブジェクト変数を宣言した直後の初期状態は 0 ではなく Nothing です。Nothingの状態(リモコンがどこも指していない状態)でプロパティを操作しようとすると「オブジェクト変数が設定されていません」というエラーになります。

1. ここが試験に出る!: スタンダード試験では「Setを書き忘れていないか」という点が非常に多く問われます。また、使い終わった後に Set mySheet = Nothing としてメモリを解放する構造も重要です。
2. エンジニアの視点: Java 17などのオブジェクト指向言語では `new` キーワードでインスタンス化しますが、VBAでは既存のExcel要素(シートなど)を扱う際、この `Set` が「これは単なる値のコピーではなく、実体へのリンクである」という宣言の役割を果たしています。


4. まとめ

「オブジェクトにはSet、使い終わったらNothing」。この代入構造をマスターすることで、複雑なExcel操作も変数一つでスマートに制御できるようになります。変数という「リモコン」を正しく対象に向け、正確なマクロを構築しましょう。

【VBAスタンダード対策】配列リバース(逆順入れ替え)の論理構造を攻略!

配列の要素を逆順に並べ替える処理は、アルゴリズムの基礎です。ReDim で確保した領域の中で、どのように値を入れ替えるのか。ループの範囲設定と、データ消失を防ぐための「一時変数」の役割を理解しましょう。

1. 問題:配列の要素を入れ替えるアルゴリズム

【 問題 】 5つの要素を持つ配列 myAry の中身を逆順(myAry(0)と(4)、myAry(1)と(3)を入れ替え)にしたい。空欄 ( A ) に入る最も適切なコードはどれでしょうか?

Sub ReverseArray()
    Dim myAry() As Variant
    Dim tmp As Variant
    Dim i As Long, n As Long

    myAry = Array("A", "B", "C", "D", "E") '要素数5(0 to 4)
    n = UBound(myAry)

    For i = 0 To ( A )
        tmp = myAry(i)
        myAry(i) = myAry(n - i)
        myAry(n - i) = tmp
    Next i
End Sub

① n
② n - 1
③ n \ 2
④ n / 2

2. 正解:ループ回数の決定に関する正解

正解: ③ n \ 2

3. 解説:入れ替え処理の「折り返し地点」

配列を逆順にする際、最も間違いやすいのが「ループを最後まで(nまで)回してしまう」ことです。構造的な仕組みを図解で確認しましょう。

[ 入れ替えの構造図 ]

対象:(0) (1) (2) (3) (4) ※n=4

1回目(i=0):(0) と (4-0=4) を入れ替え
2回目(i=1):(1) と (4-1=3) を入れ替え
ここで終了!

もし、さらに i=3 まで回すと、(3)と(1)を再び入れ替えてしまい、「元に戻ってしまう」 という現象が起きます。

★ 理系NEOなポイント:
n \ 2:整数除算演算子 \ を使い、中心で止めます(4 \ 2 = 2。i=0から2まで回る)。
一時変数 tmpmyAry(i) = myAry(n-i) とした瞬間に、元の myAry(i) は消えてしまいます。あらかじめ tmp に退避させておくのが、構造的なデータ保護の鉄則です。

1. ここが試験に出る!: 試験では「tmpを使わずに直接代入しようとしていないか」「ループ回数が多すぎて元に戻っていないか」という論理ミスを突いてきます。UBound \ 2 という「半分で止める」感覚を身につけましょう。
2. エンジニアの視点: Java 17などの `Collections.reverse()` を使えば一発ですが、VBAで自作する場合は「メモリ上の値をどう移動させるか」を意識します。この「端と端を順番に入れ替えていく」構造は、並べ替え(ソート)アルゴリズムにも通ずる非常に重要な考え方です。


4. まとめ

「リバースは半分で止める。上書き前に退避する」。この2点を守るだけで、配列操作の正確性は格段に向上します。データの位置を構造的に把握し、制御できるようになれば、VBAエキスパートへの道もぐっと近づきます。


【VBAスタンダード対策】Split関数と配列ループの構造を攻略!

文字列を特定の文字で切り分ける Split 関数。この関数が生成する配列には、独自の構造ルールがあります。上限と下限を関数で動的に取得する、安全なループ処理の書き方をマスターしましょう。

1. 問題:Split関数が生成する配列のループ処理

【 問題 】 カンマ区切りの文字列を Split 関数で分割し、その全要素をメッセージボックスで表示したい。空欄 ( A ) に入る最も適切なコードはどれでしょうか?

Sub Sample()
    Dim buf As String
    Dim myAry As Variant
    Dim i As Long

    buf = "VBA,Standard,Exam"
    myAry = Split(buf, ",")

    For i = ( A )
        MsgBox myAry(i)
    Next i
End Sub

① 1 To 3
② 0 To 2
③ LBound(myAry) To UBound(myAry)
④ 1 To UBound(myAry)

2. 正解:配列の境界を取得する関数に関する正解

正解: ③ LBound(myAry) To UBound(myAry)

3. 解説:Split関数の「絶対ルール」と動的処理

Split 関数を使用する際、実務や試験で絶対に外せない構造的ポイントが2つあります。

[ Split関数の構造的特徴 ]

1. 下限(LBound)は必ず「0」
たとえ Option Base 1 を設定していても、Split 関数が作る配列の下限は強制的に 0 になります。そのため、開始を 1 にしてしまうと最初の要素(VBA)を読み飛ばすことになります。

2. 要素数はデータによって変わる
分割元が "A,B,C" なら上限は 2、"A,B" なら上限は 1 になります。上限を「3」などの定数で固定すると、データが少ない時に「インデックスが範囲外です」というエラーを招きます。

★ 理系NEOな解決策:
LBound(配列):最小の添字(Splitなら常に0)を返す
UBound(配列):最大の添字を返す
このペアを使うことで、データの個数が変わっても**構造的にエラーが出ないループ**が完成します。

1. ここが試験に出る!: スタンダード試験では、Split の戻り値を受け取る変数が Variant 型、または String()(動的配列)であること、そしてループの開始が 0(またはLBound)になっているかどうかが厳しくチェックされます。
2. エンジニアの視点: Java 17などの `String.split()` は配列オブジェクトを返しますが、VBAの Split も同様に「メモリ上に一時的な配列構造」を構築します。個数を数える `Count` プロパティが存在しないため、UBound を使うのがVBA流のサイズ確認構造です。


4. まとめ

「Splitの出口は常に0から。サイズはUBoundに聞く」。この構造を徹底すれば、どんなに長いCSVデータが来ても、一文字たりとも漏らさず処理できます。データの「始まり」と「終わり」を関数に判定させる柔軟なコードこそ、堅牢なマクロの基盤となるのです。


【VBAスタンダード対策】下限と上限を指定する配列宣言の構造を攻略!

VBAでは Dim 配列名(下限 To 上限) という形式で、インデックスの開始番号と終了番号を自由に指定できます。この宣言方法を使うことで、「0番目問題」を回避し、データの構造を直感的に表現できるようになります。

1. 問題:指定された範囲から要素数を導き出す

【 問題 】 下記のように宣言された配列 Score に格納できる「要素の数」として正しいものはどれでしょうか?

Dim Score(10 To 20) As Integer

① 10個
② 11個
③ 20個
④ 21個

2. 正解:要素数の計算に関する正解

正解: ② 11個

3. 解説:「上限 - 下限 + 1」の公式

配列の要素数を数えるとき、単純に「20 - 10 = 10個」と考えてしまうのが最も多いミスです。開始番号(下限)もカウントに含める必要があるため、構造的に必ず 「+ 1」 を忘れてはいけません。

[ 配列のインデックス構造 ]

Dim Score(10 To 20)
・Score(10) ← 1つ目
・Score(11) ← 2つ目
...
・Score(20) ← 11つ目

★ 理系NEOな計算式:
要素数 = 上限(20) - 下限(10) + 1 = 11

[ この宣言構造のメリット ]
意味の明確化:例えば出席番号が1番から始まるなら (1 To 30) と書くことで、プログラムと現実の数字を一致させ、0番目の誤使用を防げます。
オフセットの排除:他言語のように「n番目のデータは n-1 のインデックス」という引き算を頭の中でする必要がなくなり、可読性が劇的に向上します。

1. ここが試験に出る!: 試験では LBound (下限を返す関数) と UBound (上限を返す関数) を使ったループ For i = LBound(Score) To UBound(Score) が頻出します。このループが「何回回るか」を答える際、この +1 の構造が鍵を握ります。
2. エンジニアの視点: Java 17などの現代的な言語では下限は常に0と決まっていますが、VBAのように「下限を自由に決められる」構造は、古い会計システムや科学技術計算のロジックを移植する際に非常に強力な武器になります。ただし、混乱を避けるためにプロジェクト内では「常に0から」か「常に1から」か、ルールを統一しておくのがプロの設計です。


4. まとめ

「配列のサイズは、引き算に1を足したもの」。このシンプルな構造ルールを脳内にインストールすれば、どんな範囲指定が来ても迷うことはありません。下限と上限を明示する To の使いこなしこそ、配列操作の精度を高める「構造化プログラミング」への第一歩なのです。