|
|
|
| 宣言しない、変数を使用できないようにする |
|
Option Explicit
|
|
|
|
| 警告音を鳴らす |
|
Beep
|
|
|
|
| 配列の次元の下限値を取得 |
|
Range("L8") = LBound(ary)
|
|
|
|
| 配列の次元の上限値を取得 |
|
Range("L8") = UBound(ary) |
|
|
|
| 配列を初期化する |
|
Erase ary |
|
|
|
| 動的配列を消去する |
|
Erase ary |
|
|
|
| 変数が配列かどうか調べる |
|
Range("L8") = IsArray(ary) |
|
|
|
| 要素のデータをセットし、配列を作成する |
|
s = Array("住宅", "自動車", "ビジネス", "不動産") |
|
|
|
| 配列から一致する文字列を検索する |
|
Range("L8") = Filter(s, "ビジネス", True) |
|
|
|
| 配列の要素のデータを結合する |
|
Range("L8") = Join(s, "") |
|
|
|
| 日付に変換可能か調べる |
|
Range("L8") = IsDate("2007/02/31") |
|
|
|
| 数値に変換可能か調べる |
|
Range("L8") = IsNumeric("987a654") |
|
|
|
| 数値に該当する文字列を取得する |
|
Range("L8") = Choose(2, "一階", "二階") |
|
|
|
| 色番号に対応するRGB値を取得する |
|
Range("L8") = QBColor(12) '赤
|
|
|
|
| 変数がNULLかどうか判定する（NULLの場合はTRUE) |
|
Range("B10") = IsNull(i)
|
|
|
|
| Windowsのフォルダを取得 |
|
Range("B8") = Environ("WINDIR") |
|
|
|
| VBAでワークシート関数を使う - SUM関数 |
|
ln = Application.WorksheetFunction.Sum(Range("B14:B18")) |
|
|
|
| VBAでワークシート関数を使う - Average関数 |
|
ln = Application.WorksheetFunction.Average(Range("B14:B18")) |
|
|
|
| VBAでワークシート関数を使う - MAX関数 |
|
ln = Application.WorksheetFunction.Max(Range("B14:B18")) |
|
|
|
| VBAでワークシート関数を使う - MIN関数 |
|
ln = Application.WorksheetFunction.Min(Range("B14:B18")) |
|
|
|