关于“出生医学证明”与“分娩”信息在共享平台应用中的处理方法.docVIP

关于“出生医学证明”与“分娩”信息在共享平台应用中的处理方法 在宜昌市人口计生委的艰苦努力下，在宜昌市卫生局的大力支持下，我们获得了由卫生系统提供的“出生医学证明”与“分娩”信息，并将这些信息导入湖北省人口基础信息共享平台，取得了很好的效果。现整理出数据处理方法，供大家参考。 一、原始资料及准备 1、关于BirthCertificate（出生医学证明，表1）。此表由生育对象在办理出生医学证明时，提供的夫妻双方姓名、身份证号码、女方户籍地、新生儿姓名、出生时间、性别等信息。在办理出生医学证明的过程中，办证人员录入的信息，都由生育对象逐一核实，信息准确率很高。 2、关于Labor（分娩，表2）。此表由助产技术服务机构在生产过程中，对生育对象的各项信息进入录入。但部分信息项目不全，录入信息未经核对，信息准确度不高。 3、将新建工作薄“当阳市8月”，包含上述表1和表2，再复制表2，更名表3。此工作薄包含3个工作表。 二、查找及替换要求 以母亲姓名作为比对依据，如果表中的某条记录母亲姓名表中的母亲姓名完全，则用表中的该条记录替换表中的对应记录，并作标记。Sub TH() 和 End Sub中间粘贴以下代码： Dim i, j As Integer Dim nr As Integer Dim str1, str2, rng As String Application.DisplayAlerts = False Sheets(表2).Select Cells.Select Selection.Copy Range(A4).Select Sheets(表3).Select Range(A1:P1).Select ActiveSheet.Paste Range(A4).Select With Sheets(表1) nr = .[a65536].End(xlUp).Row i = 4 Do Until Cells(i, 1) = str2 = Cells(i, A) Cells(i, F) For j = 4 To nr If Cells(i, A) = .Cells(j, A) Then str1 = (.Cells(j, A)) (.Cells(j, F)) Exit For End If Next j If str1 = str2 Then Cells(i, B) = .Cells(j, B) Cells(i, C) = .Cells(j, C) Cells(i, D) = .Cells(j, D) Cells(i, G) = .Cells(j, G) Cells(i, H) = .Cells(j, H) Cells(i, I) = .Cells(j, I) Cells(i, J) = .Cells(j, J) Cells(i, K) = .Cells(j, K) Cells(i, M) = .Cells(j, M) Cells(i, O) = .Cells(j, O) Cells(i, p) = .Cells(j, P) rng = A Trim(Str(i)) :P Trim(Str(i)) Range(rng).Select Selection.Font.ColorIndex = 3 End If i = i + 1 Loop End With Application.DisplayAlerts = True 关闭对话框，关闭VB编辑器。 2、选择“工具”-“宏”-“宏”，打开对话框，单击“执行”。EXCEL将会执行宏命令，按照要求进行查找和替换。看看结果，是不是你所希望的？ 3、说明：首先，因为表1中的E、L、N三列无数据，所以保留表3中的这三列数据不作替换。其次，查找的列名是女方姓名，如果产妇中有姓名安全相同的两个对象，则可能会被替换为一个对象。第三，如果某产妇生了双胞胎，替换后则需要核实新生儿性别等信息，特别是双卵双胎，即“龙凤胎”要核实并修改新生儿性别。 4、后续处理。因为表中的婴儿出生时间是采用的“YYYY-MM-DD HH-MM-SS”格式，需要按要求替换为“YYYY-MM-DD”格式。可以采用LEFT函数截取字符串，方法如下： 在表3后面选择对应列的单位格，输入公式＝left(I4,10),执行公式，选择单元格的公式，复制到整列，获取数据。然后复制得到的数据，粘贴到I4列，注意粘贴时使用 “选择性粘贴”—“数值” 5、导入数据。按助产机构名称分割成单独工作表，导入湖北省基础信息共享平台。