vba - 停用 Excel 365 VBA 中的范围
问题描述
当 EXCEL365 中的某个范围被激活时,单元格变为灰色。当子程序完成并退出时,它们保持灰色。我假设一个人想要在退出子程序之前停用范围以使单元格变白。Microsoft 帮助页面中没有很好地处理此主题。有什么建议么?sub 为用户提供了正确的外观,但没有解决问题
Sub TestActivate()
Dim myWkBk As Workbookr code here`
Dim myWkSh As Worksheet
Dim myRange As Range
Set myWkBk = ThisWorkbook
Set myWkSh = myWkBk.Worksheets("Sheet1")
Set myRange = Range("A1:L50")
myRange.Activate
Cells(1, 1).Value = 1
Cells(2, 1).Value = 2
Range("A1:L50").Interior.ColorIndex = -4142
End Sub
解决方案
最好的方法是首先不激活范围:
Sub TestActivate()
Dim myWkBk As Workbook
Dim myRange As Range
Set myWkBk = ThisWorkbook
Set myWkSh = myWkBk.Worksheets("Sheet1")
Set myRange = Range("A1:L50")
With myRange
.Cells(1, 1).Value = 1
.Cells(2, 1).Value = 2
End With 'myRange
End Sub
高温高压
推荐阅读
- c++ - 无限运行时间
- if-statement - Python如何缩短我的代码(而不是让它更高效)
- java - 我的 Java 运行时环境没有更新
- python - 如何汇总查询集中多个日期范围的总和?
- android - 错误 java.lang.NullPointerException:尝试在空对象引用上调用虚拟方法“int java.lang.String.length()”
- arrays - 将字符串数组优化为 float3 数组
- webpack - 如何使用 HtmlWebpackPlugin 将块注入 html
- python - 使用 df.loc 放置来自不同行的值
- excel - Excel 2013 条件格式无法正常工作
- android - 我无法在 android 的主要活动中访问另一个类