디시인사이드 갤러리

갤러리 이슈박스, 최근방문 갤러리

갤러리 본문 영역

이거 어째서 실행이 안되는거임?VBA 독학해서 소리나게 하는거까지 했는데

갤로그로 이동합니다. 2011.11.25 02:36:16
조회 600 추천 0 댓글 4
														

다른사람들이 짜놓은거 보고서 짜집기해서 range같은거만

나한테 맞게 바꾸고 에프5눌렀을때 에러소리 안나고 딱 실행될때 기분 좋은듯

Private Sub Worksheet_Calculate()

 If Range("B2") > Range("D2") Then
Range("D2") = Range("B2")
\'이건 최대값갱신되게 한거고

ElseIf Range("a1") = "1" Then
ExecuteExcel4Macro ("SOUND.PLAY(, ""C:\\start.wav"")")
\'이건 셀값이 1되면 지정한경로 사운드 실행되게 한거  이거 한줄 하는데 일주일정도 걸린듯

ElseIf Range("a1") = "1" Then      <---여기서 막힘
 \'이번에 하려고하는게 1이 출력됬을때 프린트스크린샷키가 눌리게 하는건데. 웹상에 코드 어느것들을 조합해봐도
키가 안눌림 sendkeys 라고 치면 자동완성되는거봐서 저걸로 시작하는거같은데.
실행 안되고 혹시 아스키코드로 입력해야하는건가 해서 다른언어에서 쓰는 키보드 이벤트 프린트 스크린키 코드\'"44"
막 이런식으로도 조합해봤는데. 안됨.   칼무리라는 프로그램 깔아놔서 자동으로 스샷 이미지로 저장되게 해놨는데.
프린트스크린키만 누르면 되는데.
왜 인식을 못하는걸까.

End If

End Sub


==========이 아래는 내가 질문해서 어떤분이 대답해주신거
Option Explicit

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
    
Sub Print_Screen_실행()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard
    Application.SendKeys "{1068}"
    On Error Resume Next
    Do
       DoEvents
       Err.Clear
       ActiveSheet.Paste
    Loop Until Err = 0
End Sub

방법은 조건문에서 조건 충족시 Print_Screen_실행 실행 하시면...!   


이라고까지 답변을 받았는데.

위에 내가 써놓은 코드 어느부분에 어느걸 붙여넣기 해야하는거임?
 전체 다 붙여넣기 해봤는데 가장 윗부분 
Option Explicit

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long

이건 따로 써지고 ----------------------------------이렇게 줄생기고 아랫쪽에 다음코드들이 
붙여넣기됨...;;;;

이거 코드보고 어떻게 해야하는지 아는횽들 있으면 알려줘

추천 비추천

0

고정닉 0

0

댓글 영역

전체 댓글 0
본문 보기

하단 갤러리 리스트 영역

왼쪽 컨텐츠 영역

갤러리 리스트 영역

갤러리 리스트
번호 제목 글쓴이 작성일 조회 추천
설문 연말 모임 가는 곳마다 가장 인싸일 것 같은 스타는? 운영자 25/12/08 - -
AD 루틴 ON! 운동 찐템! 지금 할인 중 운영자 25/11/27 - -
공지 프로그래밍 갤러리 이용 안내 [97] 운영자 20.09.28 48851 65
2906992 하루 한 번 헤르미온느 찬양 [1] 헤르 미온느갤로그로 이동합니다. 09:07 8 0
2906991 알1리 연말감사제 쿠폰코드 총정리 프갤러(211.234) 09:02 7 0
2906987 그걸로 뭐 만들어봤냐고 자꾸 물어보는 이유를 모르는듯 [1] ㅇㅇ갤로그로 이동합니다. 08:36 21 1
2906983 인지과학조져라 손발이시립디다갤로그로 이동합니다. 06:37 23 0
2906977 카지노 슬롯머신 디시? ㄷㄷ ㅇㅇ(124.40) 05:39 17 0
2906976 테슬라 FSD를 쓸 필요가 없는 이유 야옹아저씨갤로그로 이동합니다. 05:38 25 0
2906975 사이드 플젝은 무조건 하는게 낳냐? [1] 프갤러(223.38) 05:20 28 0
2906928 김광규, 40년 만에 생긴 앞머리에 감격 “욘사마 같네” 발명도둑잡기(118.216) 12.07 34 0
2906923 디시 념글 주작 <-- 이건 기술적으로 못막는거냐? [5] ㅇㅇ(223.39) 12.07 84 0
2906922 구글사이트 제작후 도메인 등록과정에서 질문있습니다 [1] 프갤러(203.173) 12.07 41 0
2906921 이게다 ㅆㅇㅆ 때문이다. 프갤러(218.147) 12.07 61 3
2906919 아이폰하나 사고 탈퇴함 ㅇㅇ(119.56) 12.07 24 0
2906917 쿠팡 해킹당한 데이터 [1] 프갤러(218.147) 12.07 44 0
2906913 조진웅 전과에 못지 않은 냥덩이의 죄는? 발명도둑잡기(118.216) 12.07 23 0
2906912 개발만 노베인데 3년 준비해서 중견 취업할수있음? [2] 프갤러(14.40) 12.07 54 0
2906911 8비트 애플 시전 한글 글꼴 발명도둑잡기(118.216) 12.07 31 0
2906909 요즘 뜨는 최상위 전공 학과!/ 프갤러(121.142) 12.07 66 1
2906908 주말에 맥주한잔하면서 들으면 좋은 브금 [4] chironpractor갤로그로 이동합니다. 12.07 36 0
2906907 개발 pm이 제 trade-off인데 조언 가능할까요 [12] 프갤러(125.250) 12.07 71 0
2906906 원씨소년 : 나혼자만담로무사도 환생 세계선 책사풍후zen갤로그로 이동합니다. 12.07 21 0
2906904 물 없이 땅속에서 숨 쉬며 사는 놀라운 물고기가 발견됐다! 발명도둑잡기(118.216) 12.07 27 0
2906902 노무현 대통령이 등장하는 '변호인' _ AI 페이스 스왑 발명도둑잡기(118.216) 12.07 32 0
2906901 디시 게시글 읽어오는 API 나 크롤링 [2] 오마이걸갤로그로 이동합니다. 12.07 68 0
2906900 지금 트리플 모니터 나옵니다. 넥도리아(119.195) 12.07 51 0
2906898 [대한민국] 나경원, 대통령 등 소년기 흉악범죄 의무 공개 법안 발의 ㅇㅇ(121.172) 12.07 28 2
2906897 냥덩이의 비밀❤+ [1] ♥발라당냥덩♥갤로그로 이동합니다. 12.07 82 0
2906896 내가 다크웹으로 결제하는이유 타이밍뒷.통수한방(1.213) 12.07 43 0
2906895 님들....? 1인앱 개발 하고 있는데.. 님들은 테스트 어떻게 함..? [2] 프갤러(220.87) 12.07 69 0
2906894 [단독] 수년간 안 오던 스팸 전화가 온다면?? [2] 나르시갤로그로 이동합니다. 12.07 32 0
2906893 [참고물] AI 기본사회 이후의 경제는 어떻게 이뤄질 것일까?.. [5] +abcd3421갤로그로 이동합니다. 12.07 57 0
2906892 내년부터 실수령 요렇게 줄어든대 ㅇㅅㅇ [17] 가연아갤로그로 이동합니다. 12.07 232 7
2906891 모니터 델이 자꾸 깜빡이는데 dp 케이블이 깜빡이는데 해결방법 Know 넥도리아(119.195) 12.07 32 0
2906890 러스트 egui는 진짜 쓰라고 만든거 맞냐? [4] ㅇㅇ(114.30) 12.07 79 0
2906889 러시아 사람들은 한국인들이 겨울에 춥다고 하는게 이해가 안간다고 함 발명도둑잡기(118.216) 12.07 35 0
2906888 인지과학조져라 손발이시립디다갤로그로 이동합니다. 12.07 68 0
2906887 넷플릭스, 120조원에 워너 브라더스 인수... 영화 시장 대격변 발명도둑잡기(118.216) 12.07 24 0
2906886 쿠팡도 쓴 회피 공식···‘중국인 탓’ 낙인찍는 순간 기업 책임은 가려진 발명도둑잡기(118.216) 12.07 30 0
2906885 걸스데이 유라, 레고로 꽉 채운 집 공개 “더 이상 놔둘 데 없어”(집대 발명도둑잡기(118.216) 12.07 32 0
2906884 대만도 중국어 쓴다? 한국 사람이 한국어 쓰는 것과 의미는 다르다 발명도둑잡기(118.216) 12.07 23 0
2906883 ❤✨☀⭐⚡☘⛩☃나님 시작합니당☃⛩☘⚡⭐☀✨❤ ♥발라당냥덩♥갤로그로 이동합니다. 12.07 72 0
2906882 설마.. 나님이 또 갤 하나를 통째로 망하게 한건강..? [3] ♥발라당냥덩♥갤로그로 이동합니다. 12.07 116 0
2906881 [대한민국] 조진웅 사태 분석 ㅇㅇ(121.172) 12.07 38 0
2906880 쿠팡 비밀번호 유출된거같다 [12] 헬마스터갤로그로 이동합니다. 12.07 121 0
2906879 "생김새는 물론 인생도 노무현" 발명도둑잡기(118.216) 12.07 32 0
2906878 인터프리터언어 쓰면서 테스트 안쓰는 새끼들을 죽여야함 [11] 박민준갤로그로 이동합니다. 12.07 93 0
2906877 비슷한 영화들만 반복되고..티켓값은 오르고.. 발명도둑잡기(118.216) 12.07 24 0
2906876 으아아아 휴가 가고 싶다. [10] cvs.갤로그로 이동합니다. 12.07 51 0
2906875 ◆개발자말고 아버지소개로 트럭정비하는게 맞냐? [5] ㅇㅇ갤로그로 이동합니다. 12.07 81 0
2906874 발명도둑잡기 <- 이 정치병자 갤에서 꺼졌으면 [8] 박민준갤로그로 이동합니다. 12.07 86 3
갤러리 내부 검색
제목+내용게시물 정렬 옵션

오른쪽 컨텐츠 영역

실시간 베스트

1/8

디시미디어

디시이슈

1/2