[已解决]求助 如何进行数据有效性 全部数据计算 七七进来一下

cloudliumy

谢谢各位大神先

问题如下图 拜谢 拜谢

to 七七 我不能回复你的帖子 只能自己回自己的，也发不了短消息  麻烦你看一下我2楼的回复 谢谢。

   

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-6-11 15:36

1 Cells(k, "k") = Range("h9")
下面添加一行 cells(k,"L")=arr1(x)&arr2(y) & arr3(z) & arr4(w)

2 如果想指定到k12开始，就在程序最前面(for上面)插入 k=11

3 可以引用单元格的值 arr1=区域,arr2=区域。。。不过程序中的数组形式都要用二维了
如arr1(x)改成arr(x,1) arr2(y)改成arr(y,1) arr3(z)改成arr3(z,1) arr4(w)改成arr4(w,1)

跳转到最佳答案楼层

妞叫七七

Sub jisuan()
arr1 = Array(0.91, 0.995, 1.003)
arr2 = Array(0.67, 0.718)
arr3 = Array(0.413, 0.501)
arr4 = Array(0.164, 0.259)
For x = 0 To UBound(arr1)
  For y = 0 To UBound(arr2)
    For Z = 0 To UBound(arr3)
      For w = 0 To UBound(arr4)
      k = k + 1
  Cells(5, "j") = arr1(x)
  Cells(6, "j") = arr2(y)
  Cells(7, "j") = arr3(Z)
  Cells(8, "j") = arr4(w)
  Cells(k, "k") = Range("h9")
Next w, Z, y, x
End Sub

cloudliumy

谢谢您的回复，问题大概解决了，但是 还想请教一下 相关的问题。谢谢您。

1. 我想知道 计算结果是哪种组合算出来的。最好是能生成列表 那种。

2. 您代码里的输出位置是K列，我如果想换个地方输出 要怎么做呢？ 比如 K12单元格开始。我把Cells(k, "k") = Range("h9")改成 Cells(12，"k") = Range("h9") 这样 所有的结果重复替换了。

3. 用您原始的代码 很多结果是N/A 应该是数组的数据不能正好对应下拉框数据的原因，
比如 您的代码 arr1 = Array(0.91, 0.995, 1.003)
我要改成 arr1 = Array(0.91006325, 0.99505125, 1.00287)  才能减少N/A。
请问 能不能把数组定义时候的值 改成 指定单元格的值 比如 arr1= sheet100%(d2:d4) 这样的。 我查了怎么给数组赋予单元格值，但是 没有带指定sheet的代码。

希望您能指导一下。 谢谢。

妞叫七七

1 Cells(k, "k") = Range("h9")
下面添加一行 cells(k,"L")=arr1(x)&arr2(y) & arr3(z) & arr4(w)

2 如果想指定到k12开始，就在程序最前面(for上面)插入 k=11

3 可以引用单元格的值 arr1=区域,arr2=区域。。。不过程序中的数组形式都要用二维了
如arr1(x)改成arr(x,1) arr2(y)改成arr(y,1) arr3(z)改成arr3(z,1) arr4(w)改成arr4(w,1)

薄荷语冰

好深奥，都看不懂