甲流感统计表 甲流感统计表 '该程序统计每天的H1N1的防控情况 '程序由枣阳市职教中心学校罗艳军开发 Sub saix() Dim lh As Integer lh = ActiveCell.Column Dim i As Long Dim j As Integer 'On Error Resume Next Sheets("当天表").Delete Worksheets.Add ActiveSheet.Name = "当天表" Worksheets("当天表").Select ActiveSheet.Cells(1, 1) = Worksheets("200909").Cells(1, 1) ActiveSheet.Cells(1, 2) = Worksheets("200909").Cells(1, 2) ActiveSheet.Cells(1, 3) = Worksheets("200909").Cells(1, 3) ActiveSheet.Cells(1, 4) = Worksheets("200909").Cells(1, 4) ActiveSheet.Cells(1, 5) = Worksheets("200909").Cells(1, 5) ActiveSheet.Cells(1, 6) = Worksheets("200909").Cells(1, lh) Worksheets("200909").Activate j = 2 For i = 2 To 1970 If ActiveSheet.Cells(i, lh).Value <> "-" Then Worksheets("当天表").Cells(j, 1) = ActiveSheet.Cells(i, 1) Worksheets("当天表").Cells(j, 2) = ActiveSheet.Cells(i, 2) Worksheets("当天表").Cells(j, 3) = ActiveSheet.Cells(i, 3) Worksheets("当天表").Cells(j, 4) = ActiveSheet.Cells(i, 4) Worksheets("当天表").Cells(j, 5) = ActiveSheet.Cells(i, 5) Worksheets("当天表").Cells(j, 6) = ActiveSheet.Cells(i, lh) j = j + 1 End If Next i '以下是美化工作表，给表添加上表头，是录制的宏 Worksheets("当天表").Select Rows("1:1").Select Selection.Insert Shift:=xlDown Selection.RowHeight = 27 Range("A1:F1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A1:F1").Select ActiveCell.FormulaR1C1 = "枣阳市职教中心学校晨检午检晚检每日汇总表" Range("A1:F1").Select With Selection.Font .Name = "宋体" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.Font.Bold = True With Selection.Font .Name = "黑体" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With '添加统计 ActiveSheet.Cells(j + 1, 1) = "合计" ActiveSheet.Cells(j + 1, 2) = "感冒" ActiveSheet.Cells(j + 2, 2) = "发烧" ActiveSheet.Cells(j + 3, 2) = "咳嗽" 'ActiveSheet.Cells(j + 1, 3).Formula = "=COUNTIF(C[3],""感冒"")" & "人" 'ActiveSheet.Cells(j + 1, 3).Formula = application.WorksheetFunction.CountIf(C[3],"感冒") ActiveSheet.Cells(j + 1, 3).Activate ActiveCell.FormulaR1C1 = "=COUNTIF(C[3],""感冒"")" ActiveSheet.Cells(j + 2, 3).Activate ActiveCell.FormulaR1C1 = "=COUNTIF(C[3],""发烧"")" ActiveSheet.Cells(j + 3, 3).Activate ActiveCell.FormulaR1C1 = "=COUNTIF(C[3],""咳嗽"")" End Sub
本文档为【甲流感统计表】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483