[分享]商品入库登记表

匿名 *发表于 2015-4-5 14:55* · 发表于 2015-4-5 14:55

不是复了吗

匿名 *发表于 2015-4-5 14:55* · 发表于 2015-4-5 14:55

我.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1.FitToPagesWide = 1

KitMegan · 发表于 2015-4-6 11:33

回复我要看我要下载

匿名 *发表于 2015-4-9 21:44* · 发表于 2015-4-9 21:44

学习永远支持

匿名 *发表于 2015-4-9 21:44* · 发表于 2015-4-9 21:44

看看试试好不好用

匿名 *发表于 2015-4-9 21:46* · 发表于 2015-4-9 21:46

1688333333333333333333333333333333333333333333333333333333333333333333333333333333

蓝海朔月 · 发表于 2015-4-9 22:01

01.Function Fresum(Tjrng As Range, QyRng As Range) As Integer

02. arr = QyRng: Set Tjrng = Tjrng

03. If Tjrng Is Nothing Then

04.       Exit Function

05. End If

06. For i = 1 To UBound(arr)

07.       js = 0

08.       For j = 1 To Tjrng.Count

09.          For col = 1 To UBound(arr, 2)

10.             If Tjrng(j) = arr(i, col) Then

11.                   js = js + 1

12.                   GoTo 10

13.             End If

14.          Next

15.10

16.       Next

17.       If js = Tjrng.Count Then

18.          Fresum = Fresum + 1

19.       End If

20. Next

21.End Function

william037 · 发表于 2015-4-14 22:25

很想学习学习，感谢你支持

xxjpphone · 发表于 2015-4-15 11:09

非常好

2013星语星愿 · 发表于 2015-4-15 19:55

看看，辛苦了。

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