Delete 키를 눌렀을 때 목록 상자에서 선택한 항목을 삭제하고 싶습니다. 실제로 내 사용자 양식에는 워크 시트의 데이터를 표시하는 목록 상자가 있으며 워크 시트에서 일치하는 전체 행을 삭제 한 다음 목록 상자 업데이트를 수행하는 "삭제"명령 단추가 있습니다. 하지만 키보드의 물리적 인 Delete 키를 사용하여 똑같이하고 싶었습니다. 인터넷에서 많이 검색했지만 아무것도 찾지 못했습니다.
이 시도
Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 46 Then
With Me.ListBox1
If .ListIndex <> -1 Then
If MsgBox("Delete current item?" & vbCrLf & .Value, vbYesNo + vbExclamation, "Delete entry") = vbYes Then
.RemoveItem (.ListIndex)
End If
End If
End With
End If
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다