단위 변환기......................................

[백화요란]

Dim a As Long, b As Long, i As Long
Private Sub Command1_Click()
If Text1.Text > 99999 Then
    MsgBox "10만 이상은 되지 않습니다."
End If

For a = Text1.Text To -1 Step (-10000)
    If 0 >= Text1.Text Then
    Else
    Exit For
   
    End If
    
Next a

End Sub

텍스트박스 1나 / 라벨1 / 커맨드 1

 만/오천/천/오백/백/오십원/십원/원  단위로 하는건대요... ㅠ

12435 를 썻을겨우... 1만 2천 4백 3십 5원// 이렇게 나오개염 ㅠ

 5천원과 500언 50언두.. 있어햐 하구염... 그런대 위애껀.. 1만 단위를 짠건대 않대내염 ㅠ

[whitebono]

이거 만든거 있는데 찾아서 올려드릴께요.