从另一个子执行子
阿纳兹
我有以下VBA代码为表格的单元格着色，这是查询的结果，可以一次又一次地更新。
Sub ColorMain()
Dim Data As Range
Dim cell As Range
Sheet1.Activate
Range("D7").Select
Range(Selection, Selection.End(xlDown)).Select
'clean the coloring
Set Data = Selection
Data.Interior.ColorIndex = 0
'apply the coloring
For Each cell In Data
If cell.Value = "X" Then
cell.Interior.ColorIndex = 22
ElseIf cell.Value = "Y" Then
cell.Interior.ColorIndex = 44
End If
Next
End Sub
我从另一个主Sub调用此Sub，它更新了SQL查询。运行主Sub时，着色适用于某些单元格，但并非全部。当我再次运行主Sub时，着色将适当地应用于所有单元格。
当我逐行运行着色Sub时，它可以完美工作。为什么在调用main Sub时从第一次尝试开始就不起作用？我必须在某个地方暂停应用程序吗？
编辑： Main Sub刷新我在工作簿中的查询，并调用ColorMain：
Sub RefreshAll()
ActiveWorkbook.RefreshAll
Call ColorMain
End Sub
阿纳兹
问题是执行着色子程序时查询未完全更新，如@Mark S.所述。
在查询的属性（“编辑连接属性”）中，我勾选了“启用后台刷新”选项。这允许查询在执行任何其他执行之前（即运行着色Sub）完全更新。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
基于另一个子帧
- 2
从另一个子域访问Cookie
- 3
另一个子查询问题
- 4
jQuery找到子元素的父元素，然后对初始父元素的另一个子元素执行操作
- 5
将两个结果在一个子传递到另一个子
- 6
尝试让一个子视图使用ui-router调用另一个子视图
- 7
单击另一个子菜单时如何关闭一个子菜单
- 8
在MATLAB中的另一个子图中绘制一个子图
- 9
将点击事件从一个子组件传递到另一个子组件
- 10
如何将一个子域重写为另一个子域？
- 11
如何从另一个子域发送一个子域的综合浏览量
- 12
VBA EXCEL：如何在另一个子例程中调用一个子例程？
- 13
如何知道另一个子组件中一个子组件的事件
- 14
一个子div必须溢出，另一个不能
- 15
从另一个访问一个子域
- 16
如何基于另一个zip的内容创建一个子zip？
- 17
在添加另一个子视图之前等待一个 addSubview 成功
- 18
当另一个子进程完成时，如何终止子进程？
- 19
为什么我的子菜单与另一个子元素重叠？
- 20
在自定义主题中从另一个子菜单添加子菜单
- 21
使用python multiprocessing子进程如何终止另一个子进程？
- 22
如何从Sitecore中的另一个子布局访问子布局控件？
- 23
从另一个子窗体访问子窗体中的控件
- 24
如何将子组件路由到另一个子组件
- 25
matplotlib，在另一个子图的顶部放置一个透明的子图
- 26
当两个子流程都通过管道与父流程通信时，一个子流程将阻塞另一个子流程
- 27
将包含另一个子布局的子布局从一个占位符移动到另一个占位符
- 28
通配符子域到另一个子文件夹中的子文件夹
- 29
在同一工作表VBA中调用另一个子
我来说两句