본문 바로가기

잡동사니

오토핫키-엑셀 텍스트 찾아서 바꾸기.

728x90

스크립트 실행수, 찾을내용과 바꿀내용 입력후 시작을 누른다.

엑셀창에서 찾고 싶은 범위 드래그후 1번을 누르면, 바꿀내용으로 내용이 바뀜.

2번누르면 스크립트 종료.

 

 

Gui, Add, Text,, 찾을 내용
Gui, Add, Text,, 바꿀 내용
Gui, Add, Edit, vAAStart ym 
Gui, Add, Edit, vAAEnd
Gui, Add, Button, default, 시작 
Gui, Show,, 바꾸기
return

1::
x1 := comobjactive("excel.application")
x1.selection.Replace(AAStart,AAEnd)

return

 

GuiClose:
ExitApp

Button시작:
gui, submit
MsgBox, 엑셀창에서 선택후 "1"누르면 변경. 2번누르면 종료.

return

2::exitapp

728x90