创建自动填充功能的VBA代码
在制作迷你记账系统时,为了实现录入凭证时的自动填充功能,我们需要编写一些VBA代码来实现这一功能。首先,按ALT F11打开VBE编辑器,在工具-引用中引用scrrun.dll字典dll库。然后在VBAProject工程中插入一个新模块,命名为“自定义函数过程”,在其中粘贴以下代码:
```vba
Sub pzhmtc()
'自动填充凭证号码
Dim d As New Dictionary
Dim arr, pzh As Integer, str As String, i As Integer, j As Byte
Dim str1 As String, flagcz As Boolean, temp As Integer
flagcz False
str Year(Sheets(2)) "/" Month(Sheets(2)) Sheets(2).Range("e1")
pzh Sheets(4).Range("b65536").End(xlUp).Row
If pzh > 1 Then
arr Sheets(4).Range("a2:c" pzh)
For i 1 To UBound(arr)
str1 Year(arr(i, 1)) "/" Month(arr(i, 1)) arr(i, 3)
If str str1 Then
flagcz True
d(str1 arr(i, 2)) arr(i, 2)
End If
Next
If flagcz Then
temp (0)
For i 1 To - 1
If (i) > temp Then temp (i)
Next
Sheets(2).Range("e2") temp
Else
Sheets(2).Range("e2") 1
End If
Else
Sheets(2).Range("e2") 1
End If
End Sub
```
设置工作表事件触发自动填充
接下来,双击Sheet2(录入凭证),在代码区域粘贴以下代码:
```vba
Private Sub Worksheet_Change(ByVal Target As Range)
'凭证类型变动时,自动填充凭证号码
If "$E$1" Then
Application.EnableEvents False
Call pzhmtc
Application.EnableEvents True
End If
End Sub
```
通过以上设置,当凭证类型发生变化时,系统将自动填充凭证号码,提高录入效率。
实现凭证号码自动填充效果
经过以上步骤设置后,在录入凭证时,系统会根据选择的凭证类型自动填充凭证号码,简化操作流程,提升用户体验。如图所示,凭证号码自动填充的效果直观明了,帮助用户快速完成记录工作。
以上是关于迷你记账系统制作中录入凭证时自动填充功能的详细解释和实现方法。通过合理的VBA代码编写和工作表事件设置,让记账过程更加便捷高效,为用户提供更好的使用体验。
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。