计件工资核算

zhou19620107

忘得快 发表于 2013-9-8 20:31
大侠你的附件不错！能告知源码学习吗？谢谢！

买本VBA入门或基础的书看看，有一些语言基础，基本的语句结构，能大致看懂语句和简单的调试程序办法（用好F8和F5,暂停等），还有常用的函数，就能用VBA写出功能不错的代码。我是会计也就低水平哦。

忘得快

zhou19620107 发表于 2013-9-25 09:34
买本VBA入门或基础的书看看，有一些语言基础，基本的语句结构，能大致看懂语句和简单的调试程序办法（用好 ...

想学学大侠的经验，看不到大侠的源代码，遗憾！

zhou19620107

******自定义工具栏代码*******
Sub MyTool()
On Error Resume Next
Application.CommandBars("固定资产折旧工具栏").Delete
Dim 工具栏 As CommandBar
Dim 命令按钮 As CommandBarControl
  Set 工具栏 = Application.CommandBars.Add
  With 工具栏
       .Name = "固定资产折旧工具栏"
       .Position = msoBarTop
       .Protection = msoBarNoMove
       .Visible = True
     Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "隐藏"
         .FaceId = 1649
         .OnAction = "M1隐藏"
         .Style = msoButtonIconAndCaptionBelow
       End With
    Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "显示"
         .FaceId = 1650
         .OnAction = "M2显示"
         .Style = msoButtonIconAndCaptionBelow
       End With
    Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "汇总"
         .FaceId = 504
         .BeginGroup = True
         .OnAction = "M3汇总"
         .Style = msoButtonIconAndCaptionBelow
       End With
     Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "除汇总"
         .FaceId = 605
         .OnAction = "M4除汇总"
         .Style = msoButtonIconAndCaptionBelow
       End With
     Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "类汇总"
         .FaceId = 504
         .OnAction = "M11类汇总"
         .Style = msoButtonIconAndCaptionBelow
       End With
     Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "转下月"
         .FaceId = 159
         .BeginGroup = True
         .OnAction = "M5转下月"
         .Style = msoButtonIconAndCaptionBelow
       End With
    Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "插行"
         .FaceId = 295
         .OnAction = "M6插行"
         .Style = msoButtonIconAndCaptionBelow
       End With
    Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "删行"
         .FaceId = 293
         .OnAction = "M7删行"
         .Style = msoButtonIconAndCaptionBelow
      End With
    Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "年结"
         .FaceId = 592
         .OnAction = "M8年结"
         .Style = msoButtonIconAndCaptionBelow
      End With
    Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "显栏"
         .FaceId = 1653
         .OnAction = "M9显栏"
         .BeginGroup = True
         .Style = msoButtonIconAndCaptionBelow
      End With
      Set 命令按钮 = .Controls.Add
       With 命令按钮
         .Caption = "隐栏"
         .FaceId = 1652
         .OnAction = "M10隐栏"
         .Style = msoButtonIconAndCaptionBelow
      End With
  End With
Set 命令按钮 = Nothing
Set 工具栏 = Nothing
End Sub

zhou19620107

Sub M5转下月()
   Dim n As Integer
   Dim m As Range
   Dim wksheet As Worksheet
   Dim wksheet2 As Worksheet
   ActiveSheet.Unprotect Password:="161602"
   MsgBox "将结转到下月，如执行了操作而又不想转到下月，请不要保存，如已保存可重新打开删除表"
   For Each wksheet In Worksheets
     If wksheet.Name = "12月份" Then 存在 = True
       Next wksheet
       If 存在 = True Then
          aa = MsgBox("已存在12月份表，将要结转下年" & _
             Chr(10) & "结转下年将删除1-12月份表！请先做好备份！", 0, "备份提示")
            If aa = 1 Then GoTo f10
             Else
             ActiveSheet.Copy Before:=Sheets(1)
             Range("j3").Select
             Set m = Range("j3")
                mym = Len(m)
                Select Case mym
                Case Is = 3
                     n = Left(m, 1)
                     n = n + 1
                Case Is = 4
                     n = Left(m, 2)
                     If n = 10 Or n = 11 Then
                        n = n + 1
                     Else
                       MsgBox "请检查表标签是是否正确，请重新选择！"
                       GoTo f10
                     End If
                Case Else
                     MsgBox "请检查表标签是是否正确，请重新选择！"
                     GoTo f10
                End Select
             End If
  '改表名
       Range("j3").Select
       Range("j3").Value = n & "月份"
       For Each wksheet2 In Worksheets
       If wksheet2.Name = n & "月份" Then 存在 = True
          Next wksheet2
       If 存在 = True Then
          MsgBox "请检查是否选错了月份，要结转的月份已存在！请重新选择结转"
          Application.DisplayAlerts = False
          On Error GoTo f10
          ActiveSheet.Delete
          Application.DisplayAlerts = True
           GoTo f10
             Else
         ActiveSheet.Name = Range("j3").Value
         End If
   '开始复制累计折旧
      k = ActiveSheet.[k65536].End(xlUp).Row
        For n = 5 To k
         On Error Resume Next
         J = Application.WorksheetFunction.Round(Cells(n, 8) * (1 - Range("N3")) / Cells(n, 3) / 12, 2)
         Cells(n, 9) = Application.WorksheetFunction.Round(Cells(n, 11), 2)
         Cells(n, 13) = Cells(n, 13).Value
             If Cells(n, 12) - Cells(n, 7) < J And Cells(n, 12) - Cells(n, 7) < 0 Then
                Cells(n, 10) = Cells(n, 8) - Cells(n, 9) - Cells(n, 7)
           
         ElseIf Cells(n, 12) - Cells(n, 7) < 0 And Cells(n, 10) > 0 Then
                Cells(n, 10) = Cells(n, 12) - Cells(n, 7) + Cells(n, 10)
         
         ElseIf Cells(n, 12) - Cells(n, 7) < 0 And Cells(n, 10) = 0 Then
                Cells(n, 10) = 0
         
         ElseIf Cells(n, 12) - Cells(n, 7) < 0 Then
              Cells(n, 10) = Cells(n, 12) - Cells(n, 7) - Cells(n, 10)
         
         ElseIf Cells(n, 12) - Cells(n, 7) = J And Cells(n, 10) < 0 Then
                Cells(n, 10) = 0

         ElseIf Cells(n, 12) - Cells(n, 7) = 0 And Cells(n, 10) > 0 Then
                Cells(n, 10) = 0
         
         End If
         Cells(n, 13) = Cells(n, 13) + Cells(n, 10)
         If Cells(n, 10).Value > 0 Then Cells(n, 16) = Cells(n, 16) + 1
       Next n
       GoTo f11
f10:
     ActiveWindow.Close
f11:
    '除汇总
       ActiveSheet.Unprotect Password:="161602"
       Cells.Select
       Selection.RemoveSubtotal
       Range("A5").Select
     M3汇总     '调用
     ActiveSheet.Protect Password:="161602"
     Worksheets(2).Select
     ActiveSheet.Protect Password:="161602"
     Worksheets(1).Select
     End Sub

zhou19620107

V2.5的增加了“已折旧年限”

ysy_cpa

LZ辛苦，下载来学习借鉴一下。多谢。

zhou19620107

春节这几天整了个收发存核算

sanil

su_jerry 发表于 2011-8-3 15:44
固定资产用的，不是计件工资

楼主不是说了吗33楼下载，刚下载了，还没有用，看样子设计的很好

sanil

请问楼主，计件工资需要注册吗？有试用期？

sanil

工序更改不了，是收费的吗，楼主，能否共享一下呀