[已解决]EXCEL高手用VBA如何实现函数转换

vbyou127

EXCEL高手用VBA如何实现函数转换


用VBA编写

函数chang 功能是对四位以内(含4位)的十进制正整数num进行如下:将num 每一位数字重复一次，并反回变换结果

例如,若num=5234,则函数返回值为55223344，其变换过程可描述为

(4*10+4)*1+(3*10+3)*100+(2*10+2)*10000+(5*10+5)1000000=55223344

最佳答案

月排行榜 / 总排行榜

grf1973

2016-2-16 11:24

根据2楼思路自定义函数呗。

1. Function Change(num)
   
2.     Dim i%, x, y
   
3.     If Len(num) = 0 Then
   
4.         Change = ""
   
5.     Else
   
6.         For i = 1 To Len(num)
   
7.             x = Mid(num, i, 1)
   
8.             Change = Change & String(2, x)
   
9.         Next
   
10.     End If
    
11. End Function
    

复制代码

跳转到最佳答案楼层

雪舞子

1. Sub test()
   
2.     Dim i%, num, x, y
   
3.     num = 5234
   
4.     For i = 1 To Len(num)
   
5.         x = Mid(num, i, 1)
   
6.         y = y & String(2, x)
   
7.     Next
   
8.     MsgBox y
   
9. End Sub

复制代码

vbyou127

雪舞子 发表于 2016-2-13 10:28

num不一定是5234，怎么办

雪舞子

vbyou127 发表于 2016-2-13 10:47
num不一定是5234，怎么办

num是个变量，可以任意改变数值，
也可以设置某一单元格或inputbox输入。

baksy

8位数以内可用公式解决

vbyou127

雪舞子 发表于 2016-2-13 11:08
num是个变量，可以任意改变数值，
也可以设置某一单元格或inputbox输入。

如何,设置某一单元格或inputbox输入。

grf1973

根据2楼思路自定义函数呗。

1. Function Change(num)
   
2.     Dim i%, x, y
   
3.     If Len(num) = 0 Then
   
4.         Change = ""
   
5.     Else
   
6.         For i = 1 To Len(num)
   
7.             x = Mid(num, i, 1)
   
8.             Change = Change & String(2, x)
   
9.         Next
   
10.     End If
    
11. End Function
    

复制代码