케이스 선택 구문이 루프를 만들고 있습니다. 원하지 않습니다.

Question

케이스 선택과 msgbox를 포함하는 구문을 작성했습니다. 구문을 사용하여 스프레드 시트에서 첫 번째 활성 셀을 찾고 일부 사전 정의 된 질문과 대답에 따라 A1 또는 A2로 이동 시키지만 명령이 최적으로 작동하지 않습니다. somene는 나를 도울 수 있습니까?

이전 질문에 제공된 답을 토대로 직관적으로 메시지 상자를 표시하고 싶지만 메시지 상자가 복잡해지기 쉽다.

아래 코드를 첨부했습니다.

Public Sub SurvAnalysis() 

    Dim InpSh As Worksheet 
    Dim fCell As Range 
    Dim msg1 As String, msg2 As String 
    Dim Ans1 As Variant, Ans2 As Variant 

    Set InpSh = ThisWorkbook.Worksheets("Input") 

    msg1 = "Are these headers included in the Data, and is the data in the correct format? { Dob ∏ StartDate ∏ End Date }" 
    Ans1 = MsgBox(msg1, vbYesNoCancel, " Data type") 

    Select Case Ans1 
     Case vbYes 
      On Error Resume Next 
      Set fCell = InpSh.Cells.Find(What:="*", _ 
             After:=InpSh.Cells(Rows.Count, Columns.Count), _ 
             LookAt:=xlPart, _ 
             LookIn:=xlFormulas, _ 
             SearchOrder:=xlByRows, _ 
             SearchDirection:=xlNext, _ 
             MatchCase:=False) 
      On Error GoTo 0 
      If fCell Is Nothing Then 
       MsgBox "All cells are blank." 
      Else 
       fCell.CurrentRegion.Cut Destination:=InpSh.Range("A1") 
      End If 
      GoTo Quit: 

     Case vbCancel 
      MsgBox ("Get your data sorted out") 
      GoTo Quit: 

     Case vbNo 
      GoTo Option2: 
    End Select 

Quit: 
Option2: 

    msg2 = "Are the data in the correct manner and do you wish for us to include the headers on your behalf?" 
    Ans = MsgBox(msg2, vbYesNo, "Sort Data") 

    Select Case Ans 
     Case vbYes 
      Set fCell = InpSh.Cells.Find(What:="*", _ 
             After:=InpSh.Cells(Rows.Count, Columns.Count), _ 
             LookAt:=xlPart, _ 
             LookIn:=xlFormulas, _ 
             SearchOrder:=xlByRows, _ 
             SearchDirection:=xlNext, _ 
             MatchCase:=False) 
      If fCell Is Nothing Then 
       MsgBox "All cells are blank." 
      Else 
       fCell.CurrentRegion.Cut Destination:=InpSh.Range("A2") 
       InpSh.Range("A1").Value = " Dob" 
       InpSh.Range("B1").Value = " StartDate" 
       InpSh.Range("C1").Value = " End Date" 
      End If 
     Case vbNo 
      MsgBox ("Get your data sorted out") 
      GoTo Quit: 
    End Select 
End Sub 

Answer 1

귀하의 goto 결말 문 Quit:은 맨 끝에 와야합니다. 코드에서 Quit:으로 이동하면 코드 아래에있는 모든 코드 줄을 계속 처리합니다. 또한 엄지의 일반적인 규칙과 마찬가지로 의견 일지 모르지만 보통 goto 문을 사용하지 않고도 항상 올바른 코드를 작성할 수 있습니다. 그들은 가치있는 것보다 더 많은 쟁점을 야기합니다. goto 문없이 로직을 작성할 수 있는지 확인하십시오. 그러면 평생 동안 설정 될 것입니다.