ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: Kevin

大家来爆料:我见过的最牛的Excel用法!

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2008-7-9 20:11 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-7-10 16:31 | 显示全部楼层

有一个财政供养的系统,系统估计是用SQL+PB做的。里面有好多项目都是需要从下拉列表里选择的,比如“拨款形式”这个字段,只能从下拉列表里选择“自收自支”、“差额拨款”、“全额拨款”中的一项。因为我们单位是全额拨款的事业单位,所以几千人的所有这一项都选择“全额拨款”这一项。我用其他软件试了N次,都破解不了那个DB的数据库文件,而且这个财政供养系统软件也不能导入数据(估计是为了安全,根本就没有设置这一项)

让人最恶心的事就是每个人都必须要点一下,然后从中选择“全额拨款”。后来用键盘来输入,在那个格里回车,然后按三下向下的方向键,就定位到“全额拨款”,然后再回车,就确认了输入。这样速度快多了。

接下来,就感觉按键盘也太麻烦了,毕竟好几千人呢。后来就在EXCEL里编写了一个程序,利用SENDKEYS方法,模拟按下的键盘上的键。用ONTIME控制程序在10秒后执行,在这10秒内,把活动程序切换到那个让人恶心的财政供养系统,把焦点定位到要执行操作的字段,10秒后,程序就模拟键盘的操作:按一个回车,然后按三个向下,然后再按一个回车,这样就输入了一个数据,接下来,再按一个向下,移动到下一条记录,然后重复上面的操作。

这样,几千个人的这种极度烦琐的工作不到一分钟就搞定了。

备注:程序运行的时候最好不要听歌,因为播放出来的声音就象是磁带被咬带一样断断续续的。呵呵。

非常赞同263楼:财政系统开发出来的软件均不好使——不知为什么,明明象263楼这样既精通业务又会电脑的人却不用。记得2003所使用的农业税征管软件就是这样,要给每户开一张完税证居然须要按23次回车键、用鼠标点击3次,输入诸如“107.43”这样的税额,让人好不头疼——我们这儿有18000多户呢,而且操作员就我一个,而且是在赤日炎炎的7、8月份。

   好在它有导出功能,导到Excel后,我用宏进行处理后实现了无人值守的连打,结果……你猜……

   我竟然得到了领导的强烈……妒忌,好不恶心!谁让咱会电脑呢,谁让咱是财政里的人呢

TA的精华主题

TA的得分主题

发表于 2008-7-10 17:20 | 显示全部楼层
QUOTE:
以下是引用laoyebin在2008-1-13 11:24:34的发言:

记得前年,我要把一千多张报关单输入进EXCEL,但日期我输入的是20060101这样的格式,不能导入海关系统,问了好多人都没办法,最后一千多张全都重新来过,郁闷死了

这应该不难呀,可以用函数,也可以用宏

TA的精华主题

TA的得分主题

发表于 2008-7-10 19:40 | 显示全部楼层
QUOTE:
以下是引用LangQueS在2007-11-28 17:41:47的发言:

本人使用Excel初期“潜心钻研”的公式(转8位数字日期为支票日期并默认当前日期),共计1000个字符!

=IF(A3="",TEXT(MID(YEAR(TODAY()),1,1),"[DBNum2]G/通用格式")&TEXT(MID(YEAR(TODAY()),2,1),"[DBNum2]G/通用格式")&TEXT(MID(YEAR(TODAY()),3,1),"[DBNum2]G/通用格式")&TEXT(MID(YEAR(TODAY()),4,1),"[DBNum2]G/通用格式")&"年"&IF(MID(RIGHT(MONTH(TODAY())+100,2),1,1)="0",TEXT(MID(RIGHT(MONTH(TODAY())+100,2),1,1),"[DBNum2]G/通用格式")&TEXT(MID(RIGHT(MONTH(TODAY())+100,2),2,1),"[DBNum2]G/通用格式"),TEXT(RIGHT(MONTH(TODAY())+100,2),"[DBNum2]G/通用格式"))&"月"&IF(MID(RIGHT(DAY(TODAY())+100,2),1,1)="0",TEXT(MID(RIGHT(DAY(TODAY())+100,2),1,1),"[DBNum2]G/通用格式")&TEXT(MID(RIGHT(DAY(TODAY())+100,2),2,1),"[DBNum2]G/通用格式"),TEXT(RIGHT(DAY(TODAY())+100,2),"[DBNum2]G/通用格式"))&"日",TEXT(MID($A3,1,1),"[DBNum2]G/通用格式")&TEXT(MID($A3,2,1),"[DBNum2]G/通用格式")&TEXT(MID($A3,3,1),"[DBNum2]G/通用格式")&TEXT(MID($A3,4,1),"[DBNum2]G/通用格式")&"年"&IF(VALUE(MID($A3,5,2))<10,"零"&TEXT(MID($A3,5,2),"[DBNum2]G/通用格式")&"月",TEXT(MID($A3,5,2),"[DBNum2]G/通用格式")&"月")&IF(VALUE(MID($A3,7,2))<10,"零"&TEXT(MID($A3,7,2),"[DBNum2]G/通用格式")&"日",TEXT(MID($A3,7,2),"[DBNum2]G/通用格式")&"日"))


实际上你只要把单元格格式设置为 [DBNum2]yyyy"年"mm"月"dd"日";@   就可以了,从你的公式中找到的灵感

另外,你的公式有问题啊,我A3不为空的时候是你的公式结果出错了

TA的精华主题

TA的得分主题

发表于 2008-7-10 20:50 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
QUOTE:
以下是引用guowolf在2007-12-6 15:15:22的发言:

分公司一女同事,年龄不大,大学毕业,从系统里面导出来数据都是文本格式,没法进行计算,不知道她怎么知道双击一下就会变成数字格式,于是每周一次大几百行的数据点啊点,点啊点…………

直到我有一次去分公司出差看到告诉她可以用乘1等方法解决,她才瞪着眼问我“还可以这样啊?!!你太厉害了!!”

可以选择所有的这些文本型的数字单元格后,点旁边的"!"提示图标,选择"转换为数字"即可!

TA的精华主题

TA的得分主题

发表于 2008-7-10 21:47 | 显示全部楼层
QUOTE:
以下是引用雅典在2007-12-12 23:24:25的发言:

步骤并不复杂:

在A1单元格中输入 “200M”,然后复制,点击左上角选中整个表格,然后粘贴

在第二个表中输入“500M”,复制,选中整个第二个表格,然后粘贴

在第三个表中输入“1G海量!”,选中整个表格后粘贴

友情提示:电脑性能不佳切勿模仿,引发罢工概不负责!

 

这个好玩儿啊,我只这么搞了一个页面,就有98.8M了

 

TA的精华主题

TA的得分主题

发表于 2008-7-10 22:03 | 显示全部楼层
QUOTE:
以下是引用jiejjjjjj在2007-12-28 12:58:20的发言:

说到这里我不的不发出一个小疑问,EXCEL能使用根号开方吗,我试了很多中方法都没法实现根号4=2

=SQRT(4)

我看了二三个小时才看到07.12月

如果有人回答过了算我多嘴

TA的精华主题

TA的得分主题

发表于 2008-7-10 22:13 | 显示全部楼层
QUOTE:
以下是引用blueshirts在2008-1-9 15:48:00的发言:

光有千奇百怪的笑料不够,建议整理出书《我有什么错?!》,有捧腹的笑话,更有正解一、二、三。在开心的笑声中学好Excel,绝不枯燥,记忆深刻。

顶一下这个建议

强烈支持啊

绝对让新手受益匪浅的

TA的精华主题

TA的得分主题

发表于 2008-7-10 22:13 | 显示全部楼层
QUOTE:

不好意思我按重复了

没找到删帖的按钮啊

[此贴子已经被作者于2008-7-10 22:14:54编辑过]

TA的精华主题

TA的得分主题

发表于 2008-7-11 01:40 | 显示全部楼层

连续看了近8个小时,再加上自己看的过程中试验

总算把这个帖子看完了

到最后才发现这一页都被我独占了

哈哈

Mark一下自己的丰功伟绩!

明天,不对,是今天,如果上班不瞌睡就写一个我的糗事

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-26 10:24 , Processed in 0.050272 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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