2014-02-12 88 views
0

我有一個文檔,它將各種信息收集到特定的單元格中。VBA - 檢查輸入其他值時是否存在某個值

從事一個已經創建的宏,我需要一個檢查一個單元格來查看某個條目是否存在的可能性(讓我們說「Dave」)。在輸入「Dave」的情況下,需要檢查「Norman」是否被輸入到不同的單元格中。如果沒有,msg框需要出現並退出子程序。如果輸入了「諾曼」,則允許子例程完成。如果輸入了「Dave」以外的內容,則代碼將退出並繼續使用原始宏。

我不希望例程更改「諾曼」需要去的當前條目。

希望這是有道理的 - 到目前爲止,我有一個非常不完整的代碼如下:

Sub SIFSOLCHECK() 

    If instform.Range("Claim_Sol").Value = "Dave" Then 
     Sheets("Proceedings").Range("Sol_Co_UF").Value = "Norman" 
     MsgBox "Only Norman can assist with Dave" 
     Range("Solicitor").Select 
     Exit Sub 
    Else 
    End If 
End Sub 

任何幫助表示讚賞!

+0

爲什麼不直接使用'如果instform.Range( 「Claim_Sol」)值= 「戴夫」 和牀單( 「訴訟」)範圍( 「Sol_Co_UF」)值=。 「Norman」然後'刪除'Sheets(「Proceedings」)。Range(「Sol_Co_UF」)。Value =「Norman」'? –

回答

1

試試這個:

Sub SIFSOLCHECK() 

    If instform.Range("Claim_Sol").Value = "Dave" Then 
     If Sheets("Proceedings").Range("Sol_Co_UF").Value = "Norman" Then 
      'some code 
     End If 
    Else 
     MsgBox "Something" 
    End If 

End Sub 
+0

謝謝你。 – user3301338

相關問題