工资表---全年工资随意查(09年8月5日更新)

yan9577 · 发表于 2009-7-26 17:05

学习中~~~~~~~

E生只爱你E人 · 发表于 2009-8-2 09:49

很值得收藏的一个作品。。。

xuyanan0044 · 发表于 2009-8-2 16:21

需要学的还是很多啊

学良 · 发表于 2009-8-5 16:07

根据大家要求, 现已更新,
欢迎改进意见!

happy-123 · 发表于 2009-8-5 16:21

学习了

gpcatv · 发表于 2009-8-5 16:47

学良老师：
   您好！我是一个EXCEL的初学者，我想在EXCEL做一个001到648的数字的全排列，可就是不懂做，请教您能不能做？
也就是说，在这个全排列里，要求所以的任意的排列组合都有！以前也看过一些高手做过全排列0到6的代码，（如下）
Option Explicit
Sub pailie(ParamArray x())
Dim starttime As Single, endtime As Single
Dim i As Integer, j As Integer, k As Integer, Num As Long, n As Integer
Dim ALL(), TEMP1 As Long, TEMP2 As Long
n = UBound(x) + 1 '元素个数
starttime = Timer '开始计时
Num = 1
For i = 1 To n
Num = Num * i '递归计算n！
Next
For i = 1 To Num
ReDim ALL(1 To n) '初始化数组all
ALL(1) = x(0)
TEMP1 = i
For j = 2 To n
  TEMP2 = TEMP1 Mod j
  TEMP1 = TEMP1 \ j
  If TEMP2 = 0 Then
ALL(j) = x(j - 1) 'temp2为 0则放在最后
  Else
For k = j To TEMP2 + 1 Step -1
ALL(k) = ALL(k - 1) ' temp2之后的元素后移一位
Next
ALL(TEMP2) = x(j - 1) 'temp2不为 0 则置于第temp2个元素前
  End If
Next
ActiveSheet.Cells(i, 1) = "'" & Join(ALL, "") '输出
Next
endtime = Timer
MsgBox "共 " & Num & " 种排列！用时 " & endtime - starttime & " 秒！"
End Sub
Sub test()
pailie "0", "1", "2", "3", "4", "5", "6"
End Sub
可就是不懂用，您看能不能帮帮我！
谢谢！

gpcatv · 发表于 2009-8-5 16:50

学良老师：
您的作品真漂亮！

wzswp · 发表于 2009-8-6 16:37

打不开呀！提示：找不到工程或库。？？？？。。。。。

peichih · 发表于 2009-8-6 17:03

学习

nbxyj2003 · 发表于 2009-8-6 21:31

thank you

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

[分享] 工资表---全年工资随意查(09年8月5日更新)

继续学习

回复 1楼学良的帖子

回复 431楼学良的帖子

打不开呀！

[分享] 工资表---全年工资随意查(09年8月5日更新)

继续学习

回复 1楼 学良 的帖子

回复 431楼 学良 的帖子

打不开呀！

回复 1楼学良的帖子

回复 431楼学良的帖子