下面这些功能如何实现

zzst2006

下面这些功能如何实现
1、当输入完信息后点“保存至名册”则保存到名册工作表；
2、名册中的编号是根据“名册”B列的单位自动生成的序号；
3、名册能导入导出各单位数据，对身份证号重复的在导入时提示是否覆盖现有数据；
4、打印名册时，能提供打印选项，打印那几列数据；
5、当在“单个编号”输入编号后，即时显示该编号的人员信息包括照片；
6、“党员统计表”自动统计党员数据
7、点“打印采集表”则打印“开始编号”到“结束编号”的所有党员信息彩信表

roych

有木有15位滴身份证啊？否则写起来挺麻烦的。
1、2、3问题不大。只是需要花些时间而已）。
4、有些小问题，思路是勾选某几列之后，隐藏那几列从而达到打印的目的。但是由于列宽或者其它方面的原因，还是需要重新调整打印布局。
5、相片的实现，可能性不大。主要在于图片基本只能靠插入来显示。
6、用各项统计函数即可实现，不必写代码。
7、同5，相片信息无法实现。
附件中已实现保存和导出功能，供参考。
——未实现导入功能是因为没有导入的文件模板，无法写代码。

zzst2006

roych 发表于 2011-12-10 16:58
有木有15位滴身份证啊？否则写起来挺麻烦的。
1、2、3问题不大。只是需要花些时间而已）。
4、有些小问题 ...

1.没有15位的身份证；
2.档案出生日期与身份证日期不一定相同，所以计算年龄以档案出生日期为准；
3.导入以“名册”为模板，当点击导入数据时，提供选择工作簿的工作表功能，
4.导出数据也是以“名册”为模板，在其他论坛上有分表，就是以某列相同的进行分表，比如性别，可分为男、女两个工作表，还有删除分表功能；
5.照片功能先不实现，如何实现5和7的功能。

zzst2006

roych 发表于 2011-12-10 16:58
有木有15位滴身份证啊？否则写起来挺麻烦的。
1、2、3问题不大。只是需要花些时间而已）。
4、有些小问题 ...

1.没有15位的身份证号
2.导入数据还是不行
3.不要问照片的事，只要能实现数据显示就可以了，照片和打印的问题下面的代码就解决了
4.模板就是“名册”

Sub 打印()

For i = [Q7] To [Q8] Step 1
For Each s In ActiveSheet.Shapes
   If s.Name Like "icture*" Then s.Delete
Next
[Q1] = i
er = Sheets("名册").[a65536].End(xlUp).Row
单位 = Application.VLookup(i, Sheets("名册").Range("$A$4O$" & er), 2)

    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & 单位 & "照片\" & [G9] & ".JPG").Select
   
    Selection.Top = [L7].Top + 1
      Selection.Left = [L7].Left + 1
         Selection.Height = [L710].Height - 1
         Selection.Width = [L7:N10].Width - 1
      
    [Q5].Select

ActiveSheet.PrintOut Copies:=3

Next
End Sub