Microsoft Excel VBA가 자동으로 사용자 정의 폼에서 확인을 클릭하십시오.

Question

안녕하세요, XmlTools.xla 플러그인을 수정하려고합니다.

사용자 폼이 미리 채워 져야하는 모든 항목과 함께 표시되도록 설정했습니다. 프로그래밍 방식으로 확인 버튼을 클릭하는 방법이 필요합니다. 아래에 표시된 코드 스 니펫에서 보내기 키를 사용해 보았지만 작동하지 않습니다.

Public Sub sbShowForm() 
Application.DisplayAlerts = False 

ActiveSheet.Name = "Sheet555" 

ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Select 
ActiveCell.Name = "lastCell" 

ActiveSheet.Cells(1, 1) = "Is this" 

frmCreateXmlList.Show 
frmCreateXmlList.btnOK_Click 

ActiveSheet.Cells(2, 1) = "called?" 

Application.SendKeys ("{Enter}") 
Application.SendKeys ("{Return}") 

CreateXmlFiles.sbUserFormOKClicked 
Call sbUserFormOKClicked 

Application.DisplayAlerts = True 

frmCreateXmlList.Hide 
End Sub 'sbShowForm 

나는이 요청이 다소 바보 스럽다는 것을 알고 있지만, 양식을 작성하는 것은 "너무 많은 작업"이라고 말하는 사용자 요청을 받았습니다. 나는 SendKeys가 항상 신뢰할만한 것은 아니라는 것을 알고 있지만, 나는 그것을 작동시킬 수있는 것을 찾고 있습니다.

Answer 1

나는 이것을 알아 냈다. 내 송신 키가 작동하지만 사용자 입력이 아닌 활성 워크 시트에 키 입력을 보냈습니다. 사용자 폼 -> 속성 -> ShowModal -> False를 업데이트했습니다.

이 속성을 true로 설정하면 작동하지 않습니다. 또한 키를 사용하는 것보다 더 신뢰할 수 있어야하므로

Call sbUserFormOKClicked 

을 사용하기로 결정했습니다.