[已解决]求助2个自定义函数

mate33

求助2个自定义函数

最佳答案

月排行榜 / 总排行榜

grf1973

2017-6-7 16:10

1. Function myF(reg1 As Range, reg2 As Range)   '从下往上，从右往左
   
2.     If reg1.Cells.Count > 1 Then myF = "第一参数只能选择一个单元格": Exit Function
   
3.     For k = reg2.Cells.Count To 1 Step -1
   
4.         x = reg2.Cells(k)
   
5.         For m = Len(x) To 1 Step -1
   
6.             xstr = xstr & Mid(x, m, 1)
   
7.         Next
   
8.     Next
   
9.     n = Val(reg1.Value)
   
10.     p = (n + 1) Mod Len(xstr): If p = 0 Then p = Len(xstr)
    
11.     myF = Mid(xstr, p, 1)
    
12. End Function
    
13. 
    
14. Function myFF(reg1 As Range, reg2 As Range)   '从上往下，从左往右
    
15.     If reg1.Cells.Count > 1 Then myFF = "第一参数只能选择一个单元格": Exit Function
    
16.     For k = 1 To reg2.Cells.Count
    
17.         x = reg2.Cells(k)
    
18.         For m = 1 To Len(x)
    
19.             xstr = xstr & Mid(x, m, 1)
    
20.         Next
    
21.     Next
    
22.     n = Val(reg1.Value)
    
23.     p = (n + 1) Mod Len(xstr): If p = 0 Then p = Len(xstr)
    
24.     myFF = Mid(xstr, p, 1)
    
25. End Function
    

复制代码

跳转到最佳答案楼层