レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロ・VBA発展編２

動的配列3-演習

みねさんの投稿

(投稿ID: 4050)

テキスト35ページの

LBound関数やUnbound関数の第二引数は、「配列の、左から数えて何次元目のところの最小値、最大値を求めるか」を指定するための引数です。
なので、この例の場合だと、計算結果の例は、以下のようになります。
LBound(vList, 1) → 0
UBound(vList, 1) → 1
LBound(vList, 2) → 0
UBound(vList, 2) → 31

というのが理解不能です。
二次元だと

1列目2列目ともにの最小の値が１　最大が31
だと思うのですが

なぜ
LBound(vList, 1) → 0
UBound(vList, 1) → 1
LBound(vList, 2) → 0
UBound(vList, 2) → 31

こうなってしまうのかわかりません。
具体的に35ページの青い点線でいう
どこからどこまでの範囲を　１とした場合と２とした場合で
指すのかおしえていただけるとありがたいです。
よろしくお願いします。

2018/08/06 14:41

小川慶一さんのコメント

(コメントID: 5610)

みねさん:

まずは確認。
一次元配列の場合の LBound関数、 UBound関数の計算結果については、よいでしょうか。

Sub hoge()
    'ary(0), ary(1), ary(2), ary(3), ary(4), ary(5)
    'で構成された、要素数6, 最小インデックス0, 最大インデックス 5 の配列を作ります↓
    Dim ary(5) As Long
    
    '結果を出力してみましょう↓
    Debug.Print LBound(ary) '0 が出力されます
    Debug.Print UBound(ary) '5 が出力されます
End Sub

↑上記のとおり、最小値は0です。

同様に、二次元配列でも、最小値は0。

...という説明で、まずはどうでしょう？

> テキスト35ページの
>
> LBound関数やUnbound関数の第二引数は、「配列の、左から数えて何次元目のところの最小値、最大値を求めるか」を指定するための引数です。
> なので、この例の場合だと、計算結果の例は、以下のようになります。
> LBound(vList, 1) → 0
> UBound(vList, 1) → 1
> LBound(vList, 2) → 0
> UBound(vList, 2) → 31
>
> というのが理解不能です。
> 二次元だと
>
> 1列目2列目ともにの最小の値が１　最大が31
> だと思うのですが
>
> なぜ
> LBound(vList, 1) → 0
> UBound(vList, 1) → 1
> LBound(vList, 2) → 0
> UBound(vList, 2) → 31
>
> こうなってしまうのかわかりません。
> 具体的に35ページの青い点線でいう
> どこからどこまでの範囲を　１とした場合と２とした場合で
> 指すのかおしえていただけるとありがたいです。
> よろしくお願いします。

2018/08/06 19:53

みねさんのコメント

(コメントID: 6868)

早速の返信ありがとうございます。
最小値の説明はわかりました。
最大値が↓の2つで何故違うのかがわかりません。

UBound(vList, 1) → 1

UBound(vList, 2) → 31

35ページの
点線の2列とも最大値は31番目だと思うのですが

UBound(vList, 1) → 1

になってしまう理由がわかりません。
よろしくおねがいします。

2018/08/06 23:58

小川慶一さんのコメント

(コメントID: 5613)

みねさん:

二次元配列を作るとは、直感的に言うと、長方形の入れ物を作るということです。

Dim vList(1, 32) As Variant

であれば、横2,縦33の長さの長方形ができあがる、ということです。

[a] 横サイズ2(0から1まで)
[b] 縦サイズ33(0から32まで）

UBound(vList, 1)は、上述[a]の1を取得するものです。
UBound(vList, 2)は、上述[b]の32を取得するものです。

という説明でどうでしょうか。

Sub fuga()
    Dim vList(1, 32) As Variant
    
    Debug.Print UBound(vList, 1)
    Debug.Print UBound(vList, 2)
End Sub

> 早速の返信ありがとうございます。
> 最小値の説明はわかりました。
> 最大値が↓の2つで何故違うのかがわかりません。
>
> UBound(vList, 1) → 1
>
> UBound(vList, 2) → 31
>
> 35ページの
> 点線の2列とも最大値は31番目だと思うのですが
>
> UBound(vList, 1) → 1
>
> になってしまう理由がわかりません。
> よろしくおねがいします。

2018/08/07 00:45

みねさんのコメント

(コメントID: 6869)

とても良く理解出来ました。
ありがとうございます。

2018/08/07 14:09

小川慶一さんのコメント

(コメントID: 5617)

みねさん:

よかったです。
ひきつづきよろしくお願いいたします☆

> とても良く理解出来ました。
> ありがとうございます。

2018/08/09 22:01