ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1496|回复: 0

[讨论] EXECL的威力在财务上如何发挥?很多人是“不知道自己不知道”,包括我!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2015-12-1 12:08 | 显示全部楼层 |阅读模式
工作第1年 ,印刷厂。在EXECL里,我只用了加减乘除。
工作第2年, 纺织厂,在EXECL里,我学会了VLOOKUP,当时是为了从用友软件导出的入库单数据跟EXECL源数据进行核对,老会计教我用这个函数,当时那个窘境啊,理解不了,看不懂老会计在两张工作表按来按去什么意思。
工作第3年, 食品厂,在EXECL里,我学会了多张表数据汇总+透视表,当时公司每个月底要把运输费日报表(到货地点,里程,车数,运费,立方数等)按上中下旬分布在一张表里汇总体现,他们原来的做法当然是复制黏贴30遍到一张表,然后各种手工,我接手也是束手无策,幸好当时知道了EXECLHOME论坛,就上来请教,坛友就帮我解决了。
工作第4年,做上市包装,这个期间,才终于运用了更多点的函数,比如left,right,mid,len,index,row,if等嵌套函数的综合使用以及数组公式在发票打印界面索引源数据的运用。
、、、、、、、、、、、、、、、、、、、、、、、、、、、
当然,我还是“不知道自己不知道”,要想进阶学习,也不知从何入手,所以发帖请教大家。

大家列举下,某某方面的工作需要运用到什么复杂的函数公式或者编程,控件,ACCESS等,也好有个学习方向,不然就会有某个帖子说EXECL在财务上没多大用处,就加减乘除而已。

还有编程代码要怎么学习,比如下面这个代码能否用白话文来解释,看不懂什么意思


Sub uu()
Dim o$
For q = 3 To Sheets.Count
o = Sheets(q).Name
t = q - 2
't = Right(o, 2)
sql = "select '" & t & "'as 日期,* from [" & o & "$A3:l5000]"
  If q = 3 Then
  sql2 = sql
  Else
  sql2 = sql2 & " union all " & sql
  End If
Next
sql3 = "select left(到货地点,2) as 省,到货地点,立方数,[运费(元/车)] as 运费,日期,里程 from (" & sql2 & ") where 到货地点 is not null"
'[a1] = sql3
'***************************************************************************************
Sheet2.Select
    Dim mySQL As String, i As Long
    Dim mycnn As ADODB.Connection
    Dim rs As New ADODB.Recordset
   
    Application.ScreenUpdating = False
    '********************************************************************************************
    '清除C1:W1000区域的数据
    Range("a1:z63335").ClearContents
    Set mycnn = CreateObject("adodb.connection")
    mycnn.Open ("provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName)
   
     '***********************************SQL语句修改部分
   
    mySQL = sql3
   
    '***********************************执行一个SQL语句,并把结果给到rs这个数据集里
   
    rs.Open mySQL, mycnn, adOpenKeyset, adLockOptimistic
   
    '***********************************循环提取字段名
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1) = rs.Fields(i).Name
    Next
   
    '***********************************执行SQL语句
   
    Range("a2").CopyFromRecordset rs
   
   
    '***********************************释放内存
    rs.Close
    Set rs = Nothing
    mycnn.Close
    Set mycnn = Nothing
    '
    Application.ScreenUpdating = True

End Sub

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 20:47 , Processed in 0.038563 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表