2015-12-08 59 views
0

Excel中不斷想出一個錯誤信息說: 編譯錯誤我應該使用哪個版本的null?

無效使用對象的

If range("C13:17").Find(11) = Nothing Then 
       'Do nothing 
      Else 
       range(findeleven).Select 
       ActiveCell.FormulaR1C1 = 1 
      End If 

請幫忙:-)

BTW它是用VBA編寫

+7

嘗試'是Nothing' - 不是'= Nothing' – WhiteHat

+0

您可以通過使用否定了一下縮短你的代碼:'如果沒有範圍( 「C13:17」),查找(11)沒有什麼然後'然後你的代碼。 –

+0

「C13:17」應該是「C13:C17」 –

回答

1

希望這將幫助你:)

Sub Search() 
 
Range("C13:C17").Select 
 
With Selection 
 
Set c = .Find(11, LookIn:=xlValues) 
 
If Not c Is Nothing Then 
 
       
 
      Else 
 
       Range("Your range").Select 
 
       ActiveCell.FormulaR1C1 = 1 
 
      End If 
 
End With 
 
End Sub

相關問題