Question

excel设置一个按钮，求一个编程VBA代码

如图所示，AH列黄格以上所填的数字是0或1，若按F9这些数都是随机变化的，黄格我取了以上各数的乘积，这个有个各个时间真伪取交集，只有以上各数全为1时，黄格才显示1，其余情况为0，在其旁边设置了一个按钮，要求按钮代码能实现如下功能：
单击一下，整个表格就不停的刷新，直到黄格显示为1，停止。
黄格的坐标为AH33

Answer 1

 sub rndd()
   j=0
   do while j=0
      for i=1 to 32
          range("AH" & I).value=int(2*rnd)
          j=range("AH" & I).value   
          if j=0 then exit for
      next i
   loop
   range("AH33")=j
  end sub
 '将以上代码复制给按钮即可

Answer 2

既然是AH33上的所有单元格为1，AH33才为1.
你弄个按钮要达到AH33为1.那么让AH1:AH32全为1就行了啊。为什么要不停地刷新。

追问

黄色格子以上 那些填入的数被我设定为非1即0
1表示事件为真 是由表格其他部分随机决定
0表示事件为假 也是由表格其他部分随机决定
我黄格为1的意思就是以上条件全部同时满足
黄格上面的1,0是随着excel随机刷新表示的。

追答

目前你的表格设计成什么样子了。
事件是些什么。。