Excel自动从身份证中提取生日及性别.doc

Excel自动从身份证中提取出生年月和性别
小写数字转换大写。
1.只要在 需要转换的单元格，单击右键——设置单元格格式——数字——特殊——类型——中文大写数字。
只要输入数字，就自动显示中文大写数字。

2.=IF(A1=0,"",TEXT(A1,"[dbnum2]")) 中的数学 可以变化[dbnum2]
3.upper（）函数是转化小写字母为大写字母
text（阿拉伯数字，"[dbnum2]0") 转化阿拉伯数字为大写汉字数字

4.这个截图也是一样的啊，不就是输入一个公式嘛：
比如说，你要把A1单元格转化为大写，显示在B1里面，那么你就在B1输入;=textA1,"[DBNUM2}"），然后结果就显示在B1了

每年新入学的一年级学生，都需要向上级教育部门上报一份包含身份证号、出生年月等内容的电子表格，以备建立全省统一的电子学籍档案。数百个新生，就得输入数百行相应数据，这可不是个轻松活儿。有没有什么办法能减轻一下输入工作量、提高一下效率呢？其实，我们只需在Excel2003中将学生的身份证号完整地输入后，它就可以帮我们自动填好出生日期和性别。
现在学生的身份证号已经全部都是18位的新一代身份证了，里面的数字都是有规律的。前6位数字是户籍所在地的代码，7－14位就是出生日期。第17位“2”代表的是性别，偶数为女性，奇数为男性。我们要做的就是把其中的部分数字想法“提取出来”。
STEp1，转换身份证号码格式
我们先将学生的身份证号完整地输入到Excel2003表格中，这时默认为“数字”格式（单元格内显示的是科学记数法的格式），需要更改一下数字格式。选中该列中的所有身份证号后，右击鼠标，选择“设置单元格格式”。在弹出对话框中“数字”标签内的“分类”设为“文本”，然后点击确定。
STEP2，“提取出”出生日期
将光标指针放到“出生日期”列的单元格内，这里以C2单元格为例。然后输入“=MID(B2,7,4)&"年"&MID(B2,11,2)&"月"&MID(B2,13,2)&"日"”（注意：外侧的双引号不用输入，函数式中的引号和逗号等符号应在英文状态下输入）。回车后，你会发现在C2单元格内已经出现了该学生的出生日期。然后，选中该单元格后拖动填充柄，其它单元格内就会出现相应的出生日期。如图1 。

图1 通过上述方法，系统自动获取了出生年月日信息
小提示：MID函数是EXCEL提供的一个“从字符串中提取部分字符”的函数命令，具体使用格式在EXCEL中输入MID后会出现提示。
STEP3，判断性别“男女”
选中“性别”列的单元格，如D2。输入“=IF(MID(B2,17,1)/2=TRUNC(MID(B2,17,1)/2),"女","男")”（注意如上）后回车，该生“是男还是女”已经乖乖地判断出来了。拖动填充柄让其他学生的性别也自动输入。如图2。

图2 性别被自动填入指定位置
这样，通过两个简单的函数，我们就可以让EXCEL从身份证号中自动提取出生日期和性别并填充到单元格内，极大地减轻了我们的输入工作量。最后效果如图3。

在excel中不需要函数 或公式，就可以把一个单元格的

EXCEL 大写数字加空格
比如H1栏是1234
我G1栏=H1，但我把文本调成了大写就变成了壹千贰百叁拾肆
但是我想直接填在票上，票上有仟百拾了，所以我想把仟百拾他们去掉并且留个空格
可以直接打印在票上
推荐答案
2012-6-26 13:33

1 把下面代码复制到代码框，就可以用 =中文（var） 这个自定义函数

Public Function 中文(VAR)
M = Len(VAR)
For I = 1 To M
N = Mid(VAR, I, 1)
If N = 0 Then
N = "零 "
ElseIf N = 1 Then
N = "壹 "
ElseIf N = 2 Then
N = "贰 "
ElseIf N = 3 Then
N = "叁 "
ElseIf N = 4 Then
N = "肆 "
ElseIf N = 5 Then
N = "伍 "
ElseIf N = 6 Then
N = "陆 "
ElseIf N = 7 Then
N = "柒 "
ElseIf N = 8 Then
N = "捌 "
ElseIf N = 9 Then
N = "玖 "
End If
中文 = 中文 & N
Next
End Function

2 =中文（VAR) VAR为单元格 比如
A1是 1234 在B1输入 =中文（A1) 就可以达到你要的结果

G1=TEXT(H1,REPT("0 ",LEN(A1))&"[dbnum2]")
如果感觉空位不够,就在公式中的0后面再加空格,直至满足要求为止

怎么不行呢,用了公式,就把1234变成了"壹 贰 叁 肆"了,又转化了,又留了空格,完全满足你的要求呀.
最后是：
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(NUMBERSTRING(H1,2),"仟"," "),"佰"," "),"拾"," ")
excel，假如单元格A1为阿拉伯数字，怎样用函数在A2里把A1中的阿拉伯数字转为中文大写？而且要精确到角分上：
一
=IF((INT(A1*10)-INT(A1)*10)=0,TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,"整","零"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格式")&"分"))
直接复制就OK啦！
二
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1>0,,"负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")
三
=TEXT(A1*100,"人民币0拾0万0仟0佰0拾0元0角0分[dbnum2]")