EH学习一周年....

XZ19860527

08年开始实习到09年9月,对电子表格没有丝毫映像.面试的时候HR问我:会办公软件不?我说会.
结果那个工厂的会计啥都要做,那是一个辛苦,通常早上8点拿着数据开始做报表,一直弄到晚上10点还完不了.再看看别人,早出去双树双栖了.
....................
需求是兴趣的导向,也是学习的动力.偶然上了EH,才知道EXCEL是这样的简单.从最简单的公式开始学习,一天的工作一上午搞定!
然后开始疯狂的下载资料,买了本从零开始学VBA,然后下了袁版的VBA常用技巧,山菊花版主的夏夜看萤火虫,.........

先上个实例: 工资表  分页小计.相信很多会计朋友找了很久了吧. 我当时做的时候也找了半天呢. 大家拿回去把列宽(数)改下就可以了.
如有密码: 都是123

[ 本帖最后由 XZ19860527 于 2010-7-26 15:45 编辑 ]

XZ19860527

再上一个.账务处理.....  
原来考虑不周,在本表存放数据.上个星期学会简单的SQL了,又改动了下.
一些代码及窗体沿用下载资料的思路,或完全就是造搬,如有冒犯之处请见谅!
附件1 本表存放数据
附件2 数据与操作分开存放

431688848

好羡慕楼主呀，学习了，谢谢

XZ19860527

仅以此纪念学习excel一周年.....
实例: 文件清单
功能: 按磁盘查询指定类型文件.
        字典代码是家里下载的,仅对表头表尾进行修改.
我觉得这个蛮实用的,一直在用,忘记文件存放的地方或文件名字不要紧,只要不是隐藏的,都能找到.

   Sub Test() '使用双字典，旨在提高速度
On Error GoTo errh
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Dim MyName, Dic, Did, I, T, F, TT, MyFileName
    Dim cp, wj As String
    Dim sh As Worksheet
    cp = Sheet1.[b2]
    wj = Sheet1.[b1]
    T = Time
    For Each sh In Worksheets
        If sh.Name <> "序" Then sh.Delete
    Next
    Set Dic = CreateObject("Scripting.Dictionary")    '创建一个字典对象
    Set Did = CreateObject("Scripting.Dictionary")
    Dic.Add (cp & ":\"), "" '需要查找的磁盘
    I = 0
    Do While I < Dic.Count
        Ke = Dic.keys   '开始遍历字典
        MyName = Dir(Ke(I), vbDirectory)    '查找目录
        Do While MyName <> ""
            If MyName <> "." And MyName <> ".." Then
                If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then    '如果是次级目录
                    Dic.Add (Ke(I) & MyName & "\"), ""  '就往字典中添加这个次级目录名作为一个条目
                End If
            End If
            MyName = Dir    '继续遍历寻找
        Loop
        I = I + 1
    Loop
    Did.Add (cp & "盘" & wj & "文件清单"), ""    '以查找文件为例
    For Each Ke In Dic.keys
        MyFileName = Dir(Ke & "*." & wj)  '查找文件的类型
        Do While MyFileName <> ""
            Did.Add (Ke & MyFileName), ""
            MyFileName = Dir
        Loop
    Next
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = cp & "盘" & wj & "文件清单" Then
            Sheets(cp & "盘" & wj & "文件清单").Cells.Delete
            F = True
            Exit For
        Else
            F = False
        End If
    Next
    If Not F Then
        Sheets.Add.Name = cp & "盘" & wj & "文件清单"
    End If
    Sheets(cp & "盘" & wj & "文件清单").[A1].Resize(Did.Count, 1) = WorksheetFunction.Transpose(Did.keys)
    TT = Time - T
    MsgBox Minute(TT) & "分" & Second(TT) & "秒"
With Sheets(cp & "盘" & wj & "文件清单")
    .Select
    Rows("2:2").Select
    ActiveWindow.FreezePanes = True
    Range("B2").Select
    I = .[a65536].End(xlUp).Row
    ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-1])"
    Selection.AutoFill Destination:=Range("B2:B" & I)
End With
errexit:
    Set Dic = Nothing
    Set Did = Nothing
    Exit Sub
errh:
    MsgBox Err.Description
    Resume errexit
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

[ 本帖最后由 XZ19860527 于 2010-7-20 13:30 编辑 ]

431688848

能不能帮我看一看呀，楼主。
http://club.excelhome.net/viewth ... &extra=page%3D1

renqiang851224

谢谢楼主，我正在学习VBA，下载了，好好学一下

lizi007

字典对象用的不错，向狼版学的吧！

XZ19860527

原帖由 lizi007 于 2010-7-20 13:41 发表
字典对象用的不错，向狼版学的吧！

是呀 是呀

431688848

请楼主有时间帮我写一个代码
http://club.excelhome.net/viewth ... &extra=page%3D1

slywtj123

向楼主学习，学以致用！