数字の単位、十、百の位のコードを取得して、必要な友達がそれを参照できるようにします。次のようにコードをコピーします。 FunctionNumberSplit(数値)寸法 i、長さ長さ=長さ(数値) i=1 の場合 長さまでNumberSplit=NumberSplit & num mod 10 & , '剰余num = num / 10 '割り切れる次NumberSplit=Left(NumberSplit,Len(NumberSplit)-1)終了機能
