Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

変数が配列かどうかをチェックする（ IsArray 関数）

2015/04/24

IsArray 関数の使い方

【書式】

result = IsArray( varname )

【引数・戻り値】

varname ・・・調べる変数
result ・・・引数 varname が配列かどうかを調べた結果
（ブール型：配列の場合は、True ／配列以外の場合は、False ）。

IsArray 関数の使用例

サンプルVBAソース

　

Sub Sample_isarray()

    
    Dim myArr(2), myVa1, myVa2, myNum, myStr
    
    myArr(0) = "あ"
    myArr(1) = "い"
    myArr(2) = "う"
    
    myStr = "A,B,C,D,E,F,G"
    
    myVa1 = Array(1, 2, 3, 4, 5)
    
    myVa2 = Split(myStr, ",")
    
    myNum = 20
    
    
    MsgBox "myArr：" & IsArray(myArr) & Chr(13) & _
           "myVa1：" & IsArray(myVa1) & Chr(13) & _
           "myVa2：" & IsArray(myVa2) & Chr(13) & _
           "myStr：" & IsArray(myStr) & Chr(13) & _
           "myNum：" & IsArray(myNum)


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

　

Sub Sample_isarray()

Dim myArr(2), myVa1, myVa2, myNum, myStr

myArr(0) = "あ"

myArr(1) = "い"

myArr(2) = "う"

myStr = "A,B,C,D,E,F,G"

myVa1 = Array(1, 2, 3, 4, 5)

myVa2 = Split(myStr, ",")

myNum = 20

MsgBox "myArr：" & IsArray(myArr) & Chr(13) & _

"myVa1：" & IsArray(myVa1) & Chr(13) & _

"myVa2：" & IsArray(myVa2) & Chr(13) & _

"myStr：" & IsArray(myStr) & Chr(13) & _

"myNum：" & IsArray(myNum)

End Sub

　

実行結果

- VBA基本 IsArray 関数, VBA基本, エクセルVBA, 配列

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

: インプットボックスを表示する（InputBox関数・InputBoxメソッド）

「InputBox関数」と「InputBoxメソッド」の違い「InputBox …

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

: VBA の演算子（算術演算子）

算術演算子算術演算を行うときに使用する演算子です。 ^（べき乗）、*（積）、/ …

: 配列の添字の最小値を「1」に設定する

Option Base ステートメントを使用する【書式】 Option Bas …

: セルのデータを区切り文字で複数のセルに分割する（TextToColumns メソッド）

TextToColumns メソッド TextToColumns メソッドを使用 …

: 引数の整数部分を取得する（Fix 関数・Int 関数）

Fix 関数・Int 関数の使い方【書式】 number_fix = Fix …

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

: メッセージボックスを表示（MsgBox関数）

MsgBox関数【書式】 result = MsgBox ( Prompt [ …

PREV: 書式を変換（Format 関数）
NEXT: 変数が日付型かどうかをチェックする（ IsDate 関数）