B = Bottom; x = InputBox("変換する列を指定してください。", x); For(y to B){ str = [x,y]; str = replace(str, "1", "一"); str = replace(str, "1", "一"); str = replace(str, "2", "二"); str = replace(str, "2", "二"); str = replace(str, "3", "三"); str = replace(str, "3", "三"); str = replace(str, "4", "四"); str = replace(str, "4", "四"); str = replace(str, "5", "五"); str = replace(str, "5", "五"); str = replace(str, "6", "六"); str = replace(str, "6", "六"); str = replace(str, "7", "七"); str = replace(str, "7", "七"); str = replace(str, "8", "八"); str = replace(str, "8", "八"); str = replace(str, "9", "九"); str = replace(str, "9", "九"); str = replace(str, "0", "○"); str = replace(str, "0", "○"); [x,y] = str; }