从身份证号提取信息、编号、自动插入照片公式及VBA编程.xlsVIP

3月

2月

1月

示例

公式集锦

公式集锦

序号

公式

说明

非空白单元格个数

B21

至

B24

用

空白单元格个数

所有单元格个数

序号公式利用身份证号提取出生日期1

利用身份证号提取出生日期2

利用身份证号提取出生日期4

加班

B25用

利用身份证号提取出生日期3

不加班

利用身份证号提取出生日期5

利用身份证号提取出生日期6

B26

B27

用

利用身份证号提取出生日期7

利用身份证号提取出生日期8

利用身份证号计算年龄

年龄实岁（到计算当天）

利用身份证号提取男女

B31

用

利用身份证号提取生肖

利用身份证号提取星座

利用身份证号提取省份

插入当前日期(将该单元格设置为自己所需的日期格式）

将一组数据排名次

区间

B32

用

去掉一个最高，一个低分计算平均分（所需数据如D3-D8)

返回一组数的最大值（所需数据如D3-D8)

返回一组数的最小值（所需数据如D3-D8)

求满足某条件的个数（所需数据如D9-D11)

求某分数段的人数

求某分数段人数占总人数的百分比（B28设置单元格格式为百分数即可）

从其他表中提取信息（所用数据：“示例”；A29根据数据的有效性制作）

从此表返回下一表格

根据金额总数写大写

求某区间数的个数

求几张结构相同的表各自的合计

李四

统计工作表

1月、2月、3月

各自的数据

王二麻子

张三

蜻蜓

在同一张工作表中同一人名，计算合计

蝴蝶

青蛙

将学生成绩划分为优、良、中、差（有3个公式

公式1：=IF(A3990,IF(A3980,IF(A3960,差,中),良),优)；

公式2：=IF(A4160,差,IF(A4180,中,IF(A4190,良,优)))

公式3：=IF(A3960,差,IF(AND(A39=60,B380),中,IF(AND(A39=80,B390),良,IF(A39=90,优))))

利用VBA编写宏代码

根据数据的有效性

弹出的姓名在指定

单元格插入照片。代码在C43

PrivateSubWorksheet_Change(ByValTargetAsRange)

OnErrorResumeNext设置错误处理

Application.ScreenUpdating=False关闭屏幕刷新

DimMypathAsString

DimMynameAsString

DimInrangeAsRange

DimMytextAsString

DimMyaddressAsString

DimpictempAsVariant

IfTarget.Count1ThenExitSub1是从第1行查起

IfTarget.Row3ThenExitSub3是插入照片的行数

IfTarget.Column3ThenExitSub3是姓名所在行左数第几单元格

Range(J3).SelectJ3是插入照片的单元格

Mytext=Range(J3).Value

ActiveSheet.Pictures(Mytext).Delete删除单元格中原来的图片

picPath=ThisWorkbook.Path\照片\Range(C3).Value.jpg定义插入图片的地址

MsgBoxpicPath

Setpictemp=ActiveSheet.Pictures.Insert(picPath)插入图片

pictemp.Name=Mytext设定所插入图片的名称

pictemp.Placement=xlMoveAndSize设置图片可以随单元格的变动而改变大小和位置

Withpictemp.ShapeRange

.LockAspectRatio=msoFalse取消图片纵横比锁定

.Height=Selection.Height设置所插入图片的高度与单元格的高度相等

.Width=Selection.Width设置所插入图片的宽度与单元格的宽度相等

EndWith

Setpictemp=Nothing重置图片对象

Application.ScreenUpdating=True打开屏幕刷新

EndSub

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

EndSub

方法：复制暗红色处的代码，

粘贴到按Alt+F11弹出的编辑框，

（模块处和表格处：两处）照片在在同一文件夹，且与电子表格在同目录下

利用VBA编写宏代码

批量插入照片。代码在C44

Sub批量插入图片()

DimwjAsStrin