六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

Excel排列函数permut

Admin | 2012-2-27 9:32:23 | ReadNums | 6176 | 标签 六合开奖结果现场直播 | 打印本页
     

  permut函数,其功能是返回从给定数目的对象集合中选取的若干对象的排列数。

  排列为有内部顺序的对象或事件的任意集合或子集。排列与组合不同,组合的内部顺序无意义。

  本三肖中特马给你介绍排列,如果你想了解组合,请参阅此文:https://www.mysticcool.com/3753.html

  下面,讲述排列函数permut。

  一、permut语法

  PERMUT(number,number_chosen)   

  Number 表示对象个数的正整数。

  Number_chosen 表示每个排列中对象个数的正整数。

  参数说明:

  如两个参数为非整数,将被截尾取整。
  如果 number 或 number_chosen 为非数值类型,函数 PERMUT 将返回错误值 #VALUE!。
  如果 number ≤ 0 或 number_chosen < 0,函数 PERMUT 将返回错误值 #NUM!。
  如果 number < number_chosen,函数 PERMUT 将返回错误值 #NUM!。

  该函数的功能与数学上的排列概念,是一致的,只不过,此函数仅返回排列个数,而不会给出具体的排列方法。

  二、PERMUT实例

  比如,出3个队员中,选出两个队员来排队,共有几种排队方法,这就是排列,与顺序有关,顺序不同,则视为不同的排列方法。

  我们可以使用公式: =PERMUT(3,2)即可得出结果,6

  我们现在使用人工排列来理解此函数的排列方法,假设这三个队员的名字分别为A、B、C

  那么,排列的方案共为如此六种方法:

  1、A,B 2、A,C 3、B,C 4、B,A 5、C,A 6、C,B

  注意,该函数只返回排列的个数,不会给出具体的排列方法。

  如果你想了解排列的方案,只能使用VBA来实现,请看代码:

  for i =1 to 6

  for ii = 2 to 7

  for iii = 3 to 8

  for iiii = 4 to 9

  cells(k+1,1) = i & ii & iii & iiii

  k = k+1

  next iiii,iii,ii,i

  此代码的功能为,从9个对象里面,任何选择4个来排列的方案。

  代码在VBA环境下使用,会在当前工作表中的单元格里面自动填充出排列的方案。

  下面,再给你看看其它的排列的VBA代码:

  Sub 排列例子1()
  Dim a(1 To 7) As String                 '待排列字符
  Dim result(1 To 7) As String            '暂存结果
  Dim i As Integer                        '循环变量
  Set resCol = New Collection             '初始化结果集合
  a(1) = "A"                              '初始化待排列字符
  a(2) = "B"
  a(3) = "C"
  a(4) = "D"
  a(5) = "E"
  a(6) = "F"
  a(7) = "G"
  Insert result, a                        '排列
  Sheets(1).Columns("A:A").ClearContents  '清理结果位置,准备输出结果
  For i = 1 To resCol.Count               '将结果输出,因为在Excel中,所以输出到单元格
      Sheets(1).Cells(i, 1) = resCol(i)   '如果不是在Excel,可以输出到需要的地方
 Next
  End Sub

  Sub 排列例子2()
  Dim a() As String                       '待排列字符
  Dim result() As String                  '暂存结果
  Dim Total As Integer                    '总共多少个字符
  Dim i As Integer                        '循环变量
  Total = Sheets(2).Cells(1, 1)           '获取总共的字符数
  If Total > 26 Then
      MsgBox "字符数太多,超出程序设计"
      Exit Sub
  End If
  Set resCol = New Collection             '初始化结果集合
  ReDim a(1 To Total)                     '根据总字符数重新定义数组
  ReDim result(1 To Total)
  For i = 1 To Total
      a(i) = Chr(i + 64)                  '初始化待排列字符
  Next i
  Insert result, a                        '排列
  Sheets(2).Columns("B:B").ClearContents  '清理结果位置,准备输出结果
  For i = 1 To resCol.Count               '将结果输出,因为在Excel中,所以输出到单元格
      Sheets(2).Cells(i, 2) = resCol(i)   '如果不是在Excel,可以输出到需要的地方
  Next
  End Sub


问题未解决:在线咨询我要在线咨询问题

香港创富彩色正版图库

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日