엑셀 강의는 최고입니다 특히 초보자 입장에서는 너무 좋습니다 부탁드리고 싶은 것은 파워포인트를 사용하는 사람도 많은데 파워포인트 vba 파워포인트 사용자폼을 강의해 주시면 좋겠습니다 부탁드립니다 도형 서식복사 도형붙여넣기 모든 슬라이드에 등등 파워포인트를 많이 사용하는 분들은 굉장히 필요합니다
틈틈히 강의 듣고 있습니다. 시간되시면 재고관리 강의 한번 올려주세요. 제품번호/코그/년도/타입/제품이름/수량/비고 =엑셀양식 정해진 제품번호....내역 나열되고 출고 ,입고시 수량이 재고사용,재고등록오로 수량증감 별도 셀에 입출고된 제품들을 알 수 있도로 이력관리등등...
안녕하세요! 선생님 명절 잘 보내셨는지요? 새해 복 많이 받으시고 건강하세요^^강의 보다가 질문이 하나 있어 글 남깁니다혹시 테스트 날짜에서 format (date,"yyyy-mm-dd") 오늘 날짜가 입력이 되잖아요?오늘 날짜가 아니라 제가 입력하고 싶은 날짜를 날짜형식으로 나타나게 하고 싶을때는 어떻게 코드를 변형하면 될까요?
인희스프리님도 새해 복 많이 많이 받으세요~^^ 실무에서 내가 입력하고 싶은 날짜로 하고 싶다면, 거의 대부분 특정 셀에 입력된 값을 받아서 코딩하게 될겁니다. 그럴경우...(D1셀에 날짜값이 입력되어 있는 것으로 가정하고) 1. 날짜 서식이 적용되어 있다면, 따로 바꿀게 없이 Me.txt테스트날짜.Value = Sheets("raw").Range("d1").Value 2. 날짜 서식이 적용되어 있지 않고 8자리 문자로 입력되어 있다면(ex. 20190101) Dim r As Range Set r = Sheets("raw").Range("d1") Me.txt테스트날짜.Value = DateSerial(Left(r.Value, 4), Mid(r.Value, 5, 2), Right(r.Value, 2))
너무 멋지고 상세하고 깔끔한 설명 잘 들었습니다. Me가 왜 사용되는지 몰랐는데 알게 됬습니다. 그리고, 이미 입력값을 바꿀 수 있게 사용자폼을 다시 실행하는 창과 그 값이 그대로 표시되기 위해서는 어떻게 하면 될까요? 이미 입력된 셀에서 직접 다시 입력을 하게 되면 강의에서 말씀하신것처럼 형식에 맞지않게 잘못 입력할 수 있을것 같은데요.
안녕하세요, 반갑습니다.^^ 1. 폼에 명령버튼을 하나 더 만들어서 Find메서드로 제품코드를 기준으로 값을 찾아 해당 행의 기존 입력값들을 다시 폼 컨트롤에 뿌리고>유저가 폼 컨트롤에 재입력>입력 버튼을 통해 다시 워크시트 해당 행에 덮어쓰기를 하면 될 것 같습니다. 2. vba를 사용하지 않고 워크시트 해당 열에 데이터 유효성검사를 통해 숫자, 날짜만 입력하도록 설정하는 것도 방법이겠습니다.
선생님 사용자 정의폼으로 등록을 하는걸 하는데요. "저장" 이라는 커맨드버튼을 누르면 "등록번호"라는 텍스트박스가 자동으로 1씩 증가하게 하고싶은데 안됩니다. Private sub 저장_click() N=N+1 Me.등록번호.value = format(n,"000") 이렇게 했는데 안되네요... 뭐가 틀려서 안되는건가요??
값을 주거니 받거니 ..하는 부분이 필요합니다. 아래처럼 해보세요. (아래 코드에서 폼의 이름은 "UserForm" 이므로 만드신 폼의 이름을 확인해서 이름이 다르면 바꾸세요) Private Sub UserForm_Initialize() Me.등록번호 = Format(0, "000") End Sub Private Sub 저장_Click() Dim n As Integer n = Me.등록번호 Me.등록번호.Value = Format(n + 1, "000") n = Me.등록번호 End Sub
안녕하세요. 강의 잘 듣고 있습니다. 저는 이름, 핸드폰번호, 입력시간 이런 자료를 vba를 이용해서 관리하려고 합니다. 그런데 텍스트 입력 형식을 핸드폰번호 입력 형식인 010-2345-3456 이렇게 하는 방법과 입력 시간을 사용자가 입력하지 않고 확인 버튼을 눌렀을 때 확인 버튼을 누른 그 시간을 자동으로 시간입력셀에 저장하게 하는 방법이 있을까요? 폼에는 이름 라벨과 핸드폰번호 라벨만 있고 입력 시간 라벨은 없게 만들고자 합니다. 그리고 입력 버튼이나 취소 버튼을 눌렀을 때 폼이 사라지지 않고 폼은 그대로 있으면서 텍스트 입력란들만 공란으로 되어 처음으로 돌아가게 하는 방법은 없는지요?
가능합니다. 하지만 조금 더 고민해보셔야 할 부분이 있습니다. 웬만하면 폼의 사용 비중은 줄이는게 바람직하다는게 개인적인 생각입니다. 폼은 유저의 다양한 사용행태를 충분히 반영하여 코딩하지 않으면 에러가 발생할 가능성이 높기 때문입니다. 지금은 폼이나 단추(명령버튼) 없이, 이벤트로 가져가는게 제일 효율적이게 보입니다. (이벤트: 특정 시트에서 입력이나 수정 작업이 이루어지면 자동으로 원하는 명령이 실행되도록 설계 가능한 프로시저) 이벤트 프로시저로 샘플을 만들어 볼까요?
@@엑셀디자인 안녕하세요. 제가 준비하던 것은 사용자폼을 항상 띄워 놓고 유저들이 데이터를 입력하면 시트에 차곡차곡 그 데이터들이 쌓여서 저장되게끔 관리하고자 했던 것입니다. 엑셀디자인님께서 작성하신 파일을 필요에 따라 약간 변형하니까 어느 정도는 되는데 마지막 단계에서 막히네요. 확인버튼이나 취소버튼을 눌렀을 때 폼이 사라지지 않고 그대로 있는 것 까지는 했는데 폼의 텍스트 입력란이 공란으로 돌아가게 하는 것은 안되네요. 입력버튼을 누르면 입력한 데이터는 시트에 뿌려지고 폼의 텍스트 상자는 원래의 비워진 상태로 돌아가게 하는 것은 코드를 어떻게 구성해야 가능할까요? 물론 취소버튼을 눌렀을 때도 같았으면 합니다.
반갑습니다 :) 아래 코드를 살펴보시고 실무에 적용해보세요. Private Sub cmd입력_Click() Dim f As Boolean Dim ctl As Control f = True If Me.txt제품코드.Value = "" Then Me.txt제품코드.BackColor = vbMagenta f = False End If If Me.txt결과치.Value = "" Then Me.txt결과치.BackColor = vbMagenta f = False End If If Me.txt테스트날짜.Value = "" Then Me.txt테스트날짜.BackColor = vbMagenta f = False End If If Not f Then Exit Sub 'Me.Hide Sheets("raw").Select Cells(Rows.Count, "a").End(xlUp).Offset(1).Select ActiveCell.Value = Me.txt제품코드.Value ActiveCell.Offset(, 1).Value = Me.txt결과치.Value ActiveCell.Offset(, 2).Value = Me.txt테스트날짜.Value 'MsgBox Me.txt제품코드.Value & "값을" & ActiveCell.Row & "행에 추가함" 'Unload Me For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then ctl.Text = "" End If Next End Sub
안녕하세요:) 댓글은 어제 봤습니다만, 시간을 낼 수가 없어서 이제서야 답변 답니다. 오류난 부분을 아래처럼 수정하시면 정상 작동합니다. Sheets(cmb_Area.Value).Select 그리고 콤보박스에 시트의 이름을 넣는 것은 아래의 코드로 수정하시는 것이 더 효율적입니다. Private Sub UserForm_Initialize() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets Me.cmb_Area.AddItem sh.Name Next End Sub
선생님.너무 쉽고 잼있는 영상 잘봤습니다.^^ 다음주 오프라인 강의도 기대가 됩니다ㅎㅎ 한가지만 문의드리겠습니다 제가 회사에서 쓰는 시트가 하나 있는데 이게 윈도우7때 제동료가 만든거라 32비트입니다. 근데 지금은 회사에서 윈도우10으로 업그레이드 한상태다보니 시트가 안돌아가네요 그래서 수정을 해보고 싶습니다. 조금 힘들겠지만 선생님 강의 잘들으면 가능하겠죠ㅎㅎ 암튼 근데 제가 듣기론 32비트랑 64비트 가 vba명령어가 틀리다고 하던데.. 1) 지금 선생님이 가르쳐주시는게 64비트용이 맞는거죠?? 2) 선생님이 보실때 기존에 있는 코드에 수정하는 작업이 많이 어려울까요?
안녕하세요 :) 벌써 다른 분의 매크로를 리모델링 하는 수준까지 오르셨군요. 멋지십니다!!! 조금 잘못 알고 계신 부분이 있습니다. VBA 코딩 시, 비트 수 체크는 OS가 아니라 엑셀의 비트수를 체크하셔야 합니다. VBA 표준문법은 32bit가 기준입니다. 엑셀 64bit를 쓰는 경우가 굉장히 드문 케이스입니다. 지금 돌아가지 않는 파일은 아마도 시트의 이름, 파일의 복사, 붙여넣기 부분에서 조금 달라진 부분이 있을겁니다. OS를 업그레이드 해도 파일 핸들링과 관련된 아주 드문 몇가지 케이스를 제외하고는 달라지는 부분이 없기 때문입니다. F8키 눌러서 코드 하나씩 살펴보세요. 시간이 걸려도 그렇게 찾아 디버깅 하시면서 실력이 껑충 뛰게 됩니다. 하다 하다 안되면 차주 토요일에 보여주세요^^
안녕하세요, 반갑습니다^^ VBA가 빠르게 워크시트에 작업 내용을 뿌리니까 똑같아 보일뿐입니다. 실행 순서가 조금 다릅니다. 정확히 테스트해보시려면, VBE창에서 Me.hide 앞에 중단점 설정 후>폼에 값 입력>F8키로 한줄씩 실행해 보시면 차이가 있다는게 파악되실 겁니다. Me.hide는 '폼을 숨겨라'라는 뜻이잖아요. 그러니까 영상에서 처럼 워크시트에 값을 뿌리기 전에 hide해도 되고, 구독자님처럼 워크시트에 값을 다 뿌린 후, 메시지박스 나오기 전에 hide 시켜도 괜찮습니다. 개발자 판단하에 UI가 물 흐르듯이 움직이도록 설계하시면 됩니다.
이 채널의 오디오가 많이 약한 다른 영상은 못보셨나 봅니다. 거의 보청기를 끼고 들어야 하는 영상도 있답니다 ㅎㅎㅎㅎㅎ 정확한 영상 번호는 기억이 안나지만 70번대 이후 영상부터는 녹화 프로그램을 바꾸어서 많이 안정화 되었습니다. 모니터링 감사합니다 :) (여러 장비들을 업그레이드할 시점을 기다리고 있습니다)
강사님 문의 드립니다. 69강의 사용자 정의 폼에서 입력완료후 입력이 완료되었다는 메시지 박스 확인하면 폼의 입력란은 비우기 까지는 했는데 다음입력을 위해 제품코드 입력란에 커스가 깜박이게 하는 코딩을 부탁드립니다. Private Sub cmd입력_Click() Sheets("sheet1").Select Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).Select
정말 유익한 강의 감사합니다!! 덕분에 급여대장을 만드는데 많은 도움이 되었습니다. 그런데 한 가지 질문사항이 있습니다. 제가 한 사람당 하나의 시트로 총 50명 분의 시트를 만들어야 하는데요. VBA폼이 적용된 한 개의 원본 시트를 만들어놓고 사람 수 만큼 시트를 복사해서 쓰려고 했습니다. 그런데, 시트를 복사했더니 VBA 폼은 각 시트별로 독립적으로 적용되지 않고 원본 시트에만 적용이 되네요. frm, module도 원본 시트꺼 밖에 없구요... 혹시 VBA도 시트가 복사될때 시트별로 독립적으로 생성되는 기능이 있을까요? 아니면 시트가 복사될 때마다VBA도 일일이 계속 만들어줘야 하나요...?
안녕하세요, 반갑습니다 ~♡ 말씀대로 시트복사를 통해 폼과 모듈은 복사되지 않습니다. 따라서 아래와 같은 방법대로 해보세요. 1. VBE 창 메뉴표시줄 > 보기 > 속성창 2. 프로젝트 탐색기 창 > frm테스트결과 클릭 >우클>파일 내보내기 3. 프로젝트 탐색기 창>기존 frm테스트결과 클릭>속성창>이름 바꾸기(frm홍길동) 4. 프로젝트탐색기 창> 프로젝트 파일 클릭>우클>파일 가져오기>내보냈던 폼 가져오기>속성창에서 이름 바꾸기(frm배영자) 설계하신 급여대장의 로직을 제가 모르기에 아래처럼 전체적인 어드바이스를 드리면... 50명의 폼을 다 따로 만들기보다는 폼 하나에 50명의 이름을 콤보박스로 불러와서 이름 선택 후> 폼에서 각각의 항목 입력 후 > 입력 버튼 클릭하면 > 선택된 사람의 시트로 가서 데이터가 자동 누적입력되도록 설계하시는게 좀 더 효율적이지 않겠습니까?
![엑셀 VBA #70 / 사용자정의 폼_2(기본) [VBA]](http://i.ytimg.com/vi/FRaf__cVzdc/mqdefault.jpg)
![엑셀 VBA #70 / 사용자정의 폼_2(기본) [VBA]](/img/tr.png)
![그 동안 너무나 답답했던, 엑셀 유저폼 디자인의 한계 [완벽 해결!] | 윈도우10 스타일 유저폼 만들기](http://i.ytimg.com/vi/Ms3_zr3R4Y4/mqdefault.jpg)
좋은 강의 내용 감사감사 합니다.
엑셀 강의는 최고입니다 특히 초보자 입장에서는 너무 좋습니다 부탁드리고 싶은 것은 파워포인트를 사용하는 사람도 많은데 파워포인트 vba 파워포인트 사용자폼을 강의해 주시면 좋겠습니다 부탁드립니다 도형 서식복사 도형붙여넣기 모든 슬라이드에 등등 파워포인트를 많이 사용하는 분들은 굉장히 필요합니다
자세하고 눈높이에 맞는
설명 정말 좋습니다. ^^
정겨운 댕댕이소리에
빵 터짐. ㅎㅎ
더 쏙쏙 들어옵니다.
그동안 넘사벽이였던 VBA가
좋아졌습니다.
반갑습니다~~🌷
꾸준히만 가면 그 넘사벽은 무너집니다.
댕댕이 노이즈를 좋게 말씀해주셔서 감사합니다.😃
감사합니다
틈틈히 강의 듣고 있습니다.
시간되시면 재고관리 강의 한번 올려주세요.
제품번호/코그/년도/타입/제품이름/수량/비고 =엑셀양식
정해진 제품번호....내역 나열되고 출고 ,입고시 수량이 재고사용,재고등록오로 수량증감
별도 셀에 입출고된 제품들을 알 수 있도로 이력관리등등...
안녕하세요:)
VBA 91, 94번 영상을 살펴보세요.
원하시는 내용과 비슷합니다.
강의를 잘 따라 왔는데 마지막에 실행을 해 보니 런타임 오류가 났습니다. 스크린 캡쳐 화면을 보내려고 하는데 댓글에서는 사진 전송이 안되네요 ㅠ
너무너무 알기 쉬운 강의 감사드려요!! 정말 많은 도움이 됩니다!
감사 감사합니다~~~🤗
정말 알기 쉽게 설명해주네요. 엑셀 실기 공부하다 보니까 이미 만들어져있는 폼을 수정하는 작업을 하게끔 되어있지, 처음부터 폼을 어떻게 만드는지에 대해서는 설명이 되어있지 않더라고요. 이런 영상을 통해 제 궁금증을 해결해 주셔서 정말 감사합니다.
반갑습니다~
저도 감사드립니다♡
좋은 강의 감사합니다
저도 감사드립니다^^
강의 잘 들었습니다. 감사합니다.
저도 감사드립니다 :D
안녕하세요 엑셀 VBA 유저 폼에 정보를 입력하고 클릭만 하면 자동으로 해당란에 입력이 되는 인보이스 폼을 개발하려고 하는데요 셀을 지정하는데 상당히 어려움을 느끼고 있습니다. 제가 정보를 넣고 싶은 셀을 좀 더 편하게 설정할 수 있는 방법은 없나요??
강의 감사합니다.
질문이 있습니다.
폼을 띄워놓으면 셀 선택이 되지 않는데, 폼을 띄워 놓고 엑셀을 사용할 수 있는지요
강의 잘보고 있습니다.질문이 하나있는데요.
예를 들어 입력을 한 100개 정도 한다고 하면 폼이 실행중일때 엑셀화면에 보여주는게 한페이지 분량만 보이는데..입력을 했을때 엑셀에 써지는 행을 보고 싶은데 이건 자동으로 못넘기나요?
죄송해요 user form 이름정의를 하는데 자꾸 허가된 개체 이름이 아니라고 하는데 어떤문제 인지 좀 알려주시면 감사 하겠습니다.
감사합니다.
강의 감사합니다. 질문이 하나 있습니다. 마지막 text컨트롤의 입력후 enter를 첬을 경우 커맨드 버튼 클릭과 같은 효과를 내려면 어떻게해야하나요. 버튼을 클릭하려면 키보드와 마우스를 오가야해서
VBE창 > 좌측 프로젝트 탐색기 창 > 속성창 > command button의 여러 속성 중 >
Default 속성을 True로 바꾸어 주시면 됩니다.
사용자정의폼을 만들어 실행을 시켰더니 라고 메세지 뜨는데 이것은 어떻게 해결해야 하는지요?? 가르쳐주시면 감사하겠습니다.
혹시 사용하고 계신 엑셀(OS말고)이 32bit인지
64bit인지 확인해보세요.
입력값에 숫자를 입력시 100을 입력하고 입력버튼을 누르면 -100입력 되게하려면 어떤 방법이있을까요?
""(double quote)와 &(문자열 연산자)를 활용하시면 됩니다.
range("a1") = "-" & me.txt숫자.value
어제 답글 달았는데 댓글과 답글들이 이틀째 계속 사라지는 버그가 나타나고 있습니다. ㅜ.ㅜ
@@엑셀디자인 감사합니다 ^^
안녕하세요! 선생님 명절 잘 보내셨는지요? 새해 복 많이 받으시고 건강하세요^^강의 보다가 질문이 하나 있어 글 남깁니다혹시 테스트 날짜에서 format (date,"yyyy-mm-dd") 오늘 날짜가 입력이 되잖아요?오늘 날짜가 아니라 제가 입력하고 싶은 날짜를 날짜형식으로 나타나게 하고 싶을때는 어떻게 코드를 변형하면 될까요?
인희스프리님도 새해 복 많이 많이 받으세요~^^
실무에서 내가 입력하고 싶은 날짜로 하고 싶다면, 거의 대부분 특정 셀에 입력된 값을 받아서 코딩하게 될겁니다.
그럴경우...(D1셀에 날짜값이 입력되어 있는 것으로 가정하고)
1. 날짜 서식이 적용되어 있다면, 따로 바꿀게 없이
Me.txt테스트날짜.Value = Sheets("raw").Range("d1").Value
2. 날짜 서식이 적용되어 있지 않고 8자리 문자로 입력되어 있다면(ex. 20190101)
Dim r As Range
Set r = Sheets("raw").Range("d1")
Me.txt테스트날짜.Value = DateSerial(Left(r.Value, 4), Mid(r.Value, 5, 2), Right(r.Value, 2))
반드시 Sheets("직원").select 형으로 해야하나요?
Sheet1.select 로 하면 error가 납니다.
사용자가 시트 이름을 변경하면 곤란해서요. ㅠㅠㅠ
Me.hide 가 빠졌네요.
ㅠㅠㅠㅠ
너무 멋지고 상세하고 깔끔한 설명 잘 들었습니다. Me가 왜 사용되는지 몰랐는데 알게 됬습니다.
그리고, 이미 입력값을 바꿀 수 있게 사용자폼을 다시 실행하는 창과 그 값이 그대로 표시되기 위해서는 어떻게 하면 될까요?
이미 입력된 셀에서 직접 다시 입력을 하게 되면 강의에서 말씀하신것처럼 형식에 맞지않게 잘못 입력할 수 있을것 같은데요.
안녕하세요, 반갑습니다.^^
1. 폼에 명령버튼을 하나 더 만들어서
Find메서드로 제품코드를 기준으로 값을 찾아
해당 행의 기존 입력값들을 다시 폼 컨트롤에 뿌리고>유저가 폼 컨트롤에 재입력>입력 버튼을 통해 다시 워크시트 해당 행에 덮어쓰기를 하면 될 것 같습니다.
2. vba를 사용하지 않고
워크시트 해당 열에 데이터 유효성검사를 통해 숫자, 날짜만 입력하도록 설정하는 것도 방법이겠습니다.
방금 문의하신 내용 관련하여
자료를 만들어 링크 걸어 두었습니다.
살펴보세요.
blog.naver.com/engelmm/221635111641
@@엑셀디자인 엑셀 디자인님. 저가 금방 engelmm@naver.com로 메일을 보냈습니다. 저가 원하는 것은 좀 더 복잡합니다. 상세히 설명드릴수 있으면 좋겠네요...
선생님 사용자 정의폼으로 등록을 하는걸 하는데요.
"저장" 이라는 커맨드버튼을 누르면
"등록번호"라는 텍스트박스가 자동으로 1씩 증가하게 하고싶은데 안됩니다.
Private sub 저장_click()
N=N+1
Me.등록번호.value = format(n,"000")
이렇게 했는데 안되네요...
뭐가 틀려서 안되는건가요??
값을 주거니 받거니 ..하는 부분이 필요합니다.
아래처럼 해보세요.
(아래 코드에서 폼의 이름은 "UserForm" 이므로
만드신 폼의 이름을 확인해서 이름이 다르면 바꾸세요)
Private Sub UserForm_Initialize()
Me.등록번호 = Format(0, "000")
End Sub
Private Sub 저장_Click()
Dim n As Integer
n = Me.등록번호
Me.등록번호.Value = Format(n + 1, "000")
n = Me.등록번호
End Sub
안녕하세요. 강의 잘 듣고 있습니다. 저는 이름, 핸드폰번호, 입력시간 이런 자료를 vba를 이용해서 관리하려고 합니다. 그런데 텍스트 입력 형식을 핸드폰번호 입력 형식인 010-2345-3456 이렇게 하는 방법과 입력 시간을 사용자가 입력하지 않고 확인 버튼을 눌렀을 때 확인 버튼을 누른 그 시간을 자동으로 시간입력셀에 저장하게 하는 방법이 있을까요? 폼에는 이름 라벨과 핸드폰번호 라벨만 있고 입력 시간 라벨은 없게 만들고자 합니다. 그리고 입력 버튼이나 취소 버튼을 눌렀을 때 폼이 사라지지 않고 폼은 그대로 있으면서 텍스트 입력란들만 공란으로 되어 처음으로 돌아가게 하는 방법은 없는지요?
가능합니다.
하지만 조금 더 고민해보셔야 할 부분이 있습니다.
웬만하면 폼의 사용 비중은 줄이는게 바람직하다는게 개인적인 생각입니다.
폼은 유저의 다양한 사용행태를 충분히 반영하여 코딩하지 않으면 에러가 발생할 가능성이 높기 때문입니다.
지금은 폼이나 단추(명령버튼) 없이, 이벤트로 가져가는게 제일 효율적이게 보입니다.
(이벤트: 특정 시트에서 입력이나 수정 작업이 이루어지면 자동으로 원하는 명령이 실행되도록 설계 가능한 프로시저)
이벤트 프로시저로 샘플을 만들어 볼까요?
@@엑셀디자인 네 꼭 폼이 아니더라도 자료 관리가 가능하다면 형식은 상관없을 거 같습니다
@@엑셀디자인 안녕하세요. 제가 준비하던 것은 사용자폼을 항상 띄워 놓고 유저들이 데이터를 입력하면 시트에 차곡차곡 그 데이터들이 쌓여서 저장되게끔 관리하고자 했던 것입니다. 엑셀디자인님께서 작성하신 파일을 필요에 따라 약간 변형하니까 어느 정도는 되는데 마지막 단계에서 막히네요. 확인버튼이나 취소버튼을 눌렀을 때 폼이 사라지지 않고 그대로 있는 것 까지는 했는데 폼의 텍스트 입력란이 공란으로 돌아가게 하는 것은 안되네요. 입력버튼을 누르면 입력한 데이터는 시트에 뿌려지고 폼의 텍스트 상자는 원래의 비워진 상태로 돌아가게 하는 것은 코드를 어떻게 구성해야 가능할까요? 물론 취소버튼을 눌렀을 때도 같았으면 합니다.
@@cinecite 방금 올린 vba_86번 영상을 살펴보세요. 이벤트 프로시저로 작성된 매크로입니다. 설계하신 폼의 컨트롤에 필요한 소스를 넣으시면 되겠습니다.
@@엑셀디자인 감사합니다. 열심히 보고 있습니다.
늦은 공부지만 잘보고 따라하고있습니다. 질문좀 하려구요. 예제하고 좀 다른부분인데 폼에 모두 입력하고 완료하면 폼에 다시정보를 입력해야해서 폼이 비워져야하는데 이건어떻게 해야하는지요?
예제에서는 입력완료후 입력창이 숨겨지는데 저는 자료입력을 게속하려면 입력확인누르고 자료가 입력완료후 입력창이 사라지지않고 빈입력창이 남아있어야합니다.
반갑습니다 :)
아래 코드를 살펴보시고 실무에 적용해보세요.
Private Sub cmd입력_Click()
Dim f As Boolean
Dim ctl As Control
f = True
If Me.txt제품코드.Value = "" Then
Me.txt제품코드.BackColor = vbMagenta
f = False
End If
If Me.txt결과치.Value = "" Then
Me.txt결과치.BackColor = vbMagenta
f = False
End If
If Me.txt테스트날짜.Value = "" Then
Me.txt테스트날짜.BackColor = vbMagenta
f = False
End If
If Not f Then Exit Sub
'Me.Hide
Sheets("raw").Select
Cells(Rows.Count, "a").End(xlUp).Offset(1).Select
ActiveCell.Value = Me.txt제품코드.Value
ActiveCell.Offset(, 1).Value = Me.txt결과치.Value
ActiveCell.Offset(, 2).Value = Me.txt테스트날짜.Value
'MsgBox Me.txt제품코드.Value & "값을" & ActiveCell.Row & "행에 추가함"
'Unload Me
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
ctl.Text = ""
End If
Next
End Sub
@@엑셀디자인 빠른답변 감사합니다. 따라해볼께요^^
@@엑셀디자인 감사합니다.
잘 해결되었습니다.
선생님 질문 있습니다! 폼을 사용해서 입력을 할때 입력할 시트를 콤보박스로 선택하고 입력하고 싶은데요. 자꾸 에러가 뜹니다
Private Sub UserForm_Initialize()
Dim A As Worksheet
Set A = Sheets("A")
Dim B As Worksheet
Set B = Sheets("B")
Dim C As Worksheet
Set C = Sheets("C")
Dim D As Worksheet
Set D = Sheets("D")
Dim E As Worksheet
Set E = Sheets("E")
cmb_Area.AddItem "A"
cmb_Area.AddItem "B"
cmb_Area.AddItem "C"
cmb_Area.AddItem "D"
cmb_Area.AddItem "E"
End Sub
A~E라는 시트는 이미 만들어져있고 이걸 입력폼의 콤보박스에서 선택한 후 입력버튼을 눌렀을 때 선택한 시트에 입력한 데이터가 뿌려지게 하고 싶은데요.
Private Sub cmd_New_Click()
Sheets(cmb_Area).Select
안녕하세요:)
댓글은 어제 봤습니다만, 시간을 낼 수가 없어서 이제서야 답변 답니다.
오류난 부분을 아래처럼 수정하시면 정상 작동합니다.
Sheets(cmb_Area.Value).Select
그리고
콤보박스에 시트의 이름을 넣는 것은
아래의 코드로 수정하시는 것이 더 효율적입니다.
Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
Me.cmb_Area.AddItem sh.Name
Next
End Sub
@@엑셀디자인 오! 이제야 되네요! 답변 감사합니다!!!
선생님.너무 쉽고 잼있는 영상 잘봤습니다.^^
다음주 오프라인 강의도 기대가 됩니다ㅎㅎ
한가지만 문의드리겠습니다
제가 회사에서 쓰는 시트가 하나 있는데 이게 윈도우7때 제동료가 만든거라 32비트입니다.
근데 지금은 회사에서 윈도우10으로 업그레이드 한상태다보니 시트가 안돌아가네요
그래서 수정을 해보고 싶습니다.
조금 힘들겠지만 선생님 강의 잘들으면 가능하겠죠ㅎㅎ
암튼 근데 제가 듣기론 32비트랑 64비트 가 vba명령어가 틀리다고 하던데..
1) 지금 선생님이 가르쳐주시는게 64비트용이 맞는거죠??
2) 선생님이 보실때 기존에 있는 코드에 수정하는 작업이 많이 어려울까요?
안녕하세요 :)
벌써 다른 분의 매크로를 리모델링 하는 수준까지 오르셨군요. 멋지십니다!!!
조금 잘못 알고 계신 부분이 있습니다.
VBA 코딩 시, 비트 수 체크는 OS가 아니라 엑셀의 비트수를 체크하셔야 합니다. VBA 표준문법은 32bit가 기준입니다. 엑셀 64bit를 쓰는 경우가 굉장히 드문 케이스입니다.
지금 돌아가지 않는 파일은 아마도 시트의 이름, 파일의 복사, 붙여넣기 부분에서 조금 달라진 부분이 있을겁니다. OS를 업그레이드 해도 파일 핸들링과 관련된 아주 드문 몇가지 케이스를 제외하고는 달라지는 부분이 없기 때문입니다.
F8키 눌러서 코드 하나씩 살펴보세요.
시간이 걸려도 그렇게 찾아 디버깅 하시면서 실력이 껑충 뛰게 됩니다.
하다 하다 안되면 차주 토요일에 보여주세요^^
강의 감사합니다. VBA 비밀노트(시즌2)책을 구입하고 싶은데 교보문고에서만 구입할 수 있나요?
아무 생각이 없었는데...
문의주셔서 알라딘, 반디앤루니스, 인터파크에서 검색해보니 모두 안됩니다.
POD 도서이다 보니
주문이 있을 시, 교보퍼플에서 제작에 들어가므로
교보문고에서만 주문이 가능한 구조입니다.
문의주셔서 감사합니다~~ :D
똑같이 따라하는데 취소까지는 되는데 입력에서 계속 에러가뜨네요. 무엇이 잘못되엇을까요? 가르쳐주세요 ^^
끈기가 대단하십니다!!!
방금 자료 링크를 올렸습니다.
자료 다운로드 받으셔서 작성하신 코드와 비교해보세요.
아마도 아주 미미한 곳에서 오타가 있으셨을 겁니다.
me.hide의 위치..
엑셀 디자인님,
hide의 위치를 어떤 기준으로 코딩해야하는지요?
msgbox 바로 앞에 두어도 같은 결과이던데..
기준이 있는지?
성의있는 답변에 감사드립니다^^
안녕하세요, 반갑습니다^^
VBA가 빠르게 워크시트에 작업 내용을 뿌리니까 똑같아 보일뿐입니다. 실행 순서가 조금 다릅니다.
정확히 테스트해보시려면,
VBE창에서 Me.hide 앞에 중단점 설정 후>폼에 값 입력>F8키로 한줄씩 실행해 보시면 차이가 있다는게 파악되실 겁니다.
Me.hide는 '폼을 숨겨라'라는 뜻이잖아요.
그러니까 영상에서 처럼
워크시트에 값을 뿌리기 전에 hide해도 되고,
구독자님처럼 워크시트에 값을 다 뿌린 후, 메시지박스 나오기 전에 hide 시켜도 괜찮습니다. 개발자 판단하에 UI가 물 흐르듯이 움직이도록 설계하시면 됩니다.
다른 영상에 비해 오디오가 좀 약한 것 아닌가요?
이 채널의 오디오가 많이 약한 다른 영상은 못보셨나 봅니다.
거의 보청기를 끼고 들어야 하는 영상도 있답니다 ㅎㅎㅎㅎㅎ
정확한 영상 번호는 기억이 안나지만
70번대 이후 영상부터는 녹화 프로그램을 바꾸어서 많이 안정화 되었습니다.
모니터링 감사합니다 :)
(여러 장비들을 업그레이드할 시점을 기다리고 있습니다)
강사님 문의 드립니다.
69강의 사용자 정의 폼에서 입력완료후 입력이 완료되었다는 메시지 박스 확인하면 폼의 입력란은 비우기 까지는 했는데
다음입력을 위해 제품코드 입력란에 커스가 깜박이게 하는 코딩을 부탁드립니다.
Private Sub cmd입력_Click()
Sheets("sheet1").Select
Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Me.txt제품코드.Value
ActiveCell.Offset(0, 1).Value = Me.txt결과치.Value
ActiveCell.Offset(0, 2).Value = Me.txt테스트날자.Value
MsgBox Me.txt제품코드 & "값이 " & ActiveCell.Row & "행에 입력되었습니다"
Me.txt제품코드.Value = ""
Me.txt결과치.Value = ""
Me.txt테스트날자.Value = ""
Me.txt제품코드.SelStart '입력후 다음 입력을 위해 제품코드란에 커스가 대기
("요기 알고싶어요!")
End Sub
Me.txt제품코드.SetFocus
라고 코딩해보세요.
장기갑님의 이 댓글 또한
폰에서는 안보였는데, 노트북으로 이제서야 보았습니다.
답변 기다리다 목이 빠지셨겠습니다. ㅜ.ㅜ
@@엑셀디자인 감사합니다.
정말 유익한 강의 감사합니다!! 덕분에 급여대장을 만드는데 많은 도움이 되었습니다.
그런데 한 가지 질문사항이 있습니다.
제가 한 사람당 하나의 시트로 총 50명 분의 시트를 만들어야 하는데요. VBA폼이 적용된 한 개의 원본 시트를 만들어놓고 사람 수 만큼 시트를 복사해서 쓰려고 했습니다. 그런데, 시트를 복사했더니 VBA 폼은 각 시트별로 독립적으로 적용되지 않고 원본 시트에만 적용이 되네요. frm, module도 원본 시트꺼 밖에 없구요...
혹시 VBA도 시트가 복사될때 시트별로 독립적으로 생성되는 기능이 있을까요?
아니면 시트가 복사될 때마다VBA도 일일이 계속 만들어줘야 하나요...?
안녕하세요, 반갑습니다 ~♡
말씀대로 시트복사를 통해 폼과 모듈은 복사되지 않습니다. 따라서 아래와 같은 방법대로 해보세요.
1. VBE 창 메뉴표시줄 > 보기 > 속성창
2. 프로젝트 탐색기 창 > frm테스트결과 클릭 >우클>파일 내보내기
3. 프로젝트 탐색기 창>기존 frm테스트결과 클릭>속성창>이름 바꾸기(frm홍길동)
4. 프로젝트탐색기 창> 프로젝트 파일 클릭>우클>파일 가져오기>내보냈던 폼 가져오기>속성창에서 이름 바꾸기(frm배영자)
설계하신 급여대장의 로직을 제가 모르기에 아래처럼 전체적인 어드바이스를 드리면...
50명의 폼을 다 따로 만들기보다는
폼 하나에 50명의 이름을 콤보박스로 불러와서 이름 선택 후> 폼에서 각각의 항목 입력 후 > 입력 버튼 클릭하면 > 선택된 사람의 시트로 가서 데이터가 자동 누적입력되도록 설계하시는게 좀 더 효율적이지 않겠습니까?
폼여는 단추는 어떻게 만드나요
안녕하세요:)
영상의 10:35초 부터 보시면
폼실행 매크로 버튼 생성 설명이 나옵니다.
@@엑셀디자인 감사합니다
선생님 저는 ALT+F11을눌러도 VBE가 안켜져요 ㅜㅜ 그래서 매번 개발도구를 직접 클릭하여서 실행하는데, 이유를 아실까용??
혹시 노트북을 쓰시나요?
만약 그렇다면, 노트북 키보드 우측 상단을 보시면
'Fn Lock'키에 불이 켜져있는지 살펴보세요. 불이 꺼져있어야 합니다. 꺼져있는 상태에서 'Alt+F11'을 눌러야 합니다.
이 문제가 아니라면
다시 알려주세요.
@@엑셀디자인 노트북이 아니라 데스크탑인데도 그래요 ㅜㅜ.
감사합니다.