投稿日 | : 2007/04/16(Mon) 11:53 |
投稿者 | : ダンボ |
Eメール | : |
URL | : |
タイトル | : Re: 引数に対応するアルファベットへの変換 |
Private Function Alpha(Num As Integer) As String
If (Num >= 0) And (Num < 26) Then Alpha = Chr(Asc("A") + Num)
End Function
(*)上記だけで投稿しようとしたら「アスキーコードだけの入力はできません! 」って怒られましたわ