[¤À¨É] ¼Æ¦rÂà°ê¦rª÷ÃB(¥iÅܦ¨¤½¦¡¨Ï¥Î)

PKKO

¦U¦ì¤j¤j¦n,¦¹¬°¤p§Ì¦bºô¸ô¤W·j´M¤§«á¶i¦æ¤p§ïª©,¤è«K¦U¦ìª½±µ¨Ï¥Î
­«­n»¡©ú:¦]¬°¤p§Ìªºª÷ÃB¥u¥Î¨ì¨Õ¸U¤¸¥H¤º,¦]¦¹¦¹µ{¦¡¥u¾A¥Î©ó¨Õ¸U¤¸¥H¤º,­Y­n¼W¥[¥i¦Û¦æ­×§ï
¤è¦¡¦p¤U
¤@¡B´¡¤J¼Ò²Õ
¤G¡B±N¦¹µ{¦¡½X§¹¾ã¶K¤W
¤T¡B¦b¤½¦¡ªº¦ì¸mª½±µ¥´¤W=Money(A1)
       ´N·|ª½±µ¥X²{°ê¦rª÷ÃB¤F
­Y»Ý­n"¤¸¾ã",´Nª½±µ­×§ïVBA©Î¬O­×§ï=Money(A1) &"¤¸¾ã"
­Y¦³¿ù»~ÁٽЦU¦ì´£¥X,­Ó¤H´ú¸Õ«á¨Ï¥ÎµL»~

1. Function Money(Mny As String) As String
   
2.     Dim w(10), z(10), r(10)
   
3.     word = Mny
   
4.     For i = 1 To Len(word)
   
5.         w(i) = Mid(word, i, 1)
   
6.         If w(i) = 0 Then r(i) = "¹s"
   
7.         
   
8.         If w(i) = 1 Then r(i) = "³ü"
   
9.         
   
10.         If w(i) = 2 Then r(i) = "¶L"
    
11.         
    
12.         If w(i) = 3 Then r(i) = "°Ñ"
    
13.         
    
14.         If w(i) = 4 Then r(i) = "¸v"
    
15.         
    
16.         If w(i) = 5 Then r(i) = "¥î"
    
17.         
    
18.         If w(i) = 6 Then r(i) = "³°"
    
19.         
    
20.         If w(i) = 7 Then r(i) = "¬m"
    
21.         
    
22.         If w(i) = 8 Then r(i) = "®Ã"
    
23.         
    
24.         If w(i) = 9 Then r(i) = "¨h"
    
25.    
    
26.     Next i
    
27.    
    
28.     If r(6) <> "¹s" Then
    
29.         z(7) = ("¨Õ")
    
30.     Else
    
31.         z(7) = ("¨Õ¸U")
    
32.     End If
    
33.    
    
34.     If r(5) <> "¹s" Then
    
35.         z(6) = ("¬B")
    
36.     Else
    
37.         z(6) = ("¬B¸U")
    
38.     End If
    
39.     z(5) = ("¸U")
    
40.     z(4) = ("¥a")
    
41.     z(3) = ("¨Õ")
    
42.     z(2) = ("¬B")
    
43.     z(1) = ""
    
44.     i = 1
    
45.     L = Len(word)
    
46.     aa = ""
    
47.     Do While L > 0
    
48.         If r(i) <> "¹s" Then
    
49.             aa = aa & r(i) & z(L)
    
50.         End If
    
51.         i = i + 1
    
52.         L = L - 1
    
53.     Loop
    
54.          Money = aa
    
55. End Function

½Æ»s¥N½X

PKKO

¦^´_ 1# PKKO


    ©êºp,¤W¤èµ{¦¡¦³»~,¤w­×¥¿¦p¤U,¨Ã­×¥¿¬°¥i¨Ï¥Î¦Ü¤d¸U¤¸

1. Function Money(Mny As String) As String
   
2.     Dim w(10), z(10), r(10)
   
3.     word = Mny
   
4.     For i = 1 To Len(word)
   
5.         w(i) = Mid(word, i, 1)
   
6.         If w(i) = 0 Then r(i) = "¹s"
   
7.         
   
8.         If w(i) = 1 Then r(i) = "³ü"
   
9.         
   
10.         If w(i) = 2 Then r(i) = "¶L"
    
11.         
    
12.         If w(i) = 3 Then r(i) = "°Ñ"
    
13.         
    
14.         If w(i) = 4 Then r(i) = "¸v"
    
15.         
    
16.         If w(i) = 5 Then r(i) = "¥î"
    
17.         
    
18.         If w(i) = 6 Then r(i) = "³°"
    
19.         
    
20.         If w(i) = 7 Then r(i) = "¬m"
    
21.         
    
22.         If w(i) = 8 Then r(i) = "®Ã"
    
23.         
    
24.         If w(i) = 9 Then r(i) = "¨h"
    
25.    
    
26.     Next i
    
27.     If Left(Right(word, 7), 1) Then
    
28.         z(8) = ("¥a")
    
29.     Else
    
30.         z(8) = ("¥a¸U")
    
31.     End If
    
32.     If Left(Right(word, 6), 1) <> 0 Then
    
33.         z(7) = ("¨Õ")
    
34.     Else
    
35.         z(7) = ("¨Õ¸U")
    
36.     End If
    
37.    
    
38.     If Left(Right(word, 5), 1) <> 0 Then
    
39.         z(6) = ("¬B")
    
40.     Else
    
41.         z(6) = ("¬B¸U")
    
42.     End If
    
43.     z(5) = ("¸U")
    
44.     z(4) = ("¥a")
    
45.     z(3) = ("¨Õ")
    
46.     z(2) = ("¬B")
    
47.     z(1) = ""
    
48.     i = 1
    
49.     L = Len(word)
    
50.     aa = ""
    
51.     Do While L > 0
    
52.         If r(i) <> "¹s" Then
    
53.             aa = aa & r(i) & z(L)
    
54.         End If
    
55.         i = i + 1
    
56.         L = L - 1
    
57.     Loop
    
58.          Money = aa
    
59. End Function

½Æ»s¥N½X