| |
たけぞうです。配列について教えてください。
先ずは、私が理解しやすいようにモデルを簡単にしました。
１．Ａ１セルに文字列を入力します。
２．Ｂ１セルに =hairetu_BBB(A1)を入力して、Ｂ１セルに
１行２列の配列を返します。
３．Ｃ１セルに =hairetu_CCC(B1)を入力して、Ｃ１セルの値を得ます。
過去ログを調べて =hairetu_BBB(A1) について作成しましたが、L_Bの値が格納されているかわかりません。また、=hairetu_CCC(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
|
|
たけぞう
- 06/3/8(水) 20:28 -
