다른사람들이 짜놓은거 보고서 짜집기해서 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

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

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