雖然在特定的列中選擇一個單元做一些事情的時候沒有錯誤味精

Question

你好我試圖做一個類似的代碼如下

Do while (the selected cell is in the column b) 
Code... 

End Loop 
Message error 

當我點擊該按鈕時，所選擇的小區不是在列b希望出現錯誤味精

Answer 1

假設單個小區被選擇，那麼就可以實現通過使用下面的語句所期望的結果：

' get the column number 
col = Selection.Column() 

列「B」對應於列NUM如果選擇不在列2中，則彈出錯誤消息（根據您的要求）。

希望這會有所幫助。

Answer 2

基於您的評論，你可以嘗試這樣的事：

Dim r As Range 

'assign the selection to a variable 
'but make sure it is a range 
If TypeName(Selection) = "Range" Then Set r = Selection 

'check if something is assigned to r; meaning a range is selected 
If Not r Is Nothing Then 
    'check if it is somewhere in Column B 
    If Not Intersect(r, Sheets("Sheet1").Range("B:B")) Is Nothing Then 
     'do your stuff here 
    Else 
     'your error message here 
     MsgBox "Invalid Selection", vbCritical 
    End If 
End If 

上面的代碼使用MsgBox作爲您的錯誤信息。
這是你想要的嗎？ HTH。