Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/csharp-4.0/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
停用Excel 365 VBA中的某个范围_Vba_Range_Excel 365 - Fatal编程技术网

停用Excel 365 VBA中的某个范围

停用Excel 365 VBA中的某个范围,vba,range,excel-365,Vba,Range,Excel 365,当Excel 365中的某个范围被激活时,单元格将变为灰色。当子程序完成并退出时,它们保持灰色。我假设在退出子例程之前要停用该范围,以使单元格变为白色。Microsoft帮助页中没有很好地处理此主题。有什么建议吗?sub为用户提供了正确的外观,但无法解决问题 Sub TestActivate() Dim myWkBk As Workbookr code here` Dim myWkSh As Worksheet Dim myRange As Range Set myWkBk = ThisWor

当Excel 365中的某个范围被激活时,单元格将变为灰色。当子程序完成并退出时,它们保持灰色。我假设在退出子例程之前要停用该范围,以使单元格变为白色。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