답변:
ThisWorkbook 모듈의 Workbook_Open 매크로를 사용하여 다음과 같이 할 수 있습니다.
Private Sub Workbook_Open()
Application.CommandBars.FindControl(ID:=1849).Execute
SendKeys "%(t)%(h)W~{ESC}"
End Sub
그러면 현재 통합 문서의 세션에 맞게 설정됩니다.
이것이 항상 기본값이되도록하려면 개인 매크로 통합 문서 를 작성해야합니다 .
Excel이 스페인어와 같은 경우 작동합니다.
Private Sub Workbook_Open()
Dim lCountryCode As Long
lCountryCode = Application.International(xlCountryCode)
Application.CommandBars.FindControl(ID:=1849).Execute
Select Case lCountryCode
Case 34 'spanish
SendKeys "%(p)%(D)L~{ESC}"
Case Else 'default english
SendKeys "%(t)%(h)W~{ESC}"
End Select
End Sub
홈 리본에서 찾기 / 선택 아이콘을 선택하십시오.
찾기를 클릭하십시오
오른쪽 하단의 "옵션"상자를 클릭하십시오
왼쪽에는 "내부"라는 드롭 다운이 있습니다.
"시트"또는 "워크 북"을 선택하십시오.
이 사이트는 기본값을 변경하는 방법을 설명합니다
다른 답변에서 제안한 Sendkeys 명령은 권장되지 않습니다. 과거의 Sendkeys 명령은 복구를 위해 컴퓨터를 다시 부팅해야하는 매우 예기치 않은 동작을 초래했습니다. 루틴을 로컬로 만들고 필요할 때만 실행하는 것이 좋습니다. 편의상 "q"와 같이 cntl 키를 할당 할 수도 있습니다. 세션 내 균형을 잡기 위해 Workbook Within 옵션이 기억됩니다.
Sub myFind()
Application.CommandBars.FindControl(ID:=1849).Execute
SendKeys "%(t)%(h)W~+{Tab}+{Tab}"
End Sub
나는 비슷한 문제가 있었다. 통합 문서에 버튼이 있습니다. 버튼을 클릭하면 Excel에서 기본 "시트 내"대신 "모든 통합 문서 내 검색"옵션이 선택된 찾기 대화 상자를 열려면 Excel을 원합니다.
또한 버튼이 숨겨 지거나 표시되는 옵션을 고려하고 누군가가 수동으로 변경했는지 여부를 결정하기를 원했습니다. 기본적으로 Excel에는 시작시 옵션이 표시되지 않지만 다음에 누군가 이전에 표시 한 경우 다음에 다시 옵션을 기억하고 다시 표시하기 때문에 까다로울 수 있습니다.
키 입력이 작동하도록하려면 초기 상태에 관계없이 설정을 설정하는 일련의 키 입력이 필요합니다. 꽤 어리석은 생각이 들었지만 작동하는 것을 발견했습니다.
다음은 영어 버전의 Excel 코드이며 다른 언어의 경우 키를 적절히 변경해야합니다.
Sub Commanbutton_Click()
Cells(1, 1).Select
SendKeys "^f", True
SendKeys "{TAB 15}"
SendKeys " ", True
SendKeys "%t%t", True
SendKeys "{TAB 2}", True
SendKeys "{DOWN}{DOWN}{ENTER}", True
SendKeys "%t%t", True
End Sub
수동으로 시도해 볼 수 있습니다.
찾기 대화 상자에서 Ctrl + F를 누릅니다. "옵션"또는 "검색 범위"드롭 다운에 놓 이도록 Tab 키를 15 번 누릅니다.
보도 공간과
1) 옵션이 표시되거나 2) 드롭 다운이 활성화되고 아무 일도 일어나지 않습니다
커서를 찾기 입력 상자로 재설정하려면 Alt + T를 두 번 누르십시오.
Tab 키를 두 번 누르면 이전 단계에서 옵션이 실제로 표시되므로 드롭 다운 내에서 검색으로 이동합니다.
아래쪽 화살표를 두 번 눌러 "워크 북"을 선택하고 ENTER를 눌러 선택하십시오.
ALT + T를 두 번 눌러 커서를 찾기 입력 상자로 다시 재설정하십시오.
이것이 비슷한 문제가있는 다른 누군가를 돕기를 바랍니다. 많은 인터넷 검색은 VBA를 사용하여 "모든 통합 문서 내에서 검색"을 미리 선택할 수는 없다고 말했지만이 방법은 효과적입니다!
다른 언어로 작동하게하려면 언어를 확인하고 CASE를 사용하여 올바른 바로 가기를 사용하여 적절한 루틴으로 전환해야합니다.