|
楼主 |
发表于 2018-9-22 20:05
|
显示全部楼层
本帖最后由 renxiaozhi 于 2018-9-23 12:41 编辑
2,如上图,档案录入表格和此表格一致,只不过是录入用,能否把录入、查询、修改功能在一个表格里完成?求大神帮忙写下代码
录入功能源代码如下:
Sub 录入数据()
Application.ScreenUpdating = False
Dim i, X, flag
X = 3
Do While Not (IsEmpty(Sheets("数据表").Cells(X, 3).Value))
X = X + 1
Loop
flag = 0
For i = 1 To X
If Sheets("档案录入").Cells(2, 3) = Sheets("数据表").Cells(i, 3) Then
flag = 9
Exit For
End If
Next
If flag = 9 Then
X = X
End If
If Sheets("档案录入").Cells(5, 2) = "" Then
Sheets("档案录入").Cells(1, 13) = "空白表不能记录"
Else
Sheets("数据表").Cells(X, 1) = Sheets("档案录入").Cells(2, 2) '户别
Sheets("数据表").Cells(X, 2) = Sheets("档案录入").Cells(2, 5) '户号
Sheets("数据表").Cells(X, 3) = Sheets("档案录入").Cells(3, 2) '姓名
Sheets("数据表").Cells(X, 9) = Sheets("档案录入").Cells(3, 8) '政治面貌
Sheets("数据表").Cells(X, 10) = Sheets("档案录入").Cells(2, 10) '户主或与户主关系
Sheets("数据表").Cells(X, 11) = Sheets("档案录入").Cells(8, 2) '联系电话
Sheets("数据表").Cells(X, 7) = Sheets("档案录入").Cells(6, 2) '身份证地址
Sheets("数据表").Cells(X, 8) = Sheets("档案录入").Cells(7, 2) '现住址
Sheets("数据表").Cells(X, 12) = Sheets("档案录入").Cells(3, 6) '民族
Sheets("数据表").Cells(X, 13) = Sheets("档案录入").Cells(4, 5) '文化程度
Sheets("数据表").Cells(X, 16) = Sheets("档案录入").Cells(5, 8) '兵役状况
Sheets("数据表").Cells(X, 14) = Sheets("档案录入").Cells(6, 8) '婚姻状况
Sheets("数据表").Cells(X, 15) = Sheets("档案录入").Cells(4, 8) '籍贯
Sheets("数据表").Cells(X, 6) = Sheets("档案录入").Cells(5, 2) '身份证号
Sheets("数据表").Cells(X, 21) = Sheets("档案录入").Cells(9, 2) '何时由何地迁来本市(县)
Sheets("数据表").Cells(X, 18) = Sheets("档案录入").Cells(8, 5) '身高
Sheets("数据表").Cells(X, 19) = Sheets("档案录入").Cells(8, 8) '血型
Sheets("数据表").Cells(X, 20) = Sheets("档案录入").Cells(7, 8) '曾用名
Sheets("数据表").Cells(X, 22) = Sheets("档案录入").Cells(10, 2) '何时由何地迁来本地址
Sheets("数据表").Cells(X, 23) = Sheets("档案录入").Cells(12, 2) '关系1
Sheets("数据表").Cells(X, 24) = Sheets("档案录入").Cells(12, 4) '姓名1
Sheets("数据表").Cells(X, 25) = Sheets("档案录入").Cells(12, 6) '出生日期1
Sheets("数据表").Cells(X, 26) = Sheets("档案录入").Cells(12, 9) '政治面貌1
Sheets("数据表").Cells(X, 27) = Sheets("档案录入").Cells(12, 10) '工作单位及职务1
Sheets("数据表").Cells(X, 28) = Sheets("档案录入").Cells(13, 2) '关系2
Sheets("数据表").Cells(X, 29) = Sheets("档案录入").Cells(13, 4) '名称2
Sheets("数据表").Cells(X, 30) = Sheets("档案录入").Cells(13, 6) '出生日期2
Sheets("数据表").Cells(X, 31) = Sheets("档案录入").Cells(13, 9) '政治面貌2
Sheets("数据表").Cells(X, 32) = Sheets("档案录入").Cells(13, 10) '工作单位及职务2
Sheets("数据表").Cells(X, 33) = Sheets("档案录入").Cells(14, 2) '关系3
Sheets("数据表").Cells(X, 34) = Sheets("档案录入").Cells(14, 4) '名称3
Sheets("数据表").Cells(X, 35) = Sheets("档案录入").Cells(14, 6) '出生日期3
Sheets("数据表").Cells(X, 36) = Sheets("档案录入").Cells(14, 9) '政治面貌3
Sheets("数据表").Cells(X, 37) = Sheets("档案录入").Cells(14, 10) '工作单位及职务3
Sheets("数据表").Cells(X, 38) = Sheets("档案录入").Cells(15, 2) '关系4
Sheets("数据表").Cells(X, 39) = Sheets("档案录入").Cells(15, 4) '名称4
Sheets("数据表").Cells(X, 40) = Sheets("档案录入").Cells(15, 6) '出生日期4
Sheets("数据表").Cells(X, 41) = Sheets("档案录入").Cells(15, 9) '政治面貌4
Sheets("数据表").Cells(X, 42) = Sheets("档案录入").Cells(15, 10) '工作单位及职务4
Sheets("数据表").Cells(X, 43) = Sheets("档案录入").Cells(16, 2) '备注
Sheets("档案录入").Cells(1, 12) = "录入成功!"
End If
End Sub
3,如图:
此表格为统计表,统计数据表中相关数据,在统计年龄段人数时出现了问题,公式把100周岁以上的人员统计进了18岁以下中,求解决方法
源公式如下:
18岁以下=COUNTIF(数据表!Q3:Q1485,"<18周岁")
18岁-60周岁=COUNTIFS(数据表!Q3:Q1485,">=18周岁",数据表!Q3:Q1485,"<=60周岁")
60-89周岁=COUNTIFS(数据表!Q3:Q1485,">60周岁",数据表!Q3:Q1485,"<=89周岁")
90周岁以上=COUNTIFS(数据表!Q3:Q1485,">=90周岁") |
|