|
dong1106
[ 摘记 ]
2013-08-22 09:19
对所有人可见
in 个人笔记本 Excel实用编程 对所有人可见 |
|
要点： 内控评价底稿 公式和宏应用 |
|
偏差率公式： | ||
|
="共抽取"&(COUNTIF(D:D,"不一致")+COUNTIF(D:D,"一致"))&"个样本，其中不符合控制要求样本为"&(COUNTIF(D:D,"不一致"))&"个，偏差率为"&round(COUNTIF(D:D,"不一致")/(COUNTIF(D:D,"不一致")+COUNTIF(D:D,"一致"))*100,2)&"%" | ||
|
输入有限性测试公式： | ||
|
=IF(C13="每年一次(1)",D13>0,IF(C13="每半年一次(1)",D13>0,IF(C13="每季一次(1)",D13>0,IF(C13="每月一次(2)",D13>1,IF(C13="每周一次(5)",D13>4,IF(C13="每日一次(20)",D13>19,IF(C13="每日多次(25)",D13>24,D13>0))))))) | ||
|
合格判断公式： | ||
|
=IF((COUNTIF(D:D,"不一致")+COUNTIF(D:D,"一致"))=0,"未发生"，(COUNTIF(D:D,"不一致")/(COUNTIF(D:D,"不一致")+COUNTIF(D:D,"一致"))=0,"符合","不符合")) | ||
|
自动赋值程序： | ||
|
1.自动赋予每个工作表链接。 | ||
|
将要链接的内容填写在主表的S、T、U、V、W行 | ||
|
然后 新建宏，然后查看宏，编辑宏。复制如下程序。 | ||
|
Sub Dong() | ||
|
For i = 3 To ActiveWorkbook.Worksheets.Count | ||
|
ActiveWorkbook.Worksheets(i).Cells(3, 2).Value = ActiveWorkbook.Worksheets(2).Cells(i + 7, 5) | ||
|
Next | ||
|
End Sub | ||
|
之后执行宏，是每个工作表中的五个链接自动赋予。之后查找替换所有工作簿的"_"为“_”,目的是把文本公式变为可执行的。 | ||
|
2.批量修改所有工作表名称到标准要求。 | ||
|
上一个步骤执行完成后； | ||
|
新建宏，然后查看宏，编辑宏。复制如下程序。 | ||
|
Sub Macro1() | ||
|
For i = 1 To ActiveWorkbook.Worksheets.Count | ||
|
ActiveWorkbook.Sheets(i).Name=ActiveWorkbook.Sheets(i).Cells(i+5, 3) | ||
|
Next i | ||
|
End Sub | ||
|
之后执行宏=[Book1.xls]Sheet1!A1 |
|
原文：评价底稿 编程应用; 
|
||||
|
||||
|
|
|
扫二维码手机打开本页面
|
|
|