ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[讨论] Excel实用技巧接龙游戏!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-9-5 16:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

132楼方法的一点不足

132楼所写的公式对利用身份证返回性别、出生日期、年龄都非常适用。非常好!但有一点不足:当身份证尾数为“X”时,无法正确显示性别。有没有补救办法呢?
[此贴子已经被作者于2004-9-5 17:26:39编辑过]

TA的精华主题

TA的得分主题

发表于 2004-9-6 18:13 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以下是引用YBIL在2003-4-22 0:03:00的发言: 我来一个:   性别=IF(or(and(len(q1)=15,mod(RIGHT(q1,1),2)=1),(and(len(q1)=18,mod(int(RIGHT(q1,2)/10),2)=1))),"男","女")  出生日期=IF(LEN(q1)=15,date(mid(q1,7,2),mid(q1,9,2),mid(q1,11,2)),date(mid(q1,7,4),mid(q1,11,2),mid(q1,13,2)))  年龄=DATEDIF(a1,TODAY(),"y") (注:q1为身份证号码,a1为出生日期)

改成:性别=IF(Q1="","",IF(AND(LEN(Q1)<>15,LEN(Q1)<>18),"误",IF(LEN(Q1)=15,IF(MOD(RIGHT(Q1,1),2)=1,"男","女"),IF(MOD(MID(Q1,17,1),2)=1,"男","女"))))

这样就可以验证末位是“X”的性别了,不过有点啰嗦,请高手修改。(“误”,指身份证号输入错误)

[此贴子已经被作者于2004-9-10 18:23:35编辑过]

TA的精华主题

TA的得分主题

发表于 2004-9-8 10:22 | 显示全部楼层
将小写金额转换成大写:=TEXT(INT(A1),"[DBNum2][$-804]G/通用格式")&"元"&IF((INT(A1*10)-INT(A1)*10)=0,"",TEXT(INT(A1*10)-INT(A1)*10,"[DBNum2][$-804]G/通用格式")&"角")&IF((INT(A1*100)-INT(A1*10)*10)=0,"整",TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2][$-804]G/通用格式")&"分")

TA的精华主题

TA的得分主题

发表于 2004-9-8 10:22 | 显示全部楼层
以下是引用chengxiang在2002-11-18 14:02:00的发言: 在excel编辑页面状态下,按着ctrl并滑动鼠标中轮,可快速改变表格的行高度。 marco TO:chengxiang 不好意思,我怎么测试的效果是改变显示比例??

在菜单“工具”--“选项”将使用智能缩放取消就可以了

[此贴子已经被作者于2004-9-8 10:25:43编辑过]

TA的精华主题

TA的得分主题

发表于 2004-9-9 13:25 | 显示全部楼层
引用的切换:F4可以在相对引用,绝对引用,混合引用之间切换

TA的精华主题

TA的得分主题

发表于 2004-9-11 08:57 | 显示全部楼层
身份证号18位的,从左到右倒数第二位才是性别标示符

TA的精华主题

TA的得分主题

发表于 2004-9-12 19:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

我也接一龙

Excel中格式刷的主要作用是复制某一单元格(或区域)的格式(字体、字号、行高、列宽等)应用于其他区域,可将上述单元格选中,单击格式刷来取出所在位置或所选内容的文字格式,用这个刷子去刷别的单元格可实现文字格式的复制。但每次刷完后,格式刷就变成不可用了,如果希望重复复制格式,就要不停地重复上述过程。有一个方法可避免上述的繁琐步骤:通过双击格式刷,可以将选定格式复制到多个位置。若要关闭格式刷,则按下“Esc”键或再次单击格式刷即可

TA的精华主题

TA的得分主题

发表于 2004-9-15 12:32 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-18 00:11 | 显示全部楼层
以下是引用zch031在2004-9-6 18:13:00的发言:

改成:性别=IF(Q1="","",IF(AND(LEN(Q1)<>15,LEN(Q1)<>18),"误",IF(LEN(Q1)=15,IF(MOD(RIGHT(Q1,1),2)=1,"男","女"),IF(MOD(MID(Q1,17,1),2)=1,"男","女"))))

这样就可以验证末位是“X”的性别了,不过有点啰嗦,请高手修改。(“误”,指身份证号输入错误)

有校验位的身份证算男女性别时,取的是倒数第二位吧。与像X无关。

TA的精华主题

TA的得分主题

发表于 2004-9-21 00:40 | 显示全部楼层

看了39页,已经凌晨40分了,眼睛太累.收获很大,我会经常来的

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

本版积分规则

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

GMT+8, 2024-10-6 20:35 , Processed in 0.039680 second(s), 5 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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