excel - Excel VBA サブスクリプトの範囲外エラー

Question

次のコードの出力を取得しようとしましたが、エラーが発生しました

コードは次のとおりです。

---

Dim strRisk() As String
Dim riskLen As Integer

strRisk = SplitMultiDelims(ActiveCell.Offset(0, 9).Value, "@")
MsgBox UBound(strRisk)

エラー：

---

Run time error '9':
Subscript out of range

参照セルの値が null ではありません。他に何が考えられますか? これを行う別の方法はありますか。

私を助けてください

Answer 1

Dim strRisk() As String動的配列として定義する場合はRedim strRisk (n)、対応するインデックスを使用して strRisk を参照する必要があります。strRisk(i)=....

strRisk を配列として保存する場合は、 を使用するDim strRisk As Variantと 機能しstrRisk=...ます。