체크 박스를 기반으로 InputBox 열기

Question

Excel VBA에 익숙하지 않아서 사과해야 할 질문이있는 경우 사과드립니다.
Excel에서 모델을 만들고 있는데 실제로 시도하고 있습니다. checkbox이 선택되면 inputbox을 트리거하십시오.

이

Private Sub Worksheet_Change(ByVal Target As Range) 
    Set Target = Range("G7") 

    If Target.Value = "TRUE" Then 

     Dim QtyEntry As Integer 
     Dim Msg As String 
     Msg = "Please insert value" 
     QtyEntry = InputBox(Msg) 
     ActiveSheet.Range("C7").Value = QtyEntry/100 

    End If 
End Sub 

target.valueG7는 checkbox에 연결된 세포, 그래서 검사가 꺼져있을 때 검사 또는 FALSE 때 그것은 TRUE를 반환

은 지금까지 나는 다음을 수행 할 수 있었다. 그러나 두 가지 종류의 문제가 있습니다. 첫 번째는 확인란을 선택하면 매크로가 실제로 활성화되지 않는다는 것입니다. 그러나 대상 셀에 "TRUE"라고 쓰면됩니다.

두 번째는 inputbox이 나타나면 값을 올바르게 배치합니다. 세포 C7,하지만이 사라지고없이 입력 값에 요구에 계속 그것.

에

Answer 1

이유는 바로 직접?과 같이 체크 박스의 이벤트를하지

Private Sub CheckBox1_Change() 
    If (CheckBox1.Value) Then 

     Dim QtyEntry As Integer 
     Dim Msg As String 
     Msg = "Please insert value" 

     'errNum is used to catch if an error has happened from the inputbox entry 
     Dim errNum as integer 
     Err.Clear 
     On error resume next 'this line tells the code to continue even if it encounters an error 
     QtyEntry = InputBox(Msg) 
     errNum = Err.Number 
     On error goto 0 'this reset the default behavior of error handling 

     Excel.Application.enableEvents = False 'this is to avoid the change of the cell "C7" calling your `Worksheet_Change` event 
     'edit to include if user click cancel or nothing is entered 
     If (errNum = 0) then 
      ActiveSheet.Range("C7").Value = QtyEntry/100 
     End if 
     Excel.Application.enableEvents = True 

    End If 
End Sub 

는 액티브 Checkbox와 함께 사용할 수