财会

自动创建工作表目录

@赛博坦之声

      笔者每个月都要汇总各地分公司的Excel工作表，工作量非常大，为了便于日后查找相关内容，才4月开始公司要求汇总表要有一个目录，且目录包含超链接，点击超链接即可进入对应的工作表，如果工作表名称有了名称，也可以自动在目录中更新。原本是手动创建目录，不过工作表太多导致操作太复杂，经过摸索，借助过Excel宏命令搞定了。宏命令如下所示：

Private Sub Worksheet_Activate（）

Dim sh As Worksheet

Dim a As Integer

Dim R As Integer

//在目录工作表激活时，自动创建工作簿中除“目录”工作表外所有工作表的目录

R = Sheet1.[A65536].End（xlUp）.Row

a = 2

If Sheet1.Cells（2， 1） <> "" Then//判断是否存在工作表目录

Sheet1.Range（"A2:A" & R）.ClearContents

End If

For Each sh In Worksheets

If sh.CodeName <> "Sheet1" Then

Sheet1.Cells（a， 1）.Value = sh.Name

a = a + 1

End If

Next

End Sub

董师傅点评：如果没有修改设置，下一次打开Excel时会警告宏已被禁用，点击警告栏中的“启用内容”即可激活代码。

制作催款函 欠款早日还

@川白浅

      年中又要进行欠款清理，作为财务要制作催款函并加盖公章后催款部门。由于笔者所在的公司较大，一般的财务工作是在浪潮财务软件中完成的，但催款函却无法依靠软件自动生成，还是需要借助Excel。

      首先，在浪潮财务软件中切换到“账务处理”，点击“账表”，选择“科目余额表”，在弹出的“科目余额表”对话框中选择一个时间，例如2017年6月份，会计科目为 “应收账款”（应收款项是专业术语，其实就是欠款），点击“确定”，在弹出的科目余额表中将“应收账款”明细数据导出为Excel并将该表命名为“2017年年中应收账款明细表.xls”。

      接着，打开“2017年年中应收账款明细表.xls”删除多余列，只保留欠款单位（A列）、摘要（B列）、日期（C列）、借方（D列）、贷方（F列），新增一列命名为欠款金额（G列），在G2中输入数组公式{=SUM((B$2:B2=B2)*(E$2:E2))-SUM((B$2:B2=B2)*(F$2:F2))}，自动计算出每个欠款单位的欠款余额。

      然后，计算每个欠款单位的欠款时间，也就是根据借款日期来确定，这个比较简单如果数据少可以手工算，如果数据多可以借助公式，例如在(B2-A2)&"天"，另外有的公司需要对欠款时间进行分类，例如“0~2个月”、“2~6个月”、“6个月以上”等，优先选择超期严重的单位进行重点催债，这个时候还要对欠款时间进行二次细化。

      最后，就是打印催款单了。新建一个Word，输入基本催款信息，再附加上欠款金额、欠款期限，最后打印并盖上财务专用章即可。

董师傅点评：最好提前准备一个催款模板，之后导入数据即可。 

去掉Excel的绿色三角提示

@爱车如子

      在用Excel制作报表时，时不时需要输入身份证号、手机号等数据，如果将单元格格式保持默认的“常规”，单元格将会以科学计数法显示；如果将单元格格式设置为“文本”，左上角就会出现一个绿色的“三角”提示符号。如何去掉这个符号，让表格看上去跟统一呢？方法如下：依次点击“文件→选项”，在左边选择“公式”选项卡，然后在右边找到“错误检查”，点击“重新设置忽略错误”按钮，然后取消勾选的“文本格式的数字或者前面有撇号的数字”即可。

董师傅点评：虽然去掉绿色三角提示，但单元格格式依然为“文本”。