| 投稿日 | ： 2007/04/16(Mon) 13:12 |
| 投稿者 | ： ふく |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 引数に対応するアルファベットへの変換 |
> Private Function Alpha(Num As Integer) As String
> If (Num >= 0) And (Num < 26) Then Alpha = Chr(Asc("A") + Num)
> End Function
>
> (*)上記だけで投稿しようとしたら「アスキーコードだけの入力はできません！ 」って怒られましたわ
回答ありがとうございます。
アスキーコードという手がありましたね。
もう少し拡張したことができそうです。