質問: tablevalue(j) エラー sub または、functionが定義されていません 上記のコードで私の認識では、すでに配列に格納されているとおもうのですが、 どのように転記したらいいのでしょうか? お手数ですが、ご教示をお願いします。
回答: 変数:tablevalue は2次元配列である事とセル範囲に0行や0列がない点で、for j = の最初は1である。 ublondについては綴りミスで ubound(tablevalue, 1)が正解かと。 ちなみに初級レベルなのでクラスモジュールは???ですが、見た感じクラス名を標準モジュール内で宣言されてないようにも思えましたが、私の老眼が原因なのかな? >debug.print p.担当者名; p.商品名; p.売上日; p.商品コード ここはクラスモジュールでも個々に宣言しているので、 >p.商品名(i) 配列などと同じようにインデックスはないようにも思えますが・・・(自信なし!!!!!!) >for j = 0 to ublond(tablevalue) >cells(j + 20, 1) = tablevalue(j) for j = 1 to ubond(tablevalue, 1) cells(j + 19, 1) = tablevalue(j, 1) になるのかな?