감사합니다. 업무에도 힘드실텐데 대단하십니다. 항상 응원 하겠습니다. 행복한 하루 되세요 ^^

감사합니다 ♡♡♡ 2020년 행복한 한해 되시고 복많이 받으세요 ^^

Steve Moon 님 감사합니다. 체계적 이론이 필요하시면 제 유튜브 강의 파트 중 VBA 이론 강의를 보셔도 됩니다. 필요로 하는 강의 주제가 있으시면 댓글 주시면 감사하겠습니다. 행복한 하루 되세요 ^^

감사합니다. 오늘은 어제보다 더 활기찬 하루 , 행복한 하루 되세요. 감사합니다. ^^

감사합니다. 오늘도 행복한 하루 되세요 ^^

감사합니다. 실제 중소기업 혁신팀에서 몸을 담으며 내부 컨설팅을 진행 하고 있습니다. 직장생활에 작은 도움이라도 될 수 있도록 부서별 실무 위주로 준비 할 수 있도록 더욱 더 노력하겠습니다. 늘 행복한 하루 되세요 감사합니다. ^^

감사합니다. ^^ 새해 복 많이 받으시고 늘 행복한 하루 되세요 ^^ ☆☆☆☆☆

감사합니다. 행복한 하루 되세요 ^^

감사합니다 ^^ 행복한 하루 되세요☆☆☆☆☆

안녕하세요 ^^ 진심으로 감사드립니다. 실제 직장인으로서 더 많은 사무실과 현장에서의 살아있는 실전 예제를 준비해서 보답 하겠습니다. 감사합니다. ^^

승환님 감사합니다 오늘도 행복한 하루 되세요^^

감사합니다. 오늘도 파이팅입니다. ^^ ♡♡♡

감사합니다. ^^ 댓글 하나하나에 힘이납니다. 더 좋은 영상을 위해 노력하겠습니다. 행복한 하루 되세요. 진심으로 감사드립니다. ♡♡♡♡♡

Stark Tony 님 감사합니다. 아침에 야구 하고 왔는데 쌀쌀합니다. 건강하고 행복한 주말 되세요 ^^

감사합니다! 병정개미님 무더운 날씨 건강유의하세요^^

네네, 감사합니다 ^^ 행복한 하루 되세요

감사합니다. 댓글에 오늘 저녁 행복하고 힘이납니다. ^^ 더 좋은 실무에 초점 두고 준비 하겠습니다. ♡♡♡ 행복한 하루 되세요 ^^

설명도 너무 잘하시구 진짜 강사하셔도 될꺼같아요 ㅎㅎ!!

네네 김사합니다. 엑셀이 정말 중요합니다. 1년동안 약 100회 정도 엑셀 관련 직원. 임원. 및 심지어 이직자들로부터까지 질문이나 헬프 요청 옵니다. 끝으로 축하드리고 파이팅입니다. ! 행복한 직장생활 되세요 ^^

안녕하세요^^ 언제던지 환영입니다. 행복한 크리스마스 보내세요^^

감사합니다. ^^

안녕하세요 ^^ 새해 복 많이 받으시고 하시는 일 마다 잘 되시는 한해 되세요 감사합니다. ^^

@@dna7 아이쿠 인사가 늦었네요. 새해 복 많이 받으시고 하시는 모든 일 술술 플리시는 한해가 되시길 기원드립니다.

선생님을 만나게 되어 영광이고 감사드립니다. 항상 배우고 노력하시는 선생님이신 것 같아서 아이들에게도 존경 받는 스승님으로 기억 될 것 같습니다. 저희 초등학교 선생님도 항상 공부하시는 모습이 멋있어 보였습니다. 파이팅 입니다.! ^^

감사합니다. ^^ 건강 유의 하시고 행복한 하루 되세요 ~ 더 좋은 실무 컨텐츠로 보답하겠습니다. 감사합니다. ^^

'good job' 님 감사합니다. 행복한 하루 되세요 ^^

감사합니다. 소희님 ^^ 강의 편수가 진행 될 때마다 조금씩 새로운 명령어나 알고리즘 들이 추가 되어가는 방법으로 진행 되어서 큰 어려움 없이 복습효과랑 같이 배우실수 있도록 하고 있습니다. 만일 이론을 동시에 해서 더 빨리 배우고 싶다면 VBA이론편도 같이 보시면 됩니다. 이론편은 한국식 사고 방식으로 제작하고 있습니다. 큰 그림에서 작은 그림으로 들어가도록요 ^^ 지금은 application 부분이고요 다음은 wookbook 그다음은 worksheet , cells/range 등으로 진행 되며 기타 중급과정인 api 등은 초급 과정이 완료되면 진행 됩니다. 처음부터 깊이 알기 보다는 이런것 저런것도 되는 구나 하고 목록을 많이 알고 필요시 깊이 들어가는 방법을 추천합니다. 처음부터 한개 붙잡고 깊이 들어가면 포기 하는 경우도 많고 실제 업무에 사용할 가능성이 없는 부분까지 접근 해서 효율성이 떨어질 수도 있습니다. 물론 저는 머리가 나빠서 ^^ 아무쪼록 김소희님과 구독자. 또는 구독을 하지 않으신 모든 분들이 칼퇴 또는 개인 능력 인정/향상 등 원하시는 목적 달성 하실수 있도록 최선을 다 하겠습니다. 필요로하는 강의나 회사에서 사용 할 프로그램 개발건 혼자 고민하지 마시고 의견주시면 짧게라도 준비해서 작은 실마리라도 드리고 싶습니다. 늘 행복한 하루 되세요 감사합니다. ^^

@@dna7 궁금한게, 사용자폼에 기록한 정보를 입력하여 엑셀 시트에 입력이 된 후에, 다른 정보를 연달아서 기록하고 싶을 경우 셀들을 초기화 하고싶은데. 어느 강의에서 참고할 수 있나요?

@@user-ur3iv5ty7q 엑셀에 있는 셀 값을 지우기 하고 싶다는 말씀이시죠? ^^; 제가 재대로 이해 했는지 모르겠습니다. 아래와 같이 지우고 싶은 셀을 지정한 후, 지울 수 있습니다. Range("O25:X33").Select Selection.ClearContents

@@dna7 제가 설명이 부족했네요. 입사자프로그램 창에서 사번, 이름, 팀명, 입사/퇴직일자를 기입하고 입력완료가되면 DB Sheet내에 정보가 기입되고, 입사자프로그램창에는 여전히 제가 방금 기입했던 내용이 남아있습니다; 한명 기록하고 연달아서 한명을 더 기록하고싶은 경우에는 각 박스에 있는 값을 지운 다음에 다시 입력하여 입력완료를 눌러야하는 번거로움이 있어서요. 초기화 버튼을 하나 만들어서 초기화를 누르면 방금 입력한 텍스트박스 내의 값을 없앨 수 있나 해서요^^;

@김소희 아쿠~ 네네 알겠습니다. 소스 수정해서 파일 자체를 올려 드릴게요 ^^

황골목대장님 반갑습니다. 질문하신 수정하기 추가 기능건입니다. 아래와 같이 하면, 불러오기 후 '수정하기' 기능을 추가 할 수 있습니다. (VBA 실전 01편 (엑셀데이터 입력, 불러오기 - 입사자관리 VBA 1, 2편) kzfaq.info/get/bejne/m59mZ7udlpjHlp8.html 1. 수정하기 버튼을 하나 추가 합니다. (이름: 수정하기) 2. 불러오기를 더블 클릭해서 (실제는 '불러오기_Click()' 부분) Dim k As Integer 를 삭제 합니다. -> 아래 3번과 중복되어 삭제 합니다. 3. Module1 을 더블클릭해서 맨 위쪽에 Public k As Integer 를 추가합니다. -> 핵심입니다. 전역변수로 선언 합니다. 4. 수정하기를 더블 클릭합니다. (실제는 '수정하기_Click()' 부분) 아래 코드를 추가 하면 됩니다. (i 가 아니라, k 입니다.) Worksheets("DB").Cells(k, 2) = 사번 Worksheets("DB").Cells(k, 3) = 이름 Worksheets("DB").Cells(k, 4) = 팀명 Worksheets("DB").Cells(k, 5) = 입사일자 Worksheets("DB").Cells(k, 6) = 퇴직일자 감사합니다. ^^ (사진을 올릴수가 없네요. 커뮤니티에서는 1장 업로드 가능해서 1장 추가 해서 올렸습니다. - 잘 안되시면 다시 댓글 달아 주세요. 영상 촬영해서 토요일에 앞에 요청하신 구독자분 건부터 편집 업로드 후, 올려 드리겠습니다.)

감사합니다. 가르쳐 주신대로 하니 잘 되네요^^ 전역변수가 잘 이해가 되지 않지만, 앞으로도 vba 공부하다 궁금한 사항 생기면 자주 여쭤보겠습니다~~

@@user-ou8xo6cs8j 감사합니다. ^^

가장 간편한 방법으로 맨 위줄을 틀 고정 하시면 됩니다. ^^ 그렇지 않고 코딩을 할려면 조금 복잡 해 집니다. 향후 vba 이론 강의 때 할 예정입니다만, 원하시면 댓글 달아 주시면 간단하게 코딩으로 하는 방법으로 코드를 올려 드리겠습니다.

저도 틀 고정 방법을 생각은 했습니다만, 틀 고정 없이 그런 기능을 실현해 보고 싶어서 여쭤봤습니다~~ 어렵지 않다면 알려주시면 감사하겠습니다

내일 찍어서 올려드릴게요 ^^

@@dna7 번거럽게 해드려 죄송합니다~~ 그리고 고수님 메일 좀 알려주시면 지금까지 조언해 주신 내용에 제 부족한 엑셀 솜씨?를 가미하여 만든 업무자료를 보내드릴테니 냉정한 평가를 부탁드립니다ㅋ

csyy7199@naver.com 입니다. 그리고 고수까진 아닙니다. 일부 구독 자님이 선생님이라고 하시는 것도 부담 스럽습니다. 잘 알지도 못하는데 제가 직장생활하면서 힘들었던걸 생각해서 시작한건데 ^^; 그냥 야매로 하는 강사다라고만 생각해 주세요 ^^ 메일로 보내 주세요 ^^

네 가능합니다. 너무 간단해서 허무하실수도 있겠네요 ^^ Show 뒤에 한칸 띄우고 '0' 을 추가 하면 됩니다. Sub 메인프로그램() 입사자관리프로그램창.Show 0 End Sub

정식으로 보면, Modeless 라고 하며, 엑셀을 사용 가능한 상태입니다. 예제에서는 Show 뒤에 vbModeless 라고 쓰면 됩니다. 또는 Show 0 이라고 해도 동일한 결과입니다. 반대의 경우는 Modal 이라고 하고, 보통의 경우로 디폴트로 지정되어 있어서, 생략 가능합니다. 본래는 Show 뒤에 vbModal 또는 '1' 을 쓰면 됩니다. 생략해도 되고요.

저의 궁금증을 한방에 날려버리시네요ㅎ 감사함다~~덕분에 엑셀 배우는 재미가 솔솔합니다👍

반갑습니다. ^^ integer 로 처음부터 선언 하시면 됩니다. 편집하다가 내용이 삭제 되었습니다. string이라고 썼지만, 실제로는 integer 결과와 동일한 결과가 나옵니다. 본래는 Lucian Kim 님께서 말씀하신것과 같이 integer 라고 명확히 써 주는 것이 맞습니다. 정확히 알고 계시네요. ^^ Lucian Kim 님의 질문에 감사드립니다. 정말 중요한 내용인데, 다시한번 Lucian Kim 님게 진심으로 감사드립니다. 행복한 하루 되세요 ^^ 아래 코드로 비교해 보시면 되겠습니다. Sub a() Dim 숫자 As String '/integer 선언이 맞지만 결과는 동일합니다. Dim 숫자2 As Integer 숫자 = 1 ThisWorkbook.Worksheets(1).Cells(숫자, 1) = "대직장인DNA" 숫자2 = 3 ThisWorkbook.Worksheets(1).Cells(숫자2, 3) = "대직장인DNA" End Sub 숫자 - 문자, 숫자2 -정수

좋은 댓글이네요! 저도 궁금했었습니다 ㅋㅋ 감사합니다.

아래와 같이 수정해 보세요 ^^ Val ( ) 은 아래를 참조 하세요 kzfaq.info/get/bejne/rNqoi8-g1pi2Zqc.html Private Sub 수정하기_Click() Worksheets("DB").Cells(k, 2) = Val(사번) 'Val -> 숫자로 변환입니다. Worksheets("DB").Cells(k, 3) = 이름 Worksheets("DB").Cells(k, 4) = 팀명 If 입사일자 = "" Then Worksheets("DB").Cells(k, 5) = "" Else Worksheets("DB").Cells(k, 5) = CDate(입사일자) 'Date -> 날짜로 형변환입니다. End If If 퇴직일자 = "" Then Worksheets("DB").Cells(k, 6) = "" Else Worksheets("DB").Cells(k, 6) = CDate(퇴직일자) End If End Sub Private Sub 입력완료_Click() Dim i As String Dim 카운트 As Integer 카운트 = Worksheets("DB").Cells(1, 1) i = 카운트 + 1 '//또는 i = [b1].Row + [b1].CurrentRegion.Rows.Count Worksheets("DB").Cells(i, 2) = Val(사번) Worksheets("DB").Cells(i, 3) = 이름 Worksheets("DB").Cells(i, 4) = 팀명 If 입사일자 = "" Then Worksheets("DB").Cells(i, 5) = "" Else Worksheets("DB").Cells(i, 5) = CDate(입사일자) End If If 퇴직일자 = "" Then Worksheets("DB").Cells(i, 6) = "" Else Worksheets("DB").Cells(i, 6) = CDate(퇴직일자) End If 사번 = "" 이름 = "" 팀명 = "" 입사일자 = "" 퇴직일자 = "" End Sub

얼마든지 괜찮습니다. 부담가지지 마시고 댓글 주세요 ^^

@@dna7 정말 감사합니다^^ 머리가 아프긴하지만 엑셀은 배우면 배울수록 신기하고 살아 숨쉬는 생명체 같네요ㅋ

안녕하세요 ^^ 줄간격 방법으로 몇가지 있습니다. 1. 셀서식 - 맞춤 - 텍스트맞춤- 세로 -> 균등 맞춤 (이후 셀의 행 간격 조정) 2. 내용 쓰시고, 한줄 띄우고 (art+enter) 다음 내용 추가 3. VBA 코딩 1) 열 넓이 만큼 내용이 작성 되었는지 확인 MsgBox Worksheets("Sheet1").Columns("A").ColumnWidth 2) 열 넓이 만큼 작성 되었을 경우 자동 엔터 Application.SendKeys "{~}" 도움이 되셨으면 좋겠습니다.

안녕하세요 '은수'님의 의견과 같이 사용해도 좋습니다. 정말 좋은 의견이셔서 제가 감사드립니다. 강의코드 Dim 카운트 As Integer 카운트 = Worksheets("DB").Cells(1, 1) i = 카운트 + 1 '은수'님 의견 i = [b1].Row + [b1].CurrentRegion.Rows.Count -> 같은 결과 입니다. 더 심플 하고 좋습니다. 여기서 Dim 을 사용해서 뒤에서 사용한 이유는 엑셀시트에서 함수를 사용하여 counta 하고, 그 값을 VBA 코드에서 불러 오는 것을 보여 주기 위해서 사용한 것입니다. 또한, VBA 정말 처음이신분이면서 약간 엑셀을 모르시더라도 따라 올 수 있도록 최대한 첫 강을 어렵지 않도록 준비하였습니다. 만약 코드를 사용했다면, 아래 코드를 또 설명을 해야 합니다. (처음 하시는 분에게는 어려울 수 있을 것 같습니다.) currentregion.row.count 은수님과 같은 코딩을 넣으면 어려워 하실 것 같아서 간단히 이해 가도록 하였습니다. 사실 더 심플하지만요.. ^^ '은수'님처럼 실력이 있으신분은 currentregion.row.count 등을 사용해서 바로 기입하셔도 좋습니다. 의견 내용만 봐도, 컴활 1급 꼭 합격 하실 것 같습니다. 합격 기원하고, 응원합니다. !!! 저도 시험 준비에 정신이 없네요 ^^ 행복한 하루 되세요.

그렇군요 답변감사드립니다. 취준생으로 자격증과 실무준비하는데 좋은강의찾다가 들렸는데 설명도이해하기쉽고 좋은강의같네여 좋은강의감사드리고 따봉과 구독누르고갑니다~ 앞으로도 좋은강의 많이부탁드려요!

안녕하세요^^ MS SQL Server에 연결해서 사용 가능합니다. 저는 따로 서버를 구축해서 사용해보진 않았습니다. Access DB 연결만 해봤습니다. 지금은 vb.net으로 코딩 중에 있습니다. 관련해서 좋은 블로그가 있어 링크해 드릴게요. xlworks.net/using_database_in_excel_lec018/ 행복한 하루 되세요 ^^

안녕하세요. 여러 방법들을 찾아보고 있습니다만 우선 윈도우 부터 한번 확인 해 보세요. 윈도우10 한글, 글자 깨짐 해결하기 - gbworld.tistory.com/1359

아닙니다. 이론과 별개 과정입니다. 아마도 제가 영상 마지막에 추천 목록에 있어서 자동으로 나온것 같습니다. 재생목록에 순서대로 정리 해서 올렸습니다. 참조하시면 될 것 같습니다. ~ ^^ 행복한 하루 되세요

@@dna7 네 넘 감사드립니다

안녕하세요 ^^ 파일을 보내 주세요 csyy7199@naver.com

안녕하세요 ^^ 작성하신 파일을 메일로 보내주세요. 확인해 보겠습니다. csyy7199@naver.com

@@dna7친절하신분^^ 보내드렸어요 감사합니다 🙏

다시보냈어용

감사합니다. ^^ ☆☆☆☆☆

@@dna7 어이쿠 정말 저야 말로 감사하죠 그래도 나이는 어리지만 한번 배워 보기로 하고 이강의 보면서 배울려구요

감사합니다. 언제든 코딩중 어려움이 있으면 연락 주세요 ^^ 행복한 밤 되세요 ♡♡♡

@@dna7 넵

안녕하세요 ^^ 해당 TextBox 를 선택하시고, 속성에서 IMEMode 를 '9-fmIMEModeHangulFull' 로 바꾸시면 한글이 입력됩니다.

영상 참조 하세요 ^^ kzfaq.info/get/bejne/gp9ibNmCyMzemJs.html

안녕하세요 ^^ 새해복많이 받으세요 ~ 홈페이지라면 어떤 홈페이지인지 궁금합니다. 홈페이제 주소와 게시판 이름 및 용도를 메일로 부탁 드립니다. csyy7199@naver.com 관심 주셔서 진심으로 감사드립니다. ^^

bokjic.com 복지커뮤니티사이트인데 vba 영상물 링크 가능할지용

메일 보냈습니다

네네 메일 확인 하고, 답장 보내드렸습니다. 단순링크로 사용 하시면됩니다. 추가 내용은 메일 참조 부탁 드립니다. 감사합니다. ^^ 새해 복 많이 받으세요 ^^

대직장인DNA 감사합니다. 영상 잘 쓰겠습니다 새해복 많이 받으세요 ㅎ

안녕하세요 ~ 스트리밍 방송 때 말씀이신가요?

@@dna7 직원 작업창을 유투브 밑에 링크로 걸어둘수 잇나요

입사자관리창 을 링크로 유투브에서 열리게 할수 앗는지요

이해를 제가 못해서 ㅠ 메일로 화면을 설명 부탁 드립니다. csyy7199@naver.com

외부db에 연동된 프로그램 개발 강좌가 있었으면 하는생각이듭니다..

네네 감사합니다. 간단한 DB부터 준비 해 보겠습니다. 예를 들면 엑세스를 DB로 해서 연결하는 정도가 될 것 같습니다. 의견 감사드립니다. 행복한 하루 되세요. ^^

안녕하세요 ~ ^^ 내일은 더욱 더 행복한 하루 되세요 ☆☆☆☆☆ 감사합니다. ^^

안녕하세요 ^^ 오늘도 파이팅입니다. 잠시 쉬는 시간에 창가에 앉아 차 한잔 하시면 좋을 날씨네요. 행복한 하루 되세요^^ ♡♡♡