各位大神，投标评分，帮忙解决下。

yileida

各位大神，正在投一个工程标，遇到一个问题，描述如下，请帮忙解决下。
C8:C46是用函数随机生成的数字，每按一次F9生成一次随机数，根据生成的随机数按照公式得出C3和G7，现在希望在I列和J列能够逐一记录每一次根据随机数和公式生成的C3和G7值，最好能够输入随机生成的次数，自动记录数据。

liulang0808

1. Sub 按钮1_Click()
   
2.     x = Application.InputBox("请输入次数:", "次数", 1, , , , , 1)
   
3.     If x <> False Then
   
4.         Application.ScreenUpdating = False
   
5.         Columns("i:j").ClearContents
   
6.         For j = 1 To x
   
7.             Cells(j, "i") = [c3]
   
8.             Cells(j, "j") = [g7]
   
9.         Next j
   
10.         Application.ScreenUpdating = True
    
11.     End If
    
12. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

yileida

谢谢版主了，帮大忙了，功能看过了，没问题，然后我自己琢磨下代码。

yileida

liulang0808 发表于 2018-7-22 18:07
附件内容供参考。。。。。。

版主，打扰了，我设置了单次模拟的按钮，发现一个问题，就是我在i列和j列单次生成的C3和G7值和原有表格显示的值不一致，能不能做到单次模拟和多次模拟的最后一次的值能和表格里的值保持同步。谢谢了。

yileida

yileida 发表于 2018-7-23 11:39
版主，打扰了，我设置了单次模拟的按钮，发现一个问题，就是我在i列和j列单次生成的C3和G7值和原有表格显 ...

知道了，版主，非常感谢。