VBA随机固定刷新？ vba随机函数

Sub Rndnum() dim n as integer dim t as range set t = union(range(＂A1:A9＂) ,Range(＂D1:D9＂),Range(＂A11＂),Range(＂D11＂)) for each cell in t n = int(rnd()*20+16) cell.value=range(＂E＂ & n).Value next end sub 这个应该是符合你的条件,看了你和楼上的互动,我推测你实际区域并不是像你提供的这样是连续区域,而应该是很多个不连续区域吧.用UNION就可以了,可以随便改区域.

你好!application.ontime now()+timevalue(＂00:00:01＂),＂aa＂ 上面这语句是每隔一秒之后运行一次 aa 请根据以上原理自行设置,一定要加个now()不然就会是在某个时间后运行一次,而不会定时运行了.如果对你有帮助,望采纳.

当然是一个宏就够了,只是楼主的要求还有些模糊,写vba是需要精确到每个细节的:1. 整数位几位?小数位几位?2. 哪些表的哪些单元格?3. 宏什么时候触发?4. 宏是做成加载项处理每一个打开的工作薄还是放在工作簿里,在工作簿打开的时候运行?

这个随机的数据的大小没有要求?下面以F列为100~999随机数值为例: (测试通过) 按ALT+F11后,将以下内容复制进去,再点运行宏运行GetRnd,即可 Sub GetRnd() Randomize For i = 1 To 150 Do temp = Int(Rnd() * 899) + 100 If temp <> Cells(i, 3) Then Exit Do End If Loop Cells(i, 5) = temp Next i End Sub

我对你的代码简化了一下,改变了你的思路.代码如下: Sub tt() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim i As Integer, j As .

用rand()随机生成0-1之间的数据

在VBA中添加一个计时器 不会用就不好说了,因为要添加控件,给你代码也没用.

sub 刷新() cells.select selection.clear range(＂a1＂).selectend sub

①、在工具-选项-重新计算里,有自动重算选项,点选它,就能自动刷新.②、有些函数公式在设定为自动重算的状态下仍然不能自动刷新,因为这些公式中包含非易失性函数的跨工作表、工作薄的引用.这时,需要根据公式得到的结果添加易失性函数来强制其自动刷新.通常,对于得到的结果为文本的公式,就在其后添加:&T(NOW()),而对结果为数值的公式,添加:+ISTEXT(NOW()) ③、VBA中有控制自动重算的功能.你在手动修改自动重算的设置的同时录制宏,就能看到它的代码:Application.Calculation = xlAutomatic'设置为自动重算 Application.Calculation = xlManual'设置为手动重算

直接用VBA的随机函数生成就可以.或数值粘贴.不管怎样,要求楼主进行最佳答案的选择或进行投票,回答不容易.