★使用有效性信息配合引用数据★

LangQueS · 发表于 2009-11-14 17:28

适合批量填写复杂表格的工具

[ 本帖最后由 LangQueS 于 2010-12-3 11:34 编辑 ]

bibisin · 发表于 2009-11-14 19:11

谢谢LZ分享,学习了

fzct1 · 发表于 2009-11-17 00:03

谢谢楼主分享，学习中

LangQueS · 发表于 2009-11-25 15:26

1、通过高级筛选从数据表筛选出要打印的发票信息
2、按“写入”按钮在打印表每次写入3行信息，同时删除高级筛选表中的使用过的数据行
3、按“清空”按钮清除发票信息。

xbzg1996 · 发表于 2009-12-22 12:42

好贴啊！收藏了，谢谢斑竹！

ufo7188 · 发表于 2009-12-23 22:16

感谢版主，努力学习中！

zyx917 · 发表于 2009-12-24 23:37

请教各位老师一个函数嵌套如何赋值问题
我编了两个函数一个是syy1（a1，a2，a3，a4，a5，b1，b2，b3，b4，b5）。一个是syy2（a，b，c，d）。其中syy1函数里有syy2函数，如何在syy1函数里把a1的值赋给a，把a2的值赋给b，b1的值赋给c，b2的值赋给

d，同样，如何把a3的值赋给a，a4的值赋给b，b3赋给c，b4赋给d，函数格式如下：（这个函数是错误的，不知错在哪里）Public Function syy1(a1 As String, a2 As String, a3 As String, a4 As String, a5 As String, b1 As Integer, b2 As Integer, b3 As Integer, b4 As Integer, b5 As Integer) As String

If a = a1 And b = a2 And c = b1 And d = b2 And (b1 = 1 Or b1 = 0) And (b2 = 1 Or b2 = 0) Then

syy1 = syy2(a, b, c, d)

ElseIf a = a1 And b = a3 And c = b1 And d = b3 And (b1 = 1 Or b1 = 0) And (b3 = 1 Or b3 = 0) Then

syy1 = syy2(a, b, c, d)

ElseIf a = a1 And b = a4 And c = b1 And d = b4 And (b1 = 1 Or b1 = 0) And (b4 = 1 Or b4 = 0) Then

syy1 = syy2(a, b, c, d)

ElseIf a = a3 And b = a4 And c = b3 And d = b4 And (b3 = 1 Or b3 = 0) And (b4 = 1 Or b4 = 0) Then

syy1 = syy2(a, b, c, d)

Else

Syy1 = "8"

End If

End Function

（其中a，b，a1，a2，a3，a4，a5都是String）（c，d，b1，b2，b3，b4，b5都是Integer
）拜托各位老师修改错误。

zyx917.rar (15.94 KB, 下载次数: 228)

zyx917.rar (15.94 KB, 下载次数: 171)

LangQueS · 发表于 2009-12-25 00:59

建议zyx917在程序开发版发表主题帖求助。

高玉甫 · 发表于 2010-1-10 21:44

您的两个附件都不错，谢谢您。

高玉甫 · 发表于 2010-1-10 21:46

下载了，学习了，谢谢了。

		自动登录	找回密码
密码			免费注册

★使用有效性信息配合引用数据★

评分

请教各位老师一个函数嵌套如何赋值问题

回复 1楼 LangQueS 的帖子

回复 4楼 LangQueS 的帖子