ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 153|回复: 5

[求助] 编写的自定义函数无法使用的问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-11 20:44 | 显示全部楼层 |阅读模式
参照别人给的自定义函数,自己改了一个,可是始终不能正常使用,烦请指教!编写这个函数的目的主要是实现岗前分配表中,单位简全称的互换,也是论坛上的朋友提供了一个思路,我照着改了下,始终不能正常使用。因为初学,烦请指导下编写与使用。
2.jpg

分配综合统计表.rar

44.06 KB, 下载次数: 5

TA的精华主题

TA的得分主题

发表于 2019-2-11 20:58 | 显示全部楼层
  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
复制代码


TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 21:28 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-2-12 14:36 | 显示全部楼层
zlhlxl 发表于 2019-2-11 21:28
调用时格式是qc (单元格)?

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-12 19:23 | 显示全部楼层
huang1314wei 发表于 2019-2-12 14:36
如果你要用单元格,把  jc As String  改成  jc As Range

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

分配综合统计表模板.rar

43.25 KB, 下载次数: 1

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-13 12:41 来自手机 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-2-20 19:32 , Processed in 0.077090 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表