按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
strLast = 〃零〃
Else
strLast = Application。WorksheetFunction。Text（strLastvalue； 〃＇DBNum2＇〃） & 〃角〃
End If
End If
End If
strLastvalue = Right（strBal； 1）
If strLastvalue = 〃0〃 Then
strLast = 〃整〃
Else
strLast = strLast & Application。WorksheetFunction。Text（strLastvalue； 〃＇DBNum2＇〃） & 〃分〃
End If
End If
strrmbdx = strrmbdx & strLast
Else
strrmbdx = strrmbdx & 〃整〃
End If
rmbdx = a & strrmbdx
End Function
方法 12
364
…………………………………………………………Page 365……………………………………………………………
=IF（ISTEXT（C2）；〃〃；〃人民币：〃&TEXT（INT（C2）；〃＇dbnum2＇〃）&〃元
〃&IF（INT（C2*10）…INT（C2）*10=0；〃〃；TEXT（INT（C2*10）…INT（C2）*10；〃＇dbnum2＇〃）&〃角
〃）&IF（INT（C2*100）…INT（C2*10）*10=0；〃整〃；TEXT（INT（C2*100）…INT（C2*10）*10；〃＇dbnum2＇〃）&〃
分〃））
〃〃还有很多方法编者没有收集。
中国式的排名 函数应用
RANK 是个排名函数 但有一个问题象上面有两个 100 分 也就是两并列第一 排名就从第三
名开始没有第二名 也许这个美国式的排名 中国式的排名 前面有两个一样的分数并列第一后
是 第二名 怎样用函数实现。
解答：在 B3 中复制如下的数组公式，然后往右复制：
｛=SUM（IF（B1=LARGE（IF（LARGE（B1：H1；COLUMN（A1：G1））=IF（ISERROR（LARGE（
C1：I1；COLUMN（A1：G1）））；0；LARGE（C1：I1；COLUMN（A1：G1）））；0；LARGE（B
1：H1；COLUMN（A1：G1）））；COLUMN（A1：G1））；COLUMN（A1：G1）；0））｝
也可换个方式不用数组，在 B3 中复制如下的公式，然后往右复制：
=RANK（B1；B1：H1）＋COUNTIF（B1：B1；B1）…1
当做日报表累计数自动加
当做日报表时；怎样让月累计数自动加上？ 就是要月累计自动加上今天的当日收入数；今天只
输入当日收入；我想用用前一天的月累计数加上今天的当日收入数为今天的月累计数。情况是
一月一个工作薄；每一个工作薄下 30 个工作表；用每一天的日期为报表名。我想把月累计的公
式写为 =sheet17！c5 中的 17 用 day（now（））…1 的值去取代他；该怎么办呢？ 以下为报表格
式；谢谢大家帮我想一想。
部门…………………当日收入 ……………………………月累计
团队收入 12。12 123。00 /写字间收入 147；258。00 147。147/房内吧收入 147；258；369。00
解答：=SUM（'Sheet1：Sheet30'！C5）
在你需要月汇总的单元格填入上述公式，其作用是将工作表 1 到工作表 30 的“C5”单元格的
值全部累加起来，而“C5”单元格应填入当日的收入数。
又问：月累计的公式写为 =sheet17！c5 中的 17 用 day（now（））…1 的值去取代他；该怎么办
呢？ ”
答：用公式： =INDIRECT（ADDRESS（1；1；1；1；〃sheet〃&DAY（NOW（））…1））
工资条问题
职工工资构成非常复杂，往往超过 10 项，因此每月发工资时要向职工提供一包含工资各构成
部分的项目名称和具体数值的工资条。打印工资条时要求在每个职工的工资条间有一空行便于
彼此裁开。本模板就是用 EXCEL 函数根据工资清单生成一便于分割含有工资细目的工资条表
格。
本工资簿包含两张工资表。第 1 张工资表就是工资清单，称为〃清单〃。它第一行为标题行包括
职工姓名、各工资细目。
第 2 张工作表就是供打印的表，称为〃工资条〃。它应设置为每三行一组，每组第一行为标题，
第二为姓名和各项工资数据，第三行为空白行。就是说整张表被 3 除余 1 的行为标题行，被 3
除余 2 的行为包括职工姓名、各项工资数据的行，能被 3 整除的行为为空行。
365
…………………………………………………………Page 366……………………………………………………………
在某一单元格输入套用函数〃=MOD（ROW（）；3）〃，它的值就是该单元格所在行被 3 除的余数。因
此用此函数能判别该行是标题行、数据行还是空行。
在 A1 单元格输入公式〃=IF（MOD（ROW（）；3）=0；〃〃；IF（MOD（ROW（）；3）=1；清
单！A1；〃value…if…false〃））〃并往下填充，从 A1 单元格开始在 A 列各单元格的值分别为清单
A1 单元格的值即姓名、value…if…false、空白，姓名、value…if…false、空白，。。。。。。。其
中value…if…false 表示 MOD（ROW（）；3）既不等于 0 又不等于 1 时，即它等于 2 时应取的值。它
可用如下函数来赋值：〃INDEX（清单！A：G；INT（（ROW（）＋4）/3）；COLUMN（））〃。INDEX（）为一查找
函数它的格式为：INDEX（reference；row…num；col…num）；其中 reference 为查找的区域，本例
中为清单表中的A 到 G 列，即函数中的〃清单！A：G〃，row…num 为被查找区域中的行序数即函
数中的 INT（（ROW（）＋4）/3），col…num 为被查找区域中的列序数即函数中的 COLUMN（）。第2、5、
8。。。。。。。行的行号代入 INT（（ROW（）＋4）/3）正好是 2、3、4。。。。。。，COLUMN（）在 A 列为 1。因此
公式〃=INDEX（清单！A：G；INT（（ROW（）＋4）/3）；COLUMN（））〃输入 A 列后，A2、A5、A8。。。。。。单元
格的值正好是清单 A2、A3、A4。。。。。。；单元格的值。这样，表的完整的公式应为
〃=IF（MOD（ROW（）；3）=0；〃〃；IF（MOD（ROW（）；3）=1；清单！A1；INDEX（清
单！A：G；INT（（ROW（）＋4）/3）；COLUMN（））））〃。把此公式输入A1 单元格，然后向下向右填充得
到了完整的工资条表。
为了表格的美观还应对格式进行设置，一般习惯包括标题、姓名等文字在单元格中要取中，数
字要右置，数字小数点位数也应一致，还有根据个人的爱好设置边框。本表格只需对一至三行
的单元格进行设置，然后通过选择性格式设置完成全表的设置。
本工作簿的特点是 1、不对清单表进行操作保持清单工作表的完整，2、全工作表只有一个公
式通过填充得到全表十分方便。
例如：我的单位不大不小，有 200 多号人。最近领导要求把每个员工个人的工资情况打出来，
分发给每位员工。每个员工的工资条上只能有两行内容：一行是分解的项目内容，如基本工资、
岗位工资、总计等等；另一行是对应第一行的具体工资数额。
可以这样解决：Sheet2
1。为 A1 命名为 K
2。为 A3：A250 命名为 XX
从 A3 贴上主索引；数据要连续中间不允许有空格
3。写公式=VLOOKUP（K；DATA；2；0）
有几个字段写几个；位置随您高兴摆
4。 隐藏A 栏
*********************************************************************************
*****
Sub 打印（）
Application。ScreenUpdating = False '屏幕不更新
Dim c As Object '宣告 c 为对象；请准备空间
＇xx＇。Select '选取变量范围
Set c = ActiveCell '设定 c 对象为作用单元格
Do Until IsEmpty（c。Value） '作 Do 循环直到无值时跳出
＇k＇。Value = c。Value
Set c = c。Offset（1； 0） '设定 c 往下进一格再取主索引值
Sheets（〃Sheet2〃）。PrintPreview '工作表直接打印改 PrintOut
Loop
366
…………………………………………………………Page 3