EXCEL VBA帶有特殊色譜柱的多種系列

Question

我使用Selection.Row = 1至Exit Sub。

但我需要的代碼繼續，如果Range("B1")正在使用

任何想法如何做到這一點？提前致謝。

Answer 1

理想情況下，您應該避免Selection altogther。但是，對於你的問題問作爲

1. 測試，如果選擇包含行1
2. 如果確實如此，那麼第二個測試運行，測試如果B1包含在Selection，如果是程序退出，如果代碼不會繼續。

它始終是最好的代碼範圍，打破必須以最常見的早期測試的出口被首先測試滿足到單獨測試兩個獨立的測試。如果第一個條件失敗，則運行And並測試第二個條件的效率更高。

代碼

Sub TestExit() 
Dim rng1 As Range 
If Not Intersect(Rows(1), Selection) Is Nothing Then 
Set rng1 = Intersect(Selection, [b1]) 
If rng1 Is Nothing Then Exit Sub 
End If 
End Sub 

Answer 2

If Selection.row = 1 And Selection.Column <> 2 Then Exit Sub