런타임 오류 '1004'전달 워크 시트 이름

Question

다음 함수는 일련의 열 머리글을 반복하고 선택한 머리글의 열 번호를 반환하도록 설계되었습니다. 이 함수는 검색 이름과 검색이 수행 된 시트를 가져옵니다.

Function getColumn(name As String, sheet As Worksheet) As Integer 

Dim k As String, flag As Boolean, column As String 

flag = False 
k = 1 

Do While flag <> True 
    column = sheet.Cells(1, k).Value 
    If column = name Then 
     flag = True 
    Else 
     flag = False 
     k = k + 1 
    End If 
Loop 

getColumn = k 

End Function 

이전 시트에서 작동했지만이 줄은 오류 지점으로 강조 표시되어 있습니다.

column = sheet.Cells(1, k).Value 

여러 가지 방법으로 시트 이름을 전달하려고 시도했습니다. 등 따옴표없이 Sheet9, 시트 등 ("채무")로

나는 또한 시트 문자열 및 필요하므로, 인수 유형을 변경하려고했습니다

이 :

column = Sheets(sheet).Cells(1, k).Value 

그러나 행운 !

PLZ HALP

Answer 1

워크 시트 셀에서 함수를 호출하는 경우에, 당신은 객체 워크 시트가 아닌 워크 시트 이름을 통과해야합니다

Function getColumn(name As String, sheetn As String) As Long 
Dim k As Long, flag As Boolean, column As String 

flag = False 
k = 1 

Do While flag <> True 
    column = Sheets(sheetn).Cells(1, k).Value 
    If column = name Then 
     flag = True 
    Else 
     flag = False 
     k = k + 1 
    End If 
Loop 

getColumn = k 
End Function 

가 작동합니다

오류 처리 논리를 포함 시키면 더 좋습니다.