编写的自定义函数无法使用的问题

zlhlxl

参照别人给的自定义函数，自己改了一个，可是始终不能正常使用，烦请指教！编写这个函数的目的主要是实现岗前分配表中，单位简全称的互换，也是论坛上的朋友提供了一个思路，我照着改了下，始终不能正常使用。因为初学，烦请指导下编写与使用。

huang1314wei

1. Function qc(jc As String) As String
   
2.   Dim ar, i As Long, arr1, arr2, arrall
   
3.   arr1 = Array("劳动改造一监区", "劳动改造二监区", "劳动改造三监区", "劳动改造四监区", "劳动改造五监区", "劳动改造六监区", "劳动改造七监区", "劳动改造十监区", "劳动改造十一监区", _
   
4.   "劳动改造十二监区", "监管改造一监区", "监管改造二监区", "监管改造三监区", "监管改造四监区", "监管改造五监区", "监管改造六监区", "监管改造七监区", "监管改造八监区", "医务监区", _
   
5.   "生活卫生科", "入出监监区", "教育改造科", "高度戒备监区", "劳动改造一监区", "劳动改造二监区", "劳动改造三监区", "劳动改造四监区", "劳动改造五监区", "劳动改造六监区", "劳动改造七监区", _
   
6.   "劳动改造十监区", "劳动改造十一监区", "劳动改造十二监区", "监管改造一监区", "监管改造二监区", "监管改造三监区", "监管改造四监区", "监管改造五监区", "监管改造六监区", "监管改造七监区", _
   
7.   "监管改造八监区", "医务监区", "生活卫生科", "入出监监区", "教育改造科", "高度戒备监区", "劳动改造一监区", "劳动改造二监区", "劳动改造三监区", "劳动改造四监区", "劳动改造五监区", _
   
8.   "劳动改造六监区", "劳动改造七监区", "劳动改造十监区", "劳动改造十一监区", "劳动改造十二监区", "监管改造一监区", "监管改造二监区", "监管改造三监区", "监管改造四监区", "监管改造五监区", _
   
9.   "监管改造六监区", "监管改造七监区", "监管改造八监区", "医务监区", "生活卫生科", "入出监监区", "教育改造科", "高度戒备监区", "劳动改造一监区", "劳动改造二监区", "劳动改造三监区", _
   
10.   "劳动改造四监区", "劳动改造五监区", "劳动改造六监区", "劳动改造七监区", "劳动改造十监区", "劳动改造十一监区", "劳动改造十二监区", "监管改造一监区", "监管改造二监区", "监管改造三监区", _
    
11.   "监管改造四监区", "监管改造五监区", "监管改造六监区", "监管改造七监区", "监管改造八监区")
    
12.   arr2 = Array("劳1", "劳2", "劳3", "劳4", "劳5", "劳6", "劳7", "劳10", "劳11", "劳12", "监1", "监2", "监3", "监4", "监5", "监6", "监7", "监8", "医务", "生活", "入出", "教育", "严管", "L1", "L2", "L3", "L4", "L5", _
    
13. "L6", "L7", "L10", "L11", "L12", "J1", "J2", "J3", "J4", "J5", "J6", "J7", "J8", "医", "生", "入", "教", "严", "l1", "l2", "l3", "l4", "l5", "l6", "l7", "l10", "l11", "l12", "j1", "j2", "j3", "j4", "j5", "j6", "j7", _
    
14. "j8", "医务监", "生活卫", "入出监", "教育科", "严管队", "劳一", "劳二", "劳二", "劳四", "劳五", "劳六", "劳七", "劳十", "劳十一", "劳十二", "监一", "监二", "监三", "监四", "监五", "监六", "监七", "监八")
    
15. For i = 0 To UBound(arr1)
    
16.     If jc = arr1(i) Then qc = arr2(i): Exit Function
    
17.     If jc = arr2(i) Then qc = arr1(i): Exit Function
    
18.   Next i
    
19.   qc = ""
    
20. End Function
    

复制代码

zlhlxl

huang1314wei 发表于 2019-2-11 20:58

调用时格式是qc (单元格)？

huang1314wei

zlhlxl 发表于 2019-2-11 21:28
调用时格式是qc (单元格)？

如果你要用单元格，把  jc As String  改成  jc As Range

zlhlxl

huang1314wei 发表于 2019-2-12 14:36
如果你要用单元格，把  jc As String  改成  jc As Range

感谢您。另请教下，我现在编写的“岗前教育分配单”和“劳动能力评估表”两个宏用的是根据行数和统计单位数分别复制劳动力评估表和岗前教育分配单的页数，能实现我想要的功能，但是在应用中一是表的格式复制受限，二是大量数据的复制影响运行速度。能否有方法不用复制表格，而是各行或各统计单位的数据依次导入表格相应位置，用翻页键实现浏览套打。肯请帮助。

zlhlxl

'没有大神来帮忙吗？