関数を使用して配列を返す場合、配列の型はvariantで宣言することを強くお勧めします。 FunctionReturnArray()AsVariantEndFunction 動的配列の方が扱いやすいためです。配列の大きさはあまり気にならなくなります。 配列を返す関数の例 ここでは、配列を返す関数の例を示します。
typeオプション。Functionプロシージャによって返される値のデータ型。は、Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(現在サポートされていません)、Date、String(固定長を除く)、Object、Variant、または任意のユーザー定義型です。
FunctionStone_Reverse_Right(ByValTargetAsRange)DimiAsInteger'反対の色の石探索用のカウンタi=1Dima_row,a_colAsInteger'座標変換用変数a_row=Target.Row-3'選択セルの行を配列上の座標に変換して代入a_col=Target.Column-3'選択セルの列を配列上の座標に変換して代入DimrAsInteger'ひっくり返す用カウ...
Sub プロシージャおよび Function プロシージャを呼び出す コンパイラ定数 オブジェクト変数を作成する 再帰プロシージャを作成する 配列を宣言する 定数を宣言する 変数を宣言する ドキュメントの表記規則 プロパティの設定時にコードを実行する ...
ArrayName :配列の名前。 Dimension :[オプション] どの次元の上限を返すかを示す整数。1次元目には1を、2次元目には2を、といった具合に使用する。省略された場合は1。 Excel VBA UBound関数の例 SubUBound_Example1()DimarrValue(1To5,4To8,12To25)MsgBox UBound(arrValue)MsgBox UBound(arrValue,...
既に存在した場合は、Dictionaryから中身を取り出すElseSetlist=NewCollection' キーが存在しない場合は初期化するSetdic(employeeData.Department)=list' 部署名をキーとして初期化した内容をDictionaryにセットするEndIflist.AddemployeeData' 値を追加するDoEventsNextSetCreateDepartmentDictionary=dicEndFunction ...
Exit Function End If Next isSJIS = True End Function VBAには、JISコードを返す関数が存在せず、 かつ、WorksheetfunctionにはCode関数が存在しません。 Asc関数は、文字列の先頭文字のShif_JISコードを返す関数です。 Shif_JISに無い文字の場合は、Asc関数の戻り値は?(63)となります。 ただし、 そ...
Functionプロシージャを実行する マクロ内で「Debug.Print文」を使うことで、データを出力することができます。 マクロ内で「Debug.Print文」を使うと、イミディエイトウィンドウに、データを出力することができます。 この機能もウォッチウィンドウの代りとして使えます。 ただし、マクロ本...
以下のコードで配列の長さを取得する関数を実装する方法を示します。配列の長さを取得する必要が繰り返し発生する場合に役立ちます。 また、以下のコードには、測定する配列が null であるかどうかを検出するための追加のロジックがあります。 Public Function GetArrayLength(arr As Variant) As In...
Function DecodingOfJSON (jsonString As Variant) Set obj = CreateObject("ScriptControl"): obj.Language = "JScript" Set jsonDecode = obj.Eval("(" + jsonString + ")") End Function Sub main() Set arr = DecodingOfJSON(jsonString ) End Sub ...