需要高手给编个宏，当单元格数值达到设定条件时，提取到另一个表内，重复10次结束

追求什么99 · 发表于 2024-3-11 23:50

本帖最后由追求什么99 于 2024-3-12 09:14 编辑

编写宏实现：表1的单元格是一个随机数，当随机数在（0.5,0.75）之间时，提取到表2，重复10次即结束。

3190496160 · 发表于 2024-3-12 09:58

Sub 随机数()
Do
Range("C3").FormulaR1C1 = "=RAND()"
x = Range("C3").Value
If x >= 0.5 And x <= 0.75 Then '
m = m + 1
Sheets("表2").Cells(m + 2, 3) = x
End If
Loop Until m = 10 ''
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-3-12 09:59

编写宏.rar (16.04 KB, 下载次数: 4)

追求什么99 · 发表于 2024-3-12 11:17

本帖最后由追求什么99 于 2024-3-12 16:53 编辑

牛！感谢指导，我马上试一下。

追求什么99 · 发表于 2024-3-12 11:25

本帖最后由追求什么99 于 2024-3-12 16:53 编辑

好用

追求什么99 · 发表于 2024-3-12 13:15

本帖最后由追求什么99 于 2024-3-12 16:53 编辑

非常抱歉！

		自动登录	找回密码
密码			免费注册

[求助] 需要高手给编个宏，当单元格数值达到设定条件时，提取到另一个表内，重复10次结束