原创+分享:票据管理系统

SSJJWW

已下的朋友有2个BUG需要更正一下,自己更改
在现金缴款单中打印按钮代码中
Private Sub CommandButton2_Click()
Sheet11.Unprotect ("sjw")
.......
Unload Me
Sheet5.Protect "sjw"
End Sub
sheet5需改为sheet11否则现金交款单又会处于无保护状态
另一个小BUG是在选择模块代码中
Sub 选择()
Dim xx()
Dim zz(0)
WW = Sheet5.ComboBox1.Value
If Sheet5.Cells(7, 7) = "异地" Then
    yy = Application.CountIf(Sheet9.Columns(4), "*" & WW & "*")
    If yy = 0 Then ComboBox1.List() = zz    ReDim xx(yy - 1)
    k = -1
    For i2 = 6 To Sheet9.[D65536].End(xlUp).Row
        If Sheet9.Cells(i2, 4).Value Like "*" & WW & "*" Then
            k = k + 1
            xx(k) = Sheet9.Cells(i2, 4).Value
        End If
    Next i2
    Sheet5.Cells(7, 15).Value = Sheet5.ComboBox1.Value
    Sheet5.ComboBox1.List() = xx
    Sheet5.ComboBox1.DropDown
Else
    yy = Application.CountIf(Sheet3.Columns(4), "*" & WW & "*")
    If yy = 0 Then ComboBox1.List() = zz    ReDim xx(yy - 1)
    k = -1
    For i = 6 To Sheet3.[D65536].End(xlUp).Row
        If Sheet3.Cells(i, 4).Value Like "*" & WW & "*" Then
            k = k + 1
            xx(k) = Sheet3.Cells(i, 4).Value
        End If
    Next i
    Sheet5.Cells(7, 15).Value = Sheet5.ComboBox1.Value
    Sheet5.ComboBox1.List() = xx
    Sheet5.ComboBox1.DropDown
End If
End Sub
两个 If yy = 0 Then ComboBox1.List() = zz应改为 If yy = 0 Then sheet5.ComboBox1.List() = zz
1楼和2楼附件已更新,如果有的朋友不会改,请重新下载即可

[ 本帖最后由 SSJJWW 于 2010-12-24 08:08 编辑 ]

xytd

感谢分享！学习学习！！！

SSJJWW

修正了一个小缺点-----修正银行进帐单帐号和开户行因增加新单位而无法正确显示的缺点,1楼和2楼附件已更新

JLF2003

精美绝伦
感谢分享

SSJJWW

今日增加了冻结窗口代码
ActiveSheet.ScrollArea = "a1:k24"  引号内是区域,1楼和2楼附件已更新

SSJJWW

已在1楼附件中增加了中信实业银行进帐单模板

sohoxs

版主，你真太牛了呵~~ 很漂亮~~顶~~

wu970713

下载学习了，谢谢楼主分享！

SSJJWW

现银行关于书写方面的规范限制，原有的公式已部分不适用。现采用最完整的货币转换公式更新了原有的货币转换公式，避免出现0.3元转换成零元叁角整的情况的出现，而是转换成现有银行认可的形式：叁角整（20楼附件4个都要下完整）.

[ 本帖最后由 SSJJWW 于 2011-6-30 14:30 编辑 ]

SSJJWW

郁闷，今天附件怎么上传不了了？