word可以实现在表格中填写随机数字？

wqq2006

我的一个网友说，word可以实现在表格中填写随机数字，那么必须要用到VBA，请问大虾，有办法实现吗？那位高手给我做一个样本？最好公开代码。因为还要修改的。比如我的附件的这个表格，如果规范是正负10，那么后面的表格里必须填写这个范围内的数字，带正负号。其他的正负5等等，类似的。

wudixin96

域里好像有相关公式的

wqq2006

求教高手，我不懂什么的，最好帮我做一下好吗？

sylun

可试试如下代码（只填写“基础”一行）
Sub test()
Dim i As Byte
Randomize
For i = 1 To 10
    ActiveDocument.Tables(1).Cell(23, 6 + i).Range.Text = Format(Int(19 * Rnd) - 9, "+0;-0;0")
Next
End Sub

wqq2006

谢谢楼上的，你的很不错，做得很好，很有启发意义，谢谢啊。

zlmaegis

excel中进行数据编辑不美吗？

11918106

sylun 发表于 2009-2-23 21:32
可试试如下代码（只填写“基础”一行）
Sub test()
Dim i As Byte

很有帮助，谢谢

daibao88

建筑质量不去实际检测，用随机数取，视生命为草芥。

梧叶沙沙

Word魔方插件，一键生成随机数

wdpfox

慎重慎重，安全第一。