|
たけぞうです。配列について教えてください。
先ずは、私が理解しやすいようにモデルを簡単にしました。
1.A1セルに文字列を入力します。
2.B1セルに =hairetu_BBB(A1)を入力して、B1セルに
1行2列の配列を返します。
3.C1セルに =hairetu_CCC(B1)を入力して、C1セルの値を得ます。
過去ログを調べて =hairetu_BBB(A1) について作成しましたが、L_Bの値が格納されているかわかりません。また、=hairetu_CCC(B1)でB1の値を上手く取り込めなくて困っています。どうぞよろしくお願いします。
Function hairetu_BBB(AAAA As String)
Dim Buf As Variant
Dim L_A As Integer
If Len(AAAA) < 4 Then L_A = 0 Else: L_A = 1
Buf = Array("Q1", L_A)
hairetu_BBB = Buf
End Function
Function hairetu_CCC(BBBB As Variant)
Dim Buf_B As Variant
Buf_B = Array(BBBB(0), BBBB(1)) '←?どのように記述すれば良いですか?
If Buf_B(0) = 0 Then hairetu_CCC = 0
If Buf_B(1) = 1 Then hairetu_CCC = 1
End Function
|
|