2016-07-20 2 views
0

사용자는 워크 플로, 서버, 시작 시간, 종속성 및 실행 시간 인 (Sheet1)에 대한 특정 정보를 입력합니다.워크 시트의 일치 정보

헤더에 이름이있는 차트가 있습니다.

나는 사용자가 입력 한 정보를 찾아야합니다. 나는 VLookup을 사용해 보았습니다. 그러나 이는 하나의 기준에만 적용됩니다. 내가 사용할 수있는 다른 것이 있습니까?

Sub Button2_Click() 
    'Copy the ticket number' 
    Worksheets("Sheet1").Range("c3").Copy _ 
     Destination:=Worksheets("Sheet3").Range("b2") 
    Call CopyTable 
    Call FINDSAL 
End Sub 

Sub CopyTable() 
    ' 
    ' CopyTable Macro to sheet 3 
    ' 
    Sheets("Sheet2").Select 
    Range("D1:I38").Select 
    Selection.Copy 
    Sheets("Sheet3").Select 
    Range("C4").Select 
    ActiveSheet.Paste 
    Columns("C:C").EntireColumn.AutoFit 
    Columns("D:D").EntireColumn.AutoFit 
    Columns("E:E").EntireColumn.AutoFit 
    Columns("F:F").EntireColumn.AutoFit 
    Columns("G:G").EntireColumn.AutoFit 
    Columns("H:H").EntireColumn.AutoFit 
    ActiveWindow.SmallScroll Down:=12 
End Sub 

Sub FINDSAL() 
    'looking for the specific word' 
    Dim E_name As String 
    E_name = Worksheets("Sheet1").Range("C5").Value 
    sal = Application.WorksheetFunction.VLookup(E_name, Sheet3.Range("c4:h41"), 1, False) 
    MsgBox sal 
End Sub 
+0

겠습니까 [여러 기준에'색인/Match'] (https://www.deskbright.com/excel/index- :

내 코드입니다 match-multiple-criteria /)는 작동합니까? – BruceWayne

+0

연결이 끊긴 레코드 세트를 만들고 범위의 값으로 채우고 필터를 적용한 다음 레코드 세트에서 결과 레코드를 가져옵니다. 여기에 [예제] (http://stackoverflow.com/a/36189658/2165759)가 있습니다. – omegastripes

답변

0
Sub FINDSAL() 
'looking for the specific word' 
Dim E_name As String 
E_name = Worksheets("Sheet1").Range("C5").Value 
if instr(ename,Sheet3.Range("c4:h41")) > 0 then 
    msgbox Ename & " was found in the range. All range text is " &  Sheet3.Range("c4:h41") 
msgbox "Set sal as whatever you're trying to get out of this..." 
end if 
MsgBox sal 

최종 하위

관련 문제