如何將數字轉換成英文字母 - 麻辣學園
Function Change(Rng As Range, Num) As String 'Rng為欲轉換之儲存格,Num為大小寫1為大寫,2為小寫 Dim s As Long, i As Long Dim RngStr As String Dim big() Dim js() big = Array(64, 96) js = Array("J", "j") s = Len(Rng) For i = 1 To s RngStr = RngStr & Chr(Mid ......