文字色が気に入らないは、初期化で強制代入をしてました。117から152まで。
でも何かおかしい感じしますね。必要な配列を使うには、ReDimを使うと出来そうです。
実はこれにも落とし罠がありました。最後の文字列が""となって、番号が割り当てられました。
実際は何も影響はないようでしたが、でもでも
やはり気に入らない番号が、このやり方では割り当てられますね。
手作業で割り当てるものには、大きい55から小さい方に向かって、割り当てて
PGで割り当てるものには3から1個おきです。今は”尻”が最後で19番が小さい方からの割当がされてます。
Aryk2は文字列、ArycolorはIntegerとしてますが、Variantなので受ける方では、Variantにしないとエラーがでます。!
Ary2(21)が出来てしまいます。Arycolor(21)も出来てしまいます。
一方、Redimを使わないで、配列を固定させれば、上のようなことは起きませんが、データ数の問題がつきまといます。
どんな場合でも、きちんと動くPGを作るのはかなり大変です。自分で使用だけなら、被害は自分だけですので
良いかなあ?大事なので、下は!
Variantのデータは代入してもVariantらしいので、受ける時はVariantで受けないとエラーになります。
配列は代入ではアドレスのコピーで、VariantのデータはVariantで受ける必要があるようです。
そうしないとAryk2(i)みたいなところでエラーになって、考えてしまします。
下は前のもので、Aryk2()は文字列でArycolor()はintegerでタイプは一致している。