2016 - 2024

感恩一路有你

创建自动填充功能的VBA代码

浏览量:1897 时间:2024-05-25 09:17:55 作者:采采

在制作迷你记账系统时,为了实现录入凭证时的自动填充功能,我们需要编写一些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代码编写和工作表事件设置,让记账过程更加便捷高效,为用户提供更好的使用体验。

版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。