Subscript Out of Range

XDFNRS

各位老师好，请问Subscript Out of Range如何解决？

题目：
为当前选中的区域单元格中公司增加四张相应的报表(rep1, rep2, rep3, rep4)。每张报表为一单独工作表，工作表名称格式为  两位数连续编号_公司名_报表名 ， 如 "01_c1_rep1", "01_c1_rep2",..., "05_c2_rep1".

代码如下（报错处标红），文件见附件。谢谢！

1. Option Explicit
   
2. 
   
3.     Dim sheet As Worksheet
   
4.     Dim i, j, k, l As Integer
   
5. 
   
6. Sub main()
   
7. 
   
8.     createsheets
   
9.    
   
10. End Sub
    
11. 
    
12. Function createsheets()
    
13.    
    
14.     For i = 1 To number
    
15.         For j = 1 To 4
    
16.             Set sheet = Application.Workbooks("Draft.xlsx").Worksheets.Add(after:=Worksheets("source"))
    
17.             sheet.Name = Format(i, "0#") & "_" & selectname(i) & "_" & sheetname(j)
    
18.         Next j
    
19.     Next i
    
20.    
    
21. End Function
    
22. 
    
23. Function selectname(l)
    
24.    
    
25.     Dim arr2()
    
26.     arr2(l) = Selection(l)   <font color="Red">'此处报错</font>
    
27.    
    
28. End Function
    
29. 
    
30. Function sheetname(k)
    
31. 
    
32.     Dim arr()
    
33.     arr = Array("rep1", "rep2", "rep3", "rep4")
    
34.     sheetname = arr(k)
    
35. 
    
36. End Function
    
37. Function number()
    
38. 
    
39.     number = Selection.Rows.Count
    
40.    
    
41. End Function
    

复制代码

蓝桥玄霜

没有这样用自定义函数的。

XDFNRS

蓝桥玄霜 发表于 2020-2-10 18:01
没有这样用自定义函数的。

谢谢老师指导！