大家来爆料：我见过的最牛的Excel用法！

xinqing1980 · 发表于 2009-8-1 17:35

我的EXCEL在这儿来说只能说是小意思了，嘿嘿，不过我老公跟我比就有些差得远了，他每次研究出来一个小问题就得意的跑到我的面前说他研究出来一个“超大的项目”，结果我说这个还可以更简单，三下五除二就给他搞定了，结果他就低下头一声不吭了，想起他的动作我就觉得很好玩，他就喜欢自己花好长时间想出来问题的答案，唉，秀费解！

YZLSZAJ · 发表于 2009-8-3 05:22

真有意思是个好主意既娱乐又学习。大家来开故事会！

gpcatv · 发表于 2009-8-5 11:03

斑竹：
你好！我想做一个001到648的数字的全排列，可就是不懂做，请教您能不能做？

gpcatv · 发表于 2009-8-5 11:08

斑竹：
   你好！我想在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 11:10

也许这也是一种最“牛”的excel的用法吧

19871122dong · 发表于 2009-8-5 12:35

原帖由 gpcatv 于 2009-8-5 11:08 发表
斑竹：
你好！我想在EXCEL做一个001到648的数字的全排列，可就是不懂做，请教您能不能做？
也就是说，在这个全排列里，要求所以的任意的排列组合都有！以前也看过一些高手做过全排列0到6的代码，（如下）
Op ...

楼主可以讲问题发表到VBA专门的版块，比发表在这里获得解决的时间要快！

hqj137 · 发表于 2009-8-5 15:59

看来计算机应用基础还需要普及呀

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

谢谢SECIBOY，谢谢

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

谢谢，19871122dong！谢谢

jianggelila · 发表于 2009-8-5 16:38

看完了，学习了很多东西

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

大家来爆料：我见过的最牛的Excel用法！

回复 1楼 Kevin 的帖子

求助斑竹

回复 1345楼 19871122dong 的帖子