当前位置: 首页 > news >正文

建立网站策划书武汉seo优化顾问

建立网站策划书,武汉seo优化顾问,网站建设一条龙全包顶呱呱,工作总结及下步工作计划目录 1,二维数组组合函数举例 2,组合求和 之前的文章《ExcelVBA数组组合函数、组合求和》和《ExcelVBA数组排列函数》,都是针对一维数组的组合和排列 二维数组组合:对一个m行*n列的二维数组,每行抽取1个元素进行组合&a…

目录

    • 1,二维数组组合函数
      • 举例
    • 2,组合求和

之前的文章《Excel·VBA数组组合函数、组合求和》和《Excel·VBA数组排列函数》,都是针对一维数组的组合和排列
二维数组组合:对一个m行*n列的二维数组,每行抽取1个元素进行组合,则共有n ^ m个组合

1,二维数组组合函数

代码思路,类似之前的文章“VBA排列函数”尾数循环的方式

Function combin_arr2d(arr)'arr二维数组,内含m行*n列元素,每行抽取1个进行组合,返回一维嵌套数组,每行为一个组合(数组从1开始计数)Dim i&, j&, m&, n&, kk&, result, k&, x&, r&If LBound(arr) = 0 Or LBound(arr, 2) = 0 Then  '转为从1开始计数arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arr))End Ifm = UBound(arr): n = UBound(arr, 2): ReDim b&(1 To m - 1)kk = n ^ m: ReDim result(1 To kk): ReDim res(1 To m): k = 1For i = 1 To m - 1  '非尾数部分初始值b(i) = 1NextDoFor i = k To m - 1  '非尾数部分res(i) = arr(i, b(i))NextFor j = 1 To n  '仅修改尾数res(m) = arr(m, j): r = r + 1: result(r) = resNextx = m - 1: b(x) = b(x) + 1  '尾数循环结束后,m-1位进位Do While b(x) > n  '循环进位,原位重新为1If x > 1 Then b(x) = 1: x = x - 1: b(x) = b(x) + 1 Else Exit DoLoopk = x  '非尾数部分,需要重新赋值的开始位置If b(1) > n Then Exit Do   '所有组合完成Loop Until r = kkcombin_arr2d = result
End Function

举例

组合结果为一维嵌套数组,写入表格需转为二维数组,以下代码调用了TransposeArr函数,代码详见《Excel·VBA数组行列转换函数》(如需使用代码需复制)

Sub combin_arr2d组合输出()Dim arr, brr, crrarr = [a1].CurrentRegionbrr = combin_arr2d(arr)  '调用函数返回组合,一维嵌套数组crr = TransposeArr(brr, 2)  '转为二维数组Cells(1, "e").Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

对表格中A1:C5区域共5行3列,每行抽取每行抽取1个元素进行组合,共有3 ^ 5 = 243个组合,如图(部分截图)
在这里插入图片描述

2,组合求和

Sub combin_arr2d组合求和()Dim arr, brr, b, h, h2, i&, temp_sum, write_col$, w&
'--------------------参数填写:arr二维数组,h和值下限,h2和值上限,write_col结果写入列号arr = [a1:c14]: h = 36: h2 = 43write_col = "e": w = 1: Cells(w, write_col).Resize(1, 2) = Array("和值", "组合")tm = Timer: brr = combin_arr2d(arr)  '调用函数返回组合,一维嵌套数组For Each b In brrtemp_sum = WorksheetFunction.sum(b)If Abs(Round(temp_sum - h, 6)) < (0.1 ^ 6) Or Abs(Round(temp_sum - h2, 6)) < (0.1 ^ 6) _Or (temp_sum >= h And temp_sum <= h2) Thenw = w + 1: Cells(w, write_col).Resize(1, 2) = Array(temp_sum, Join(b, "+"))End IfNextDebug.Print "组合求和完成,累计用时:" & Format(Timer - tm, "0.00")  '耗时
End Sub

对表格中A1:C14区域共14行3列,进行组合共有3 ^ 14 = 4,782,969个组合,求和值范围为36-43的所有组合,共有525,087个组合符合要求,如图(部分截图)
在这里插入图片描述
测试耗时秒数

组合类型一维数组组合二维数组组合
组合个数5,242,8874,782,969
耗时秒数2.6760.61

组合求和的代码运行速度较《Excel·VBA数组组合函数、组合求和》慢了很多

http://www.hrbkazy.com/news/13271.html

相关文章:

  • 网站建设中页面网络营销策划创意案例点评
  • 网站建设是不是可以免费建站百度指数数据分析平台官网
  • 网站开发用php还是js搜索引擎营销方案
  • 企业网站免费认证本网站三天换一次域名
  • 濮阳网站建设陈帅如何开发软件app
  • 长春阿凡达网站建设网络营销到底是个啥
  • 广西最优秀的品牌网站建设公司北京seo优化服务
  • wordpress做的网站效果6百度网站关键词排名助手
  • 滨海做网站哪家最好百度知道下载安装
  • 房天下怎样快速做网站外链发布工具下载
  • 怎么给领导做网站分析网络兼职平台
  • 女生做网站推广营销型网站建设服务
  • 企业网站的开发公司今天最火的新闻头条
  • 泉州seo优化搜索引擎优化方案
  • 电商网站多少钱在百度上做广告推广要多少钱
  • 重庆营销型网站建设沛宣网络宣传推广
  • 央美老师做的家具网站整合营销是什么
  • wordpress淘宝联盟模板快速排名优化公司
  • 自己做的网站 怎么在网上销售西安网站设计
  • 不用服务器做视频网站吗网站建设的基本流程
  • 专业做网文的网站怎么做自己的网站
  • 湘潭网络推广重庆seo网站系统
  • 网站建设从零开始教程全自动推广引流软件免费
  • 哪个网站教做西餐新闻发布平台
  • 怎么做网站编辑百度平台商家客服电话
  • 黑龙江省建设网证书查询长沙优化科技有限公司正规吗
  • 网站开发设计步骤360推广
  • 网站被挂黑链怎么办如何自己创建一个网站
  • 外贸网站运营怎么做搜索引擎排名中国
  • 网站品牌建设功能全网营销推广怎么做