잘못된 형식의 이미지 링크입니다.
위 사진 기준
1. 폼 -> 병원내보내기
2. 모듈 -> module8
모듈에 삽입된 VBA로 엑셀파일에 삽입 -> 버튼 -> 버튼에 매크로 적용을 했는데
버튼이 중구난방이고 일체감이 없어 1. 폼으로 만들어 보려고 합니다.
폼에서 각 버튼마다 VBA 구문을 넣으니 적용은 잘 되지만 엑셀파일(작성파일)화면에 넣는 법을 모르겠습니다.
alt + F11 에서 F5 실행할때만 저 버튼들이 보이는데
도형삽입이나. 버튼 삽입한 것 처럼 상시로 보이는 방법은 없을까요?
버튼 클릭하면 폼을 열수 있게
Sub 단추2_Click()
병원내보내기.Show
End Sub
이렇게 만드시거나
Private Sub Worksheet_Activate()
병원내보내기.Show
End Sub
VBA 편집기에서 sheet1 선택 -> (일반)부분을 Worksheet로 선택 -> 옆에 Activate 선택
이렇게 해당 시트 활성화시에 무조건 뜨게 설정하시거나 하시면 될 것 같습니다.
감사합니다. 잘 됩니다.
근데, 원래 이렇게 쓰는게 아닌가 보내요.. 사용자 폼을 띄워두면 엑셀 내용은 먹통이되고 유저폼만 컨트롤이 되네요.
애초에 제가 안되는걸 (엑셀 내용 사용 + 사용자 폼 사용) 하려고 했나보군요 ㅜㅜ
아 저는 아예 엑셀 켜두시면 자동으로 그 폼 내에서 다 처리하시려는줄 알고 그렇게 해놨는데 그게 아니신가보네요.. 죄송합니다..
그러면 그냥 첫번째 방법처럼 엑셀에 버튼 하나 만드시고 그 버튼 클릭하면 되게끔 하시는게 더 편하실 것 같아요.
두번째꺼 적은
Private Sub Worksheet_Activate()
병원내보내기.Show
End Sub
이거는 지워버리세요
첫번째 방법은 결국 한단계 더 걸쳐야 하는거라...
디자인을 좀 더 좋게 하려다 버튼 한번 더 눌러야 할 상황이 되네요 ㅜㅜ
어떻게 작동했으면 하나요?
엑셀 파일이 열리면 자동으로 창이 열리는 정도만 원하시는건가요?
그정도 원하시는거라면 VBA 편집기에서
현재_통합_문서 선택하시고
Private Sub Workbook_Open()
병원내보내기.Show
End Sub
이거 해보세요
결론부터 말씀드리면 사용자폼을 매크로 실행 버튼 (도형이나, 양식컨트롤에서 추가한 버튼)처럼
사용하려고 하는 의도입니다.
현재는 시트1에 피벗테이블과 슬라이서 버튼이 있습니다. (시트2에 원 데이터가 있고요.)
시트2에서 내용을 입력 또는 수정 한다음
시트1에서 피벗테이블 A. 새로고침 -> 해당 병원명 선택 -> B. 매크로 실행버튼을 누릅니다.
A. 새로고침 매크로 버튼 (alt jt fa 를 누르기 귀찮아서 만듦)
B-1 매크로실행 버튼 PC1번에서 사용할때를 위해 저장경로가 다름
B-2 매크로실행 버튼 PC2번에서 사용할때를 위해 저장경로가 다름
위와 같이 3개의 버튼이 있습니다.
삽입 - 양식컨트롤 - 단추(양식컨트롤) 에서 만든 사각형 버튼 3개가 나란히 나열되어 있는데
이 버튼들을 하나로 모아서 깔끔하게 "사용자폼" 처럼 하려고 했는데
사용자폼과
단추(매크로지정한 버튼) 은 용도가 아예 다른것 같네요...
쓰시는 패턴을 보면 엑셀에 버튼을 만들어두시고 거기에 연동하시는게 쓰기에는 더 좋을 것 같습니다.
아무래도 해당 병원명을 선택하고 그래야 하는데 왔다갔다 하기에는 좀 번거로울듯 싶네요
대신 엑셀 시트에서 버튼을 그리실때 alt키를 누르고 그리시면 셀 간격에 맞게 좀더 이쁘게 나옵니다. ㅎㅎ
또 도움이 필요하면 요청드리겠습니다 ^^
이거라도 빨리 해결되야 관련해서 일하시는 분들 좀 다들 편하실거 같아서.. 힘내세요
1. 정기적으로 15개 병원에 해당병원에 맞는 자료를 별도로 만들고
2. 파일명을 식별하기 쉽게 그 병원명으로 생성해서
3. 각 병원 담당자들에게 그 내용을 이메일로 각각 15회 보내기를 해야 합니다.
3-1 발송하는 메일이 공직자 메일이다 보니 아웃룩(아웃룩을 잘 모르지만)이나 좀 쉽게 하는 그런 메일은 못쓸지
3-2 휴대폰 테더링으로 외부망을 써서 Gmail 이나 상용메일을 써서 보낼지
결정해서 위 과정을 매일 해야 하는데
1,2번 어느정도 해결이 되는데
만들어진 3번 단계의 파일명을 인식해서 자동으로 지정된 각 병원 담당자 이메일로 일괄 보내기가 가능할까요?
이런거 구축하다가 해야할일 미뤄지니 그냥 포기하고 노가다로 하게 되긴 하네요 ㅜㅜ
이런게 있는데 일단 아웃룩에 이메일 계정이 등록이 되어야 처리가 가능할 것 같습니다.
공직자 메일이 아웃룩 계정 등록이 가능한지 한번 확인해보시고
외부망 써서 gmail로 해당 엑셀 파일을 보내도 문제가 없는지(보안 등의 문제) 체크 해보시면 좋을 것 같습니다.
아웃룩에 공직자메일 or 개인 계정 등록 -> 엑셀 매크로로 자동으로 이메일 전송(+ 파일첨부)
내용을 보아하니 사용자폼을 띄어놓고 엑셀 작업을 하시는 것을 원하시는 것 같군요.
저도 이것때문에 많이 애먹었어요. 사용자 폼을 load하실 때 아래와 같이 하시면 다른 앱들에서 보시는
도구툴처럼 항상 위에 있고 엑셀 수정도 가능합니다.
Sub 단추2_Click()
병원내보내기.Show vbModeless
End Sub