excel dna
excel dna
  • Видео 519
  • Просмотров 1 092 347
엑셀 필터링 쉽게 하는 방법 (표, 슬라이서 기초)
파일 다운로드 blog.naver.com/csyy7199/223693214998
구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^
후원: 멤버십 채널 가입
ruclips.net/channel/UCaokOdoWCpi-fXYgG8Lxi5Qjoin
직장생활 잘 하는 법 중 하나가 업무효율화입니다
엑셀 매크로, 엑셀 VBA 로 업무효율성을 높여 봅시다 !
1) 실제 업무에서 필요로하는 실전 엑셀 VBA
2) 직장인과 예비 직장인을 위한 엑셀 VBA
유튜브: www.youtube.com/@dna7
유튜브: ruclips.net/user/대직장인DNA
블로그: blog.naver.com/csyy7199
Song: Ikson - Paradise (Vlog No Copyright Music)
Music promoted by Vlog No Copyright Music.
Video Link: ruclips.net/video/glMhD3EU46k/видео.html
Song: powerful-stylish-stomp-rock-lets-go-114255
Music by Marat Mukhamadiev from Pixabay
Video by davidargeta from Pixabay
Video Link: pixabay.com/ko/videos/%EC%86%8C%EA%B0%9C-%EC%95%84%EC%9B%83%ED%8A%B8%EB%A1%9C-%EC%A0%9C%EB%AA%...
Просмотров: 16

Видео

VBA 엑셀 표, 슬라이스를 이용한 월 누적 자동집계
Просмотров 12914 часов назад
파일 다운로드 blog.naver.com/csyy7199/223686330666 구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^ 후원: 멤버십 채널 가입 ruclips.net/channel/UCaokOdoWCpi-fXYgG8Lxi5Qjoin 직장생활 잘 하는 법 중 하나가 업무효율화입니다 엑셀 매크로, 엑셀 VBA 로 업무효율성을 높여 봅시다 ! 1) 실제 업무에서 필요로하는 실전 엑셀 VBA 2) 직장인과 예비 직장인을 위한 엑셀 VBA 유튜브: www.youtube.com/@dna7 유튜브: ruclips.net/user/대직장인DNA 블로그: blog.naver.com/csyy7199 Song: Ikson - Paradise (Vlog No Copyright Music) Music promo...
엑셀 VBA 셀 병합 1초 2편(파일받아 바로 쓰세요)
Просмотров 16721 день назад
파일 다운로드 blog.naver.com/csyy7199/223568132153 구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^ 후원: 멤버십 채널 가입 ruclips.net/channel/UCaokOdoWCpi-fXYgG8Lxi5Qjoin 직장생활 잘 하는 법 중 하나가 업무효율화입니다 엑셀 매크로, 엑셀 VBA 로 업무효율성을 높여 봅시다 ! 1) 실제 업무에서 필요로하는 실전 엑셀 VBA 2) 직장인과 예비 직장인을 위한 엑셀 VBA 유튜브: www.youtube.com/@dna7 유튜브: ruclips.net/user/대직장인DNA 블로그: blog.naver.com/csyy7199 Song: Ikson - Paradise (Vlog No Copyright Music) Music promo...
엑셀 VBA 셀 병합 1초만에 끝내기 1편
Просмотров 23421 день назад
파일 다운로드 blog.naver.com/csyy7199/223663917962 구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^ 다운로드 후, 보안문제로 '제한된 보기 조심하세요 ㅇㅇㅇ 바이러스 가 있을 수 있습니다. ' 문구가 나온다면, 파일 차단 해제부터 해야 합니다. 영상 참조바랍니다. ruclips.net/video/NhzJPuwUlDI/видео.html 후원: 멤버십 채널 가입 ruclips.net/channel/UCaokOdoWCpi-fXYgG8Lxi5Qjoin 직장생활 잘 하는 법 중 하나가 업무효율화입니다 엑셀 매크로, 엑셀 VBA 로 업무효율성을 높여 봅시다 ! 1) 실제 업무에서 필요로하는 실전 엑셀 VBA 2) 직장인과 예비 직장인을 위한 엑셀 VBA 유튜브: www.yout...
엑셀 표를 행 데이터로 변환하기 (index함수)
Просмотров 135Месяц назад
파일 다운로드 blog.naver.com/csyy7199/223653951342 구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^ 후원: 멤버십 채널 가입 ruclips.net/channel/UCaokOdoWCpi-fXYgG8Lxi5Qjoin 직장생활 잘 하는 법 중 하나가 업무효율화입니다 엑셀 매크로, 엑셀 VBA 로 업무효율성을 높여 봅시다 ! 1) 실제 업무에서 필요로하는 실전 엑셀 VBA 2) 직장인과 예비 직장인을 위한 엑셀 VBA 유튜브: www.youtube.com/@dna7 유튜브: ruclips.net/user/대직장인DNA 블로그: blog.naver.com/csyy7199 Song: Ikson - Paradise (Vlog No Copyright Music) Music promo...
엑셀 그림 차트 만들기
Просмотров 153Месяц назад
파일 다운로드 blog.naver.com/csyy7199/223634161613 구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^ 후원: 멤버십 채널 가입 ruclips.net/channel/UCaokOdoWCpi-fXYgG8Lxi5Qjoin 직장생활 잘 하는 법 중 하나가 업무효율화입니다 엑셀 매크로, 엑셀 VBA 로 업무효율성을 높여 봅시다 ! 1) 실제 업무에서 필요로하는 실전 엑셀 VBA 2) 직장인과 예비 직장인을 위한 엑셀 VBA 유튜브: www.youtube.com/@dna7 유튜브: ruclips.net/user/대직장인DNA 블로그: blog.naver.com/csyy7199 Song: Ikson - Paradise (Vlog No Copyright Music) Music promo...
엑셀 차트에 로고, 그림 추가
Просмотров 270Месяц назад
파일 다운로드 blog.naver.com/csyy7199/223626152863 구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^ 후원: 멤버십 채널 가입 ruclips.net/channel/UCaokOdoWCpi-fXYgG8Lxi5Qjoin 직장생활 잘 하는 법 중 하나가 업무효율화입니다 엑셀 매크로, 엑셀 VBA 로 업무효율성을 높여 봅시다 ! 1) 실제 업무에서 필요로하는 실전 엑셀 VBA 2) 직장인과 예비 직장인을 위한 엑셀 VBA 유튜브: www.youtube.com/@dna7 유튜브: ruclips.net/user/대직장인DNA 블로그: blog.naver.com/csyy7199 Song: Ikson - Paradise (Vlog No Copyright Music) Music promo...
엑셀 VBA - 마우스 자동 반복 클릭 (2편 완결, RPA 기본)
Просмотров 1862 месяца назад
파일 다운로드, 다운로드전 구독 꼭 부탁드려요 ^^ blog.naver.com/csyy7199/223616021349 구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^ 후원: 멤버십 채널 가입 ruclips.net/channel/UCaokOdoWCpi-fXYgG8Lxi5Qjoin 직장생활 잘 하는 법 중 하나가 업무효율화입니다 엑셀 매크로, 엑셀 VBA 로 업무효율성을 높여 봅시다 ! 1) 실제 업무에서 필요로하는 실전 엑셀 VBA 2) 직장인과 예비 직장인을 위한 엑셀 VBA 유튜브: www.youtube.com/@dna7 유튜브: ruclips.net/user/대직장인DNA 블로그: blog.naver.com/csyy7199 Song: Ikson - Paradise (Vlog No Copyrig...
엑셀 VBA - 마우스 자동 반복 클릭 (1편 마우스 위치 가져오기, RPA 기본)
Просмотров 5652 месяца назад
파일 다운로드 (누락된 선언 추가) 다운로드전 구독 꼭 부탁드려요 ^^ blog.naver.com/csyy7199/223607113803 코딩 설명에서 누락된 선언이 있습니다. 아래 참조바랍니다. VBA 몰라도 다운로드 사용만 하셔도 됩니다. (구독 후 알림 완결시 2편에서 다운로드 가능) 누락된 선언 설명 선언부분에 누락된 것이 있어 아래 선언을 추가 해 주세요. 블로그에는 추가해서 수정한 파일을 업로드 해 두었습니다. 참고바랍니다. Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer ' ESC 감지용 구독하시면 더 좋은 영상 제작에 도움이 됩니다. ^^ 후원: 멤버십 채널 가입 ruclips.ne...
워라벨, 직장생활 - 다른 업무를 연계하라 (직장생활 잘하는법)
Просмотров 672 месяца назад
워라벨, 직장생활 - 다른 업무를 연계하라 (직장생활 잘하는법)
엑셀 다중조건 값 가져오기 가장 쉬운 방법. vlookup 다중조건
Просмотров 4962 месяца назад
엑셀 다중조건 값 가져오기 가장 쉬운 방법. vlookup 다중조건
엑셀 간트차트 자동 색상 채우기 (프로젝트 일정관리표, 조건부서식)
Просмотров 4353 месяца назад
엑셀 간트차트 자동 색상 채우기 (프로젝트 일정관리표, 조건부서식)
엑셀 품목별 가장 큰 값 MAX, if 동시 사용법, 엑셀 함수, 배열
Просмотров 1693 месяца назад
엑셀 품목별 가장 큰 값 MAX, if 동시 사용법, 엑셀 함수, 배열
엑셀VBA 변수선언 해야하는 이유 (변수명 자동완성)
Просмотров 1233 месяца назад
엑셀VBA 변수선언 해야하는 이유 (변수명 자동완성)
엑셀 서로 다른 사이즈로 병합된 셀별 합계
Просмотров 2344 месяца назад
엑셀 서로 다른 사이즈로 병합된 셀별 합계
엑셀VBA - 2가지 폰트, 사이즈 변경 원클릭에 하기 (Addin) 2편
Просмотров 2185 месяцев назад
엑셀VBA - 2가지 폰트, 사이즈 변경 원클릭에 하기 (Addin) 2편
엑셀VBA - 2가지 폰트, 사이즈 변경 원클릭에 하기 (Addin) 1편
Просмотров 2715 месяцев назад
엑셀VBA - 2가지 폰트, 사이즈 변경 원클릭에 하기 (Addin) 1편
색상 별 개수와 합계 구하기 2편 (엑셀 VBA)
Просмотров 1665 месяцев назад
색상 별 개수와 합계 구하기 2편 (엑셀 VBA)
색상 별 개수와 합계 구하기 1편 (엑셀 VBA)
Просмотров 3005 месяцев назад
색상 별 개수와 합계 구하기 1편 (엑셀 VBA)
엑셀 - 각 항목별 마지막 값 불러오기 (vlookup, sumifs)
Просмотров 2746 месяцев назад
엑셀 - 각 항목별 마지막 값 불러오기 (vlookup, sumifs)
엑셀 필수함수 vlookup (특정값 불러오기)
Просмотров 3037 месяцев назад
엑셀 필수함수 vlookup (특정값 불러오기)
엑셀 각 시트명 자동으로 가져오기 (Cell 정보, Filename, Len, Mid, Find 함수 실전)
Просмотров 6607 месяцев назад
엑셀 각 시트명 자동으로 가져오기 (Cell 정보, Filename, Len, Mid, Find 함수 실전)
엑셀 VBA, ListBox 1시간에 끝내기 (모든 영상모음)
Просмотров 4728 месяцев назад
엑셀 VBA, ListBox 1시간에 끝내기 (모든 영상모음)
엑셀 VBA, TextBox 1시간에 끝내기 (모든 영상모음)
Просмотров 5028 месяцев назад
엑셀 VBA, TextBox 1시간에 끝내기 (모든 영상모음)
사이판 여행 (북부투어 : 새섬, 한국인 위령탑, PIC, 만세절벽), 1~2일차
Просмотров 2468 месяцев назад
사이판 여행 (북부투어 : 새섬, 한국인 위령탑, PIC, 만세절벽), 1~2일차
엑셀 자동화 매크로, VBA 값 넣는 방법 모음
Просмотров 8399 месяцев назад
엑셀 자동화 매크로, VBA 값 넣는 방법 모음
엑셀 기초 배우기 2시간만에 끝내기
Просмотров 7109 месяцев назад
엑셀 기초 배우기 2시간만에 끝내기
엑셀 메모 인쇄 안될 때 (메모 인쇄, 프린트 방법)
Просмотров 3489 месяцев назад
엑셀 메모 인쇄 안될 때 (메모 인쇄, 프린트 방법)
엑셀 VBA ' = ' 의 의미는? (VBA 기초이해)
Просмотров 39310 месяцев назад
엑셀 VBA ' = ' 의 의미는? (VBA 기초이해)
엑셀 필터링 붙여넣기 문제 해결 방법
Просмотров 2,1 тыс.10 месяцев назад
엑셀 필터링 붙여넣기 문제 해결 방법

Комментарии

  • @sukbong-c8q
    @sukbong-c8q 7 дней назад

    안녕하세요 영상 감사드립니다! 너무 도움 많이 받고 있습니다!! 궁금한 점 있는데 답변부탁드립니다ㅠㅠ - A열에서 중복값 찾기 - B열에서 A열의 중복값과 동일한 값 찾아서 중복 수량에 맞춰 B,C열의 값 아래 행 추가 후 동일 값으로 복사하는 법 부탁드려도 될까요.. - ex) A열 중복값 2개 일 때 B,C열 중복값 아래에 1개 행 추가

    • @dna7
      @dna7 6 дней назад

      안녕하세요. csyy7199@naver.com 으로 파일 보내 주실래요?

  • @팔콘-d3f
    @팔콘-d3f 14 дней назад

    감사합니다 ㅠㅠ 덕분에 메모 인쇄 할 수 있게됬네요

    • @dna7
      @dna7 14 дней назад

      행복한 휴일 되세요 ^^

  • @하늘-u9o9w
    @하늘-u9o9w 25 дней назад

    선생님 혹시 삽입을할때 복사한셀삽입으로 행추가할수있게 하려면 어떻게ㅜ해야할까요? 당초변경증감내역서 작업할때 3줄을 만들어야하는데 기존값을 가지고 가야해서요

    • @dna7
      @dna7 24 дня назад

      안녕하세요 예제 파일을 보내 주실래요? csyy7199@naver.com

    • @엄혜찬
      @엄혜찬 15 дней назад

      저도 어려운 위 작업 말고 쉽게 할수 있는방법이

    • @dna7
      @dna7 15 дней назад

      안녕하세요 예제 파일을 보내 주실래요? csyy7199@naver.com

  • @포항시-q7y
    @포항시-q7y 26 дней назад

    어디서부터 봐야할지 모르겠어요 커리쿨럼 알려주세요

    • @dna7
      @dna7 26 дней назад

      재생목록에 있습니다. 초급이시면 ruclips.net/p/PL5UOpMShP0RyDQtiNKQ8R8Bx8vezCfhMi&si=NwtDErYvZdG_tvlc

  • @nunue
    @nunue 27 дней назад

    여러 행을 지정해서 한번에 오름차순(한 행씩)을 적용하고 싶은데, 정렬에서 기준추가를 하고 행을 각각 지정했는데도 정렬이 첫 행만 되는데 방법이 없을까요?

    • @dna7
      @dna7 27 дней назад

      안녕하세요 메일로 파일 보내 주실래요? csyy7199@naver.com

  • @nunue
    @nunue 27 дней назад

    여러 행을 지정해서 한번에 오름차순(한 행씩)을 적용하고 싶은데, 정렬에서 기준추가를 하고 행을 각각 지정했는데도 정렬이 첫 행만 되는데 방법이 없을까요?

    • @dna7
      @dna7 27 дней назад

      안녕하세요 메일로 파일 보내 주실래요? csyy7199@naver.com

  • @신재영-f1f
    @신재영-f1f Месяц назад

    Multiselect가 되면 자동으로 □로 되는 것인가요?

    • @dna7
      @dna7 Месяц назад

      안녕하세요. Liststyle =1 로 하시고 Multiselect=0, 1, 2 로 변경 해 보시면 됩니다. 감사합니다.

  • @신재영-f1f
    @신재영-f1f Месяц назад

    Liststyle에서는 ⊙ ○ 만 있는데 □는 어떻게 하는 것인가요?

    • @dna7
      @dna7 Месяц назад

      안녕하세요 ^^ Multiselect=1 로 설정하시면 ㅁ 이 나타납니다. 감사합니다.

    • @dna7
      @dna7 Месяц назад

      아이콘 모양을 달리 하는 방법 중 하나는, TreeView 를 사용해 볼 수도 있습니다.

    • @dna7
      @dna7 Месяц назад

      트리뷰는 영상 참고 하시면 됩니다. 3편입니다. ruclips.net/video/OrLqkjzAkl0/видео.html

    • @신재영-f1f
      @신재영-f1f Месяц назад

      아 ! 배울수록 빠져듭니다. 내 업무에 크게 적용할 수 있을 것 같습니다.

    • @dna7
      @dna7 Месяц назад

      @@신재영-f1f 감사합니다 ^^ 파이팅입니다!!!

  • @뿐-k2l
    @뿐-k2l Месяц назад

    1행(데이터행)과 2행(데이터행)사이에 100행이상의 데이터행을 삽입해야할 경우 에는 어떻게 합니까?

    • @dna7
      @dna7 Месяц назад

      여러 방법이 있을 수 있겠지만 아래를 참조하시면 될 것 같습니다. 방법1 원하는 만큼 행을 드래그 해서 추가 방법2 VBA 코딩으로 간단히 행 추가(아래코드 참조) Sub 행추가() Dim rowCount As Integer Dim targetRow As Integer ' 사용자가 추가할 행의 수를 입력받음 rowCount = InputBox("추가할 행의 수를 입력하세요:", "행 추가") ' 유효한 숫자인지 확인 If IsNumeric(rowCount) And rowCount > 0 Then ' 선택한 셀의 행 번호 가져오기 targetRow = Selection.Row ' 선택한 위치에 지정된 수량 만큼 행 삽입 Rows(targetRow & ":" & targetRow + rowCount - 1).Insert Shift:=xlDown Else MsgBox "숫자만 넣어 주세요.", vbExclamation End If End Sub

  • @sunnnlove__
    @sunnnlove__ Месяц назад

    최고

    • @dna7
      @dna7 Месяц назад

      감사합니다. ^^ 편안한 밤 되세요

  • @plazma9
    @plazma9 Месяц назад

    선생님 안녕하세요 각 셀에 값들이 랜덤으로 입력되어 있는데 합이 100 이라는 그룹5개를 만들어야합니다. 그 각셀들을 개수에 상관없이 최적으로 추출해서 그 합이 100 이 되게 하거나 100에 근사하게 자동 그룹핑 하려면 어떻게 해야할까요..

    • @dna7
      @dna7 Месяц назад

      안녕하세요 ^^ 예시 파일을 보내 주시면 그 파일을 피드백 드리겠습니다. 설명도 포함해서 넣어 주세요. ^^ csyy7199@naver.com

  • @mino9400
    @mino9400 2 месяца назад

    전지금 여기있습니다!

    • @dna7
      @dna7 2 месяца назад

      @mino9400 wow!!! 즐거운 시간 되세요 ^^

  • @math_dongdong
    @math_dongdong 2 месяца назад

    좋은 강의 감사합니다~

    • @dna7
      @dna7 2 месяца назад

      감사합니다 오늘 주말 행복하세요 ^^

  • @woowonchoung7850
    @woowonchoung7850 2 месяца назад

    좋은 정보 감사합니다, 신바람 채박사님~~~

    • @dna7
      @dna7 2 месяца назад

      깜놀 했습니다. ^^ 늘, 감사 드립니다.

  • @math_dongdong
    @math_dongdong 2 месяца назад

    코드 실행을 하니 GetAsyncKeyState 부분에 형관펜이 그어지면서 서브 또는 펑션이 정의되지 않았습니다.라는 컴파일 오류가 뜨는데 혹시 어떻게 해결가능할까요?

    • @dna7
      @dna7 2 месяца назад

      @math_dongdong 선언 하나가 제가 미스로 빠뜨렸네요. 2편에 다른 모듈에 선언을 해두었는데, 1편에는 선언이 2편 코딩이 빠지면서 에러가 발생했습니다. 수정 파일 다시 블로그에 올려 두었습니다. 감사합니다. ^^ Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer ' ESC 감지용

    • @dna7
      @dna7 2 месяца назад

      선언 하나가 제가 미스로 빠뜨렸네요. 2편에 다른 모듈에 선언을 해두었는데, 1편에는 선언이 2편 코딩이 빠지면서 에러가 발생했습니다. 수정 파일 다시 블로그에 올려 두었습니다. 감사합니다. ^^ Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer ' ESC 감지용

  • @신재영-f1f
    @신재영-f1f 2 месяца назад

    어렵네요. ㅠㅠㅠㅠ 다시 익숙해질 때까지 연습해야겠네요.

    • @dna7
      @dna7 2 месяца назад

      안녕하세요 언제든 댓글 주세요 파이팅입니다.!!!

  • @숙정-h5k
    @숙정-h5k 2 месяца назад

    근데요 페이지가 넘어가는데 어떻게 하나요

    • @dna7
      @dna7 2 месяца назад

      Scroll Lock 확인해 주세요. Scroll Lock이 활성화되어 있으면, 엑셀에서 Shift + Space를 눌렀을 때 페이지가 스크롤되거나 넘어갈 수 있습니다.

    • @dna7
      @dna7 2 месяца назад

      단순히 shift + space 만 했는데, 페이지 다운이 되었다는 건가요?

  • @hostkbg
    @hostkbg 3 месяца назад

    강의 잘 보고 있습니다. 그런데 저는 실행시에 컴파일 오류라고 계속 나옵니다. 프로그랜은 강의 내용과 동일하게 작성하였고 오류내역은 대입의 왼쪽에서 호출하는 함수는 Variant나 Objectt를 반환해야 합니다. 라고 나옵니다. 어쪄하나요?

    • @dna7
      @dna7 3 месяца назад

      안녕하세요 메일로 파일 보내 주실래요? csyy7199@naver.com 입니다.

  • @새옹지마-t8h
    @새옹지마-t8h 3 месяца назад

    안녕하세요 연결주체5.6 에 중복이 되도 카운트가 되려면 어떻게 해야 할까요? / 원하는 시트는 ex) 김소장이 9월12일날 oo현장에서 oo일을함 1공수 이런식입니다

    • @dna7
      @dna7 3 месяца назад

      안녕하세요. 제가 이해를 재대로 했는지 모르겠습니다. 연결주체5에... =TEXT(C4,"YYYYMM") 연결주체6에... =TEXT(C4,"YYYYMM")&"_"&COUNTIF($H$4:H4,H4) 해 보시고 댓글 주세요. 감사합니다. ^^

  • @분꽃나무
    @분꽃나무 4 месяца назад

    찾을 범위 1:18 Array 1. 집합체[모음/무리] 2. 컴. (메모리) 배열 3. (수·기호 등의) 배열 Range 2. (변화·차이의) 범위[폭], -대(臺), -대(帶) 1. 다양성 7. 산맥, 산줄기 찾을 대상 Lookup value 검색, 색인 Text Criteria : 1. 엑셀에서 조건문. 2. 영) criterion의 복수형. criterion 크라이티어리언. (판단이나 결정을 위한) 기준 2. Sumifs 1:15 =Sumifs(sum_range, criteria_range1, criteria1, _) >> Sumifs(합계 범위, 조건문 범위1, 조건문) >> 1:48 criteria_range1, criteria1 : 즉, 여기서는 한국에 있는 공장들의 수량 합계를 구하라. 여러 나라에 공장들이 있고, 그 중에서 한국에 있는 공장만 뽑는 상황이다. 방1) =sumifs(D2:D6,C2:C6,C2) 방2) =sumifs(D2:D6,C2:C6,"Korea") 2:16 3. Sumproduct 2:20 product 수학) 곱 Sumproduct 곱의 합계 함수 설명 2:36 2:45 4. Subtotal 3:02 =Subtotal(function_num, reft, _) 3:05 .

  • @민소-t3n
    @민소-t3n 4 месяца назад

    그 exe파일중에 관리자권한 붙어잇는 파일은 안열리던데 해결법잇나요?

    • @dna7
      @dna7 4 месяца назад

      조금 복잡합니다만, 아래와 같이 하시면 될 것 같습니다. Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As LongPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As LongPtr Sub RunExecutable() Dim exePath As String Dim result As LongPtr ' exe 파일의 경로 exePath = "C:\Program Files\epson\Epson Scan 2\Core\es2launcher.exe" ' 관리자 권한으로 실행 result = ShellExecute(0, "runas", exePath, vbNullString, vbNullString, 1) ' 결과 확인 If result <= 32 Then MsgBox "실행불가. 에러코드: " & result, vbCritical Else MsgBox "실행완료", vbInformation End If End Sub

    • @민소-t3n
      @민소-t3n 4 месяца назад

      @@dna7 와 감사합니다.ㅠㅠ 그럼 혹시 간단하게 Sub 관리자권한() Dim 실행() 실행 = ShellExecute(0,"runas","주소입력,vbNullString,vbNullStrig,1) End Sub 이렇게 해도되는거 아닌가여? 실행만 시키면되니까

    • @dna7
      @dna7 4 месяца назад

      네네 ^^

  • @콩콩이콩이-h8v
    @콩콩이콩이-h8v 4 месяца назад

    그림에 함수가 먹히지 않는데 방법있을까요 2010 입니다

    • @dna7
      @dna7 4 месяца назад

      안녕하세요 메일로 파일 보내 주실래요? csyy7199@naver.com

  • @djflsdl82995
    @djflsdl82995 4 месяца назад

    완전 초보가 해보려니 따라하는 것 조차가 안되네요ㅠㅠ 더 배우고 시청해야 되려나 봐요ㅠㅠ

    • @dna7
      @dna7 4 месяца назад

      안녕하세요^^ 저도 처음에 너무 어려워서 고생했습니다. 언제든 필요하시면 댓글 주시면 해당부분 촬영해서 올려 드리겠습니다. 여름 더위 조심하시고 파이팅입니다.!!!

  • @サバ-l4q
    @サバ-l4q 5 месяцев назад

    이번에 급하게 엑셀 자격증을 딸 예정입니다! 함수가 너무 막혀서 막막했었는데 엄청 유익해요 쌤🥺🥺🥺🥺 시험 당일까지 영상 복습하겠습니다

    • @dna7
      @dna7 5 месяцев назад

      감사합니다 좋은 결과 응원합니다!!!

  • @크리스터-f5y
    @크리스터-f5y 5 месяцев назад

    감사합니다!

    • @dna7
      @dna7 5 месяцев назад

      장마철 안전 유의하시고 행복한 여름 되세요 감사합니다 ^^

  • @dna8114
    @dna8114 5 месяцев назад

    풀버전, 파일 다운로드 주소 ruclips.net/video/W3PPV94yMRc/видео.htmlsi=zaLF28UHkIozoCas

  • @줄리의그림자
    @줄리의그림자 5 месяцев назад

    더운 공기를 외부로 배출 하지 않으면, 제습기 역할을 합니다. 실내 공기 온도는 소비 전력 만큼 높아지고.

  • @jinuchoe343
    @jinuchoe343 5 месяцев назад

    웹페이지에 엑셀 파일을 올려서 불러 올려면 경로 설정을 어떻게 해야 하나요? 감사합니다!!!

    • @dna7
      @dna7 5 месяцев назад

      Sub DownloadAndShowA1Value() Dim FileURL As String Dim DestFile As String Dim objXMLHTTP As Object Dim objADOStream As Object Dim objFSO As Object Dim excelApp As Object Dim workbook As Object Dim cellValue As String ' 파일 URL과 저장할 경로 설정 FileURL = "download.blog.naver.com/open/7fea63d3c29b9b476a8fecdce0027e01a2f60eec92/wC4tLS7OjSVqQTBx1DCFZ7aJBZYIJ7WWOT03DliQZ7DSPutVBHbGqCUXXxapMwZueWPm3fCS79Jf2zhE0j2Sgw/%EC%83%89%EC%83%81%EB%B3%84%20%EA%B0%AF%EC%88%98%EC%99%80%20%ED%95%A9%EA%B3%84%20%EA%B5%AC%ED%95%98%EA%B8%B02.xlsm" DestFile = Environ("TEMP") & "\temp_file.xlsm" ' TEMP 폴더에 파일 저장 ' 파일 다운로드 Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.Open "GET", FileURL, False objXMLHTTP.Send If objXMLHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 ' Binary mode objADOStream.Write objXMLHTTP.responseBody objADOStream.Position = 0 ' Set the stream position to the start ' 파일 시스템 객체를 사용하여 파일 저장 Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(DestFile) Then objFSO.DeleteFile DestFile objADOStream.SaveToFile DestFile, 2 ' adSaveCreateOverWrite objADOStream.Close Else MsgBox "파일 다운로드 실패" Exit Sub End If ' 엑셀 파일 열기 및 A1 셀 값 읽기 Set excelApp = CreateObject("Excel.Application") excelApp.Visible = False Set workbook = excelApp.Workbooks.Open(DestFile) cellValue = workbook.Sheets(1).Range("A7").Value ' 파일 닫기 및 Excel 응용 프로그램 종료 workbook.Close False excelApp.Quit ' 임시 파일 삭제 objFSO.DeleteFile DestFile ' A1 셀 값 메시지 박스로 표시 MsgBox "A1 셀의 값은: " & cellValue End Sub 모듈에 상기 코딩 넣어 주세요. 그리고, 실행하시면 메시지 박스에 A7에 있는 값이 불러와 집니다. 메일주소 주시면 파일 보내드리겠습니다. 그리고, 인터넷상에 있는 파일 예제는 제 블로그에 있는 예제입니다. 아래 참조하시면 될 것 같습니다. blog.naver.com/csyy7199/223487590527 감사합니다. ^^

  • @손삼선
    @손삼선 5 месяцев назад

    사진에테두리없애는법가르켜주세요

    • @dna7
      @dna7 5 месяцев назад

      안녕하세요 ^^ 그림 선택하시면 그림형식이라는 메뉴가 상단에 나타납니다. 그림스타일 메뉴에 그림 테두리가 나옵니다. 클릭후, 윤곽선 없음을 클릭해 주시면 됩니다. 감사합니다. ^^

  • @김민정-t7b8t
    @김민정-t7b8t 5 месяцев назад

    문제 그대로 써서 시나리오 실행해봤더니 다 되는데 결과값이 바뀌지않고 문제의 숫자 그대로네요. 무엇이 문제일까요?

    • @dna7
      @dna7 5 месяцев назад

      안녕하세요 파일 보내주실수 있나요? csyy7199@naver.com 입니다.

    • @김민정-t7b8t
      @김민정-t7b8t 5 месяцев назад

      선생님 답글 감사합니다. 메일 보내드렸습니다.

  • @뜻대로-h6f
    @뜻대로-h6f 5 месяцев назад

    님이 저를 살렸습니다. 생명의 은인이십니다~

    • @dna7
      @dna7 5 месяцев назад

      감사합니다. ^^ 장마가 시작되었습니다. 안전 유의 하시고 건강한 여름 보내세요 ^^ 행복한 하루 ! 파이팅입니다. !!!

  • @singleline4987
    @singleline4987 5 месяцев назад

    강사님 오랜만에 문의 드립니다. 다름 아니오라 강사님이 유듀브 강의하신 재고관리 프로그램에서... 어떤 픔명을 불러와 수량이 10개 였고 오늘 2개 출고로 8개 되겠지요. 출고나 입고 이력관리 별도 히스토리 씨트가 아닌 재고 목록 데이터 수량칸이 옆으로 매일 오늘의 날자 칸이 만들어 지고 제목칸에는 날자, 픔명의 수량에는 (어제 수량에서 오늘 출고 마이너스 량) 기록되게 하는 코딩 방법 좀 알려 줄 수 있나요.? 얘): 수량이 10개에서 출고 2개면 나머지가 현재고

    • @dna7
      @dna7 5 месяцев назад

      안녕하세요 오랜만입니다. ^^ 잘지내시죠? ~,, 엑셀 파일로 보내주실래요? csyy7199@naver.com 입니다.

  • @한대줄께들어기고
    @한대줄께들어기고 5 месяцев назад

    선생님 불러오기에 사번을 검색하면 다른것들이 불러와지는거 처럼 이름을 검색하면 사번하고 다른것들도 불러와지게하고싶은데 방법이 없을까요

    • @dna7
      @dna7 5 месяцев назад

      안녕하세요. 예를 들면 어떤걸 추가로 불러 오고 싶으세요?

    • @한대줄께들어기고
      @한대줄께들어기고 5 месяцев назад

      @@dna7 사번은 불러오기 되지만 추가로 이름하고 연락처도 검색하면 불러오고싶어요

    • @dna7
      @dna7 5 месяцев назад

      @@한대줄께들어기고 안녕하세요 사번으로 불러 올때는 중복되는 경우가 없기 때문에 텍스트 박스만 있으면 됩니다. 그러나, 이름으로 검색시 동명이인이 있을 수 있기 때문에 리스트박스를 사용해야 합니다. 관련 사용 방법은 아래에 있습니다. 참고 하시면 간단히 코딩 가능하십니다. ruclips.net/video/b27xmjrrkY0/видео.htmlsi=1DoNkgXW_a5iPW6n&t=2845 감사합니다. ^^

    • @한대줄께들어기고
      @한대줄께들어기고 5 месяцев назад

      감사합니다!!!💕

  • @허수매-d5x
    @허수매-d5x 6 месяцев назад

    큰 도움 되였습니다😊

    • @dna7
      @dna7 6 месяцев назад

      감사합니다 곧 주말입니다. 행복한 하루 되세요 ^^

  • @user-photostar
    @user-photostar 6 месяцев назад

    헐 대박 꿀팁!!

    • @dna7
      @dna7 6 месяцев назад

      행복한 주말 되세요 ^^ 감사합니다.~

  • @VivaCam
    @VivaCam 6 месяцев назад

    우아~ 잘 보았습니다.^^

    • @dna7
      @dna7 6 месяцев назад

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

  • @VivaCam
    @VivaCam 6 месяцев назад

    우아~ 대단하세요.ㅎㅎㅎ 연습해봐야겠어요. 잘 보았습니다.^^

    • @dna7
      @dna7 6 месяцев назад

      감사합니다 ^^

  • @코코넛-k7o
    @코코넛-k7o 6 месяцев назад

    감사합니다

    • @dna7
      @dna7 6 месяцев назад

      감사합니다 행복한 하루 되세요 ^^ 파이팅입니다!!!

  • @이정민-k8d
    @이정민-k8d 6 месяцев назад

    혹시 수량이 0인 경우가 섞여있는 경우는 어떻게해야하나요???

    • @dna7
      @dna7 6 месяцев назад

      아래와 같이 변경하시면 됩니다. 블로그에 파일 올려 드렸습니다. ^^ blog.naver.com/csyy7199/222992366212 Sub 원하는만큼행추가() Dim 행수 As Long '원하는 행수 Dim i As Integer 'for문 사용용 Application.ScreenUpdating = False '화면 업데이트 중지 행수 = Cells(1, 1).CurrentRegion.Rows.Count '데이터의 전체 행 숫자 For i = 행수 To 2 Step -1 '첫번째 행은 항목으로 제외(가장 아랫쪽행부터 작업 진행 함) If Cells(i, 2).Value <= 1 Then If Cells(i, 2).Value <= 0 Then Cells(i, 2).EntireRow.Delete Else End If Else ' Cells(i, 2).Select ' Cells(i, 2).Resize(Cells(i, 2).Value - 1).Select ' Cells(i, 2).Resize(Cells(i, 2).Value - 1).EntireRow.Select ' Cells(i, 2).Resize(Cells(i, 2).Value - 1).Offset(1).EntireRow.Select Cells(i, 2).Resize(Cells(i, 2).Value - 1).Offset(1).EntireRow.Insert ' Cells(i, 2).Resize(Cells(i, 2).Value - 1).Offset(1).Select Cells(i, 2).Resize(Cells(i, 2).Value).FillDown End If Next i End Sub

    • @이정민-k8d
      @이정민-k8d 6 месяцев назад

      @@dna7 친절한 답변 너무 감사드립니다!!

    • @dna7
      @dna7 6 месяцев назад

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

  • @dna8114
    @dna8114 6 месяцев назад

    ruclips.net/video/K5omrS0M3rY/видео.htmlsi=jPnKpKivowhu6u3M

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다😊

    • @dna7
      @dna7 6 месяцев назад

      감사합니다 ^^

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다😊

    • @dna7
      @dna7 6 месяцев назад

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

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다😊

    • @dna7
      @dna7 6 месяцев назад

      행복한 주말 되세요 ^^

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다.😊

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다.😊

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다.😊

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다😊

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다.😊

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다.😊

    • @dna7
      @dna7 6 месяцев назад

      좋은 하루 되세요!

  • @seyongoh2872
    @seyongoh2872 6 месяцев назад

    감사합니다