Ini tak kasih contoh coding-nya, mohon diteruskan sendiri:
Sub Convert()
Dim Kata As String
Dim Hasil As String
Dim Temp As Integer
Dim i As Integer, j As Integer
Dim Sama As Boolean
Kata = InputBox("Inputkan Angka")
For i = 1 To Len(Kata)
Temp = Val(Mid(Kata, i, 1)) + 64
If Temp = 64 Then Temp = 74
Hasil = Hasil + Chr(Temp)
Next i
MsgBox Hasil
End Sub
--- In [email protected], "sherinalavenda"
<[EMAIL PROTECTED]> wrote:
>
> dear all millis...
> saya lagi dapet kesulitan mengkonversikan angka ke huruf.
> misalkan A mewakili angka 1, B mewakili angka 2,.. ,J mewakili 0.
> contoh: di text box ada angka 210000 maka ditexbox kedua berisi BAJ4.
> thanks large....
>
