¸­°ê¬w

1. Function convert1(str As String) As String
   
2. Dim arr(1 To 114), brr(1 To 114)
   
3. For j = 1 To 114
   
4.       arr(j) = Format(j - 4, "#00.")
   
5. Next j
   
6. arr(1) = "A.": arr(2) = "B.": arr(3) = "C.": arr(4) = "D."
   
7. For j = 1 To 114
   
8.       brr(j) = "¥Ò" & j
   
9. Next j
   
10. For j = 1 To 114
    
11.    If InStr(str, arr(j)) > 0 Then
    
12.       t = IIf(t = "", brr(j), t & "." & brr(j))
    
13.    End If
    
14. Next j
    
15. convert1 = t
    
16. End Function

½Æ»s¥N½X

¦^´_ 1# chthonicfreddy