도움 요청 드립니다..

VBA
작성자
하월시아
작성일
2021-11-09 01:18
조회
65
엑셀버전 : M365

운영체제 : 윈도우10


1. 오빠두엑셀은 여러분과 함께 성장하는 실무자/엑셀 관련 커뮤니티입니다.
여러분께 유익한 정보를 제공해드리기 위해 앞으로도 더욱 노력하겠습니다. 많은 응원과 활동 부탁드립니다.

오빠두엑셀은 언제나 열려있습니다. 엑셀/실무 관련 문제가 생기면 부담없이 들려주세요. 😊 (편하게 답글을 남겨주세요)

  • 너무 감사합니다.
  • 제에겐 신세계 발견입니다..

 


2. 저희 커뮤니티는 '지식공유를 통한 서로의 발전'이라는 선한 목표를 기반으로 운영 중입니다.
게시글 또는 질문을 작성하실 때에 글을 읽고 답변주시는 분의 입장도 같이 고려해 주시길 부탁드리겠습니다.

앞으로도 열심히 활동해주실꺼죠? 😊 (편하게 답글을 남겨주세요)

  • 손가락 닳도록 노력 할께요..

 


⭐️ 홈페이지 이용관련 문의는 자주묻는질문 게시판에서 확인하실 수 있습니다.

🙋‍♂️ 오빠두엑셀의 모든 라이브강의 다시보기 및 엑셀 관련정보를 확인할 수 있는 위캔두 멤버쉽을 오픈하였습니다. 여러분의 후원금 모두는 홈페이지 운영 및 강의 제작에 사용되며, 수익금의 일부는 주변 어려운 아이들을 위해 기부됩니다.

📚 오빠두엑셀에서 제공하는 전체 무료강의 목록을 엑셀파일로 제공해드리고 있습니다. 강의목록은 매 분기마다 업데이트 됩니다.


오빠두엑셀을 이용하시면서 불편했던 점이나 건의사항이 있을경우 관리자 아이디(info@oppadu.com)로 문의해주세요.
여러분의 소중한 의견에 귀 기울이는 오빠두엑셀이 되겠습니다.
회원으로 가입해주셔서 진심으로 감사드립니다.

 

회원등급 : 2레벨
포인트 : 53 EP
총질문 : 2 개 (마감율 : 0%)
채택답변 : 0 개
전체 2

  • 2021-11-09 01:19

    좀... 해결해 주십사..

    하루종일 매달려  넘힘들어요..

    아래와같이 마이크로 에서 가져와 편집했더니..

    한쪽만 실행되네요..

    합리적으로 코드를 고쳐 주시길 부탁, 부탁 드립니다.

    변하는 셀값에 매크로 실행

    Private Sub Worksheet_Calculate()
    '시그널매수입력
    Dim Xrg As Range
    Set Xrg = Range("J42")
    If Not Intersect(Xrg, Range("J42")) Is Nothing Then
    매수입력실행
    End If

    '시그널매도입력

    Set Xrg = Range("K42")
    If Not Intersect(Xrg, Range("K42")) Is Nothing Then
    매도입력실행
    End If
    End Sub

    이코드 제대로 됬는지 검토 요청 할께요...
    질문이 많아서 죄송해요..


  • 2021-11-09 01:23

    '매수매도입력실행 매크로
    Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    '매수증가카운터
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$O$4" Then
    Select Case Target.Value
    Case 1 To 1: 매수증가카운터
    End Select
    End If

    '매도증가카운터
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$O$4" Then
    Select Case Target.Value
    Case -1 To -1: 매도증가카운터
    End Select
    End If

    End Sub

    Private Sub Worksheet_Calculate()
    '시그널매수입력
    Dim Xrg As Range
    Set Xrg = Range("J42")
    If Not Intersect(Xrg, Range("J42")) Is Nothing Then
    매수입력실행
    End If

    '시그널매도입력

    Set Xrg = Range("K42")
    If Not Intersect(Xrg, Range("K42")) Is Nothing Then
    매도입력실행
    End If
    End Sub

     


전체 4,702
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (12)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 807
트로피 오빠두엑셀 2021.10.28 16 807
24347 파워쿼리/피벗
New 질문 있습니다. 파워쿼리에서 Text.Select가 실행이 안됩니다. 첨부파일
railway | 14:34 | 추천 0 | 조회 1
railway 14:34 0 1
24343 파워쿼리/피벗
New 엑셀 파워쿼리 파일병합
min**** | 13:43 | 추천 0 | 조회 13
min**** 13:43 0 13
24339 VBA
New 크롤링 반복 (재질문 입니다) 첨부파일 (1)
하늘의 꿈 | 12:48 | 추천 0 | 조회 10
하늘의 꿈 12:48 0 10
24330 VBA
New 매크로를 원하는 범위에서만 사용하는 방법을 알고싶습니다. 첨부파일 (3) 답변완료
호랑이파워 | 01:37 | 추천 0 | 조회 33
호랑이파워 01:37 0 33
24321 VBA
New 열 나누기 (4)
정미현 | 2021.12.05 | 추천 0 | 조회 33
정미현 2021.12.05 0 33
24317 피벗테이블
New 상품별로 기간 판매량을 구하고 싶습니다 첨부파일 (5) 답변완료
wlfl**** | 2021.12.05 | 추천 0 | 조회 39
wlfl**** 2021.12.05 0 39
24315 함수/공식
New 선택한 2개 열/행의 값의 곱을 구하고 싶습니다. (2)
(알수없음) | 2021.12.05 | 추천 0 | 조회 27
(알수없음) 2021.12.05 0 27
24310 VBA
New 제발 도와주세요 ㅠㅠ 첨부파일 (1)
떠희아빠 | 2021.12.04 | 추천 0 | 조회 59
떠희아빠 2021.12.04 0 59
24307 함수/공식
New 엑셀 초보인데 count 함수 관련 질문 있습니다. 첨부파일 (4)
야기분좋다 | 2021.12.04 | 추천 1 | 조회 31
야기분좋다 2021.12.04 1 31
24305 VBA
New 이문제는 시트를 변수로 지정을 해아하나요?? 첨부파일 (3) 답변완료
어려워 | 2021.12.04 | 추천 0 | 조회 31
어려워 2021.12.04 0 31
24300 VBA
New 떨어져 있는 특정 셀 선택 매크로 (1) 답변완료
제비제비 | 2021.12.04 | 추천 0 | 조회 41
제비제비 2021.12.04 0 41
24293 기능/도구
New 특정행으로 이동하는 문의를 드립니다. 첨부파일 (2)
열공합시다 | 2021.12.04 | 추천 0 | 조회 35
열공합시다 2021.12.04 0 35
24291 VBA
New for 문과 for each문을 보다가 궁금한게있습니다. (1) 답변완료
이치영 | 2021.12.04 | 추천 0 | 조회 37
이치영 2021.12.04 0 37
24289 함수/공식
New 함수좀 알려주세요. 첨부파일 (5) 답변완료
naver_5f055a605ee7d | 2021.12.04 | 추천 0 | 조회 45
naver_5f055a605ee7d 2021.12.04 0 45
24285 VBA
New 파일선택하면 파일명을 클립보드에 넣을수 있을까요? (2) 답변완료
ㅈㄱㄹ | 2021.12.04 | 추천 0 | 조회 30
ㅈㄱㄹ 2021.12.04 0 30
24279 함수/공식
New xfilter 사용조건 중 모두를 검색하는 수식 첨부파일 (4) 답변완료
다우미노 | 2021.12.03 | 추천 0 | 조회 38
다우미노 2021.12.03 0 38
24277 VBA
New 엑셀 화일명 변경 관련 첨부파일 (2)
워싱턴 | 2021.12.03 | 추천 0 | 조회 42
워싱턴 2021.12.03 0 42
24276 함수/공식
New 해당값을 끌고오는 양식? 첨부파일 (1) 답변완료
뚜루루 | 2021.12.03 | 추천 1 | 조회 46
뚜루루 2021.12.03 1 46
24275 VBA
New 병렬로 나열된 자료 일렬로 정렬하는 방법 문의 드립니다. 첨부파일 (2) 답변완료
007 | 2021.12.03 | 추천 0 | 조회 54
007 2021.12.03 0 54
24271 VBA
Sheet 이동시 속성이름을 유지하고 싶어요 첨부파일 (5)
Lucas's | 2021.12.03 | 추천 0 | 조회 34
Lucas's 2021.12.03 0 34
24270 기능/도구
여러가지 수식으로 된 엑셀시트에서 목표값에 맞추기 위한 해 찾기 문의드립니다. 첨부파일 (2) 답변완료
함수시르미 | 2021.12.03 | 추천 1 | 조회 36
함수시르미 2021.12.03 1 36
24262 VBA
불규칙 데이터의 자동채우기 해결방법 (1)
파퍼 | 2021.12.03 | 추천 0 | 조회 51
파퍼 2021.12.03 0 51
24259 함수/공식
계획시트에서 일일실적시트로 일별 데이터 취합방법 문의드립니다. 첨부파일 (3)
skyzza**** | 2021.12.03 | 추천 0 | 조회 43
skyzza**** 2021.12.03 0 43
24253 함수/공식
파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (2)
안녕 | 2021.12.02 | 추천 0 | 조회 34
안녕 2021.12.02 0 34
24252 함수/공식
표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (3) 답변완료
김성환 | 2021.12.02 | 추천 0 | 조회 38
김성환 2021.12.02 0 38
24251 기능/도구
엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 29
thause 2021.12.02 0 29
24249 VBA
모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다 (1)
너의나라 | 2021.12.02 | 추천 0 | 조회 35
너의나라 2021.12.02 0 35
24248 차트/그래프
그래프에서 가로 축 Data 설정하는 법 첨부파일 (1)
Etter | 2021.12.02 | 추천 0 | 조회 37
Etter 2021.12.02 0 37
24245 VBA
아웃룩 이메일 내용에 VBA 변수 넣기 (1) 답변완료
argus | 2021.12.02 | 추천 0 | 조회 39
argus 2021.12.02 0 39
24239 VBA
[초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 41
스캐쳐 2021.12.02 0 41