Excel随机数，指定条件自动刷新问题，求高手赐教

1. Excel随机数，指定条件自动刷新问题，求高手赐教

这个随机的数据的大小没有要求？下面以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

2. excel vba运行时，总时闪个不停，用什么方法变为静态

可以通过关闭屏幕刷新做到
关闭屏幕刷新代码
Application.ScreenUpdating = False开启屏幕刷新代码
Application.ScreenUpdating = True示例
Sub 新建工作表()Application.ScreenUpdating = FalseFor i = 1 To 31Sheets.Add(Sheets(i)).Name = iNextApplication.ScreenUpdating = TrueEnd Sub关闭屏幕刷新还可以大量减少代码运行时间，不过鼠标指针会显示忙碌
另外，当代码运行时间过长时关闭屏幕刷新系统会提示程序未响应，请无视系统提示，耐心等待即可

3. Excel 求助一个手动刷新进行查询的VBA语句

你说的是公式的自动重算吧？
可以在工具--选项--公式 把手工计算改成自动重算，就不用按F9了
VBA中的语句如下：
手工计算
 With Application
 .Calculation = xlManual
 .MaxChange = 0.001
 End With

自动重算：

 With Application
 .Calculation = xlAutomatic
 .MaxChange = 0.001
 End With

4. excel vba自动更正选项的问题

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Count > 1 Then Exit Sub    If Target.Row  1 Then Exit Sub    If Target.Column  1 Then Exit Sub    If Target = "你" Then Target = "你好"End Sub看了半天，不知道你是不是想要这样的结果。在A1单元格输入“你”，然后按回车，那么A1单元格自动变成“你好”，如果是，可以下载附件测试！！

5. 求助Excel高手，VBA定时自动更新枢纽分析表

这个问题不好回答啊。
把文件发我邮箱试试吧
3030490161@qq。com

6. 【VBA编程中关于工作表自动循环执行的问题】

Dim x%, y As Worksheet, z%
z = Worksheets.Count
For x = 1 To z
Set y = Worksheets(x)
If y.Name = "某某" Then
Else
'然后对工作的操作
End If
Next x
-------------------------------
你代码中的y是变体变量，根据赋值，为工作表。工作表与工作表相等的描述是错误的，只有工作表的名称是否相同的判断。所以，你那里会出错。
顺便一提，你所使用的判断跳转语句： goto line。意思是如果判断为假，则重新运行循环，这样的循环会造成无限循环。这一句是多余的。你不需要用跳转，只需要忽略即可。
还有就是，建议最好申明变量时能明确定义变量的数据类型，这样可以加快程序的运行。只不过，你这里因为数据量不大，可能没有这个必要。建议要养成一个好的习惯。

7. Excel 自定义函数的公式不能及时刷新，有什么办法

在前面加入一行代码:Application.Volatile这行代码的作用是强制重新计算,即可刷新数据

8. 求助Excel vba 高手！vba要怎么更改才能等连接更新数据完成后再执行保护工作表？

代码开始先取消保护单元格，结束执行再保护单元格。同时，注意出错处理。程序出错，同样要进行保护单元格。
Sheet1.Unprotect  '取消单元格保护

Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  '进行单元格保护

代码中的Sheet1是工作表的后台名称