Dim 사용할 때 외부 프로 시저가 잘못되었습니다.

Question

다음 코드와 함께 "외부 프로 시저가 유효하지 않습니다"오류가 발생합니다. 누군가 내가 여기서 잘못 읽었는지 말해 줄래?

Dim Asset As String, AssetURL As String 

Asset = Range("B1").Value 

If Asset = "1" Then 
    AssetURL = "X:\Docs\excel0001.xls" 
Elseif Asset = "2" Then 
    AssetURL = "X:\Docs\excel0002.xls" 
End If 

Range("C1").Value = AssetURL 

Answer 1

여러 잠수정 내에서 코드를 실행할 수 있도록하는 가장 좋은 방법은 그것을 할 수있는 Public Sub : 다른 곳에서이 코드를 실행할 때

Public Sub qwerty() 
    Dim Asset As String, AssetURL As String 

    Asset = Range("B1").Value 

    If Asset = "1" Then 
     AssetURL = "X:\Docs\excel0001.xls" 
    ElseIf Asset = "2" Then 
     AssetURL = "X:\Docs\excel0002.xls" 
    End If 

    Range("C1").Value = AssetURL 
End Sub 

, 당신은 사용해야합니다

Sub OtherSub() 
    'OtherSub Code 
    Call qwerty() 'or just qwerty 
    'Rest of OtherSub Code 
End Sub 

Related question on using Call to utilize a Sub within another Sub