在审计署驻地方特派办，审计信息采用情况有审计要情、重要信息要目、审计署值班信息、审计简报、中办、国办、领导批示、信息转送函、审计工作通讯、审计工作动态等。具体到每一篇审计信息，其采用情况可能是上述多种情况的组合。如一篇审计信息的采用情况可能是重要信息要目、中办、国办、领导批示，也可能是审计署值班信息、国办、领导批示等。如果每一篇审计信息的采用情况都录入文字的话，工作比较烦琐，也不便于统计。笔记在实际工作中采取了Excel VBA自编函数的方法，解决了录入烦琐的问题。具体做法如下：

    设置一张Excel表，各列标题如下：

审计信息标题	采用情况	审计要情	重要信息要目	审计署值班信息	审计简报	中办	国办	领导批示	信息转送函	审计工作通讯	审计工作动态

    其中：审计信息标题为文本型，采用情况由自编函数caiyongqingkuang(X1,X2,X3,X4,X5,X6,X7,X8,X9,X10)计算产生，X1，X2，…，X10代表后面各列的取值，后面各列取值为0或1。每项采用则取值为“1”，否则取值为“0”。

    该函数具体程序如下：
    Function caiyongqingkuang(X1,X2,X3,X4,X5,X6,X7,X8,X9,X10)
    Dim cyqk(1 to 10) As String
    Dim i as Integer
    If X1 <> 0 then
    cyqk(1)=”审计要情”
    Else
    cyqk(1)=””
    End if
    If X2 <> 0 then
    cyqk(2)=”重要信息要目”
    Else
    cyqk(2)=””
    End if
    If X3<> 0 then
    cyqk(3)=”审计署值班信息”
    Else
    cyqk(3)=””
    End if
    If X4 <> 0 then
    cyqk(4)=”审计简报”
    Else
    cyqk(4)=””
    End if
    If X5 <> 0 then
    cyqk(5)=”中办”
    Else
    cyqk(5)=””
    End if
    If X6 <> 0 then
    cyqk(6)=”国办”
    Else
    cyqk(6)=””
    End if
    If X7 <> 0 then
    cyqk(7)=”领导批示”
    Else
    cyqk(7)=””
    End if
    If X8 <> 0 then
    cyqk(8)=”信息转送函”
    Else
    cyqk(8)=””
    End if
    If X9 <> 0 then
    cyqk(9)=”审计工作通讯”
    Else
    cyqk(9)=””
    End if
    If X10 <> 0 then
    cyqk(10)=”审计工作动态”
    Else
    cyqk(10)=””
    End if
    For i=1 to 10
    If cyqk(i) <> ”” then
    Caiyongqingkuang=caiyongqingkuang & cyqk(i)
    End if
    Next i
    End Function

    将上述函数粘贴入Excel的“工具”菜单下的VBA编辑器中，然后在采用情况栏内输入“= caiyongqingkuang(X1,X2,X3,X4,X5,X6,X7,X8,X9,X10)”即可得出以文本表示的真实的采用情况。

    上述方法同样适用于各地审计机关信息采用情况的录入和统计工作。（季红栋）
    

【关闭】    【打印】