↑맨위로 ↓맨아래

재능iN 월간최다 재능기부 회원

  • 필농군 채택재능수 (77)
  • 스카이큐브 채택재능수 (40)
  • 대다리맥주 채택재능수 (10)
  • 청년회장 채택재능수 (7)
  • 소류켄 채택재능수 (2)
  • 그까이꺼뭐라고 채택재능수 (2)
  • 오파운드 채택재능수 (1)
  • 립반윙클 채택재능수 (1)
  • 뉴윈도 채택재능수 (1)
       
    [문서작업]

    VBA 위치관련 엑셀 작업입니다.

    글쓴이 : 모진놈 날짜 : 2020-01-26 (일) 22:18 조회 : 684
    test.xlsm (55.6K), 2020-01-26 22:18:32

    VBA 관련해서 도움을 받아서 만든 문서입니다.


    원본에 적용해서 할려고 하니 언어는 모르고 친절하게 고치는 설명까지 해 주셨는데


    여러번 수정을 해서 해 보았지만 도저히 안되어서 문의합니다.


    자세한 설명은 첨부파일에 있습니다. 


    감사합니다.

    요청자가 자신의 1000포인트를 걸었습니다. 요청이 채택되면 500포인트를 드립니다.
    모진놈님이 작성하신 다른 글

    나도익명 2020-01-26 (일) 23:29
    BS4, BT4, BU4, BV4 도 원래 있어야 하는 값인가요?
    그리고 한줄만 하면 되는건가요?
    AK21 주위에 있는 값들을 BO2 정도로 옮겨서 VBA를 실행하면 안되는건가요?
    첨부된 문서는 좀 복잡하고 헷갈리네요.

    결과만 있는 시트가 필요합니다.
         
           
    글쓴이 2020-01-27 (월) 11:26
    1. BS4, BT4, BU4, BV4는 임의로 넣는 조건 값이라서 없어도 됩니다.

    2. 조건값(BS4, BT4, BU4, BV4)이랑 조건에 맞는 결과값을 분리하고 싶습니다.
        BS4, BT4, BU4, BV4의 조건에 의해서 BS2에서 시작해서 CF2이상의 값도 나올 수도 있습니다.

      CF2이상 이라는 말은 젬시트에는 BS2가 2라서 CF2에만 값이 있지만 BS4, BT4, BU4, BV4 조건에
      맞는 값이 더 있으면 CG2에도 값이 들어가게 됩니다.

      예로 BS2의 값이 4이면  BS2~CP2까지 값이 입력이 됩니다.

    지금 회사라서 결과만 있는 시트는 집 컴퓨터에 있어서 첨부를 못 하겠습니다.

    새해 복 많이 받으세요.
    나도익명 2020-01-27 (월) 13:16
     test.xlsm (58.4K), Down : 11, 2020-01-27 13:16:00

    새해 복 많이 받으세요.
         
           
    글쓴이 2020-01-27 (월) 23:57
     20200127_질문.xlsm (59.3K), Down : 4, 2020-01-27 23:57:25

    파일을 받아서 실행보았습니다.

    번거롭게 해 드려 죄송하지만 몇 가지 수정 부탁드립니다.

    1. 주황색 채우기한 조건값 2019-12-10(AK21)->BS4, 9:00(AL21)->BT4, 15:34(AM21)-> BU4로, 2060(AQ21)-> BV4로 옮겨주시면 안 될까요?
      임으로 주는 값이지만 조건값이 AK21, AL21, AM21, AQ21에 있을 경우에만 작동합니다.
      제가 BS4-> 2019-12-10 수기로 입력, BT4->9:00 수기로 입력, BU4-> 15:34 수기로 입력, BV4->2060 수기로 입력했을때 BS2에 결과 값을 나오게 하고 싶습니다.

    2. 결과값이 AS6에 가는 것이 아니라 BS2에 로 가게 해 주십시요.

    3. 현재시트나 전체시트를 클릭을 하면 결과값이 나오는데 한번 더 클릭하면 똑 같은 값이 바로 옆에 붙습니다.
      클릭한 수 만큼 똑 같은 값이 연속으로 해서 붙고, 조건값이 달라질 수도 있는데 그럼은 이전의 값은 다 지운 상태에서 새로운 값을 넣고 싶습니다. 이걸 수정 부탁드립니다.

    제가 설명을 한다고 했는데 이해가 안 되는 부분이 있으면 더 자세하게 설명을 해 보겠습니다.

    편안한 밤 보내세요. 감사합니다.
    나도익명 2020-01-28 (화) 00:33
    제가 VBA에 설명을 달았는데 안보셨나 봅니다.
    1. 조건값의 위치 수정 - 아래를 수정하시면 됩니다. 큰 따옴표 안에 있는 값
    For Each Proc1 In Range("AK21:AK" & Cells(Rows.Count, "AK").End(xlUp).Row)
    For Each Proc1 In Range("BS4:BS" & Cells(Rows.Count, "BS").End(xlUp).Row)

    한줄의 결과만 필요하면 아래처럼 수정하면 됩니다.
    For Each Proc1 In Range("BS4")

    수기 입력값 위치도 VBA 중간에 설명을 달았습니다.
    첫 위치 BS4 에서 오른쪽으로 3번째니까 6을 3으로 고치면 됩니다.
    ExitValue = Cells(Proc1.Row, Proc1.Column + 3).Value

    2. VBA에 출력위치도 적었습니다.
    Set PrintPos = Range("AS6") 에서 BS2 로 바꾸면 됩니다.

    3. 이전의 값 지우기도 VBA에 적었습니다.
    앞의 ' 를 지우면 그 줄이 작동합니다. AN2:ZC900 를 지우기 원하는 범위로 바꾸면 됩니다.
    Range("AN2:ZC900").Clear
         
           
    글쓴이 2020-01-29 (수) 16:47
    조언 감사합니다
         
           
    글쓴이 2020-02-03 (월) 23:24
     20200203_질문.xlsm (3.0M), Down : 1, 2020-02-03 23:24:56

    익명님 안녕하세요.

    지금 여러모로 님의 조언대로 고쳐 가면서 위치는 변경하였습니다.

    다면 디버그가 발생하여 나도 익명님이 이 파일을 제일 잘 알기에 부탁합니다.

    디버그는 DataStartRow = Range("X:X").Find(what:=Proc1.Value).Row이고

    첨부파일에 설명이 되어 있습니다.

    또 한 파일에 많은 시트가 있어 한번 클릭으로 모든 시트에 적용할 수 있게 만들어 주신걸로 알고 있습니다.

    하지만 미흡한 저이기에 해결 방법을 모르겠습니다.

    callsub와 Dosomething 매크로가 무엇을 의미하는지 모르겠고 한번 클릭으로 모든 시트에 적용될 수 있게 부탁드립니다.

    번거롭게 생각하지 마시고 너무 답답하여 부탁드립니다.
    나도익명 2020-02-04 (화) 00:44
     20200203.xlsm (3.1M), Down : 3, 2020-02-04 00:44:32

    저번에 취미라고 말씀드렸는데...
    위와 같이 답을 한 이유는 그래도 VBA를 조금은 이해하고 배우려고 하시는것 같았거든요.
    그리하여 다 잘 하셨는데 찾고자 하는 값을 잘못 입력하여 문제가 발생했네요.
    바로 위에 적은 부분만 확인한 것이니 안 되는 거 있으면 댓글 주세요.

    디버그가 발생한 이유는 값을 찾지 못했기 때문입니다. 2019년인데 2010으로....
    값을 찾지 못할 때는 빨간색으로 칠하게 만들었습니다.
    시트당 하나씩만 작업하시는 것 같아서 1줄만 하도록 수정했습니다.
    여러줄을 할 때도 사용하도록 자취를 남겨놨으니 수정하시면 됩니다.
    callsub 는 현재 시트만 작업하는 것이고
    Dosomething 은 전체 시트를 작업하는 것입니다.
         
           
    글쓴이 2020-02-04 (화) 10:52
    댓글 감사합니다 바로 확인은 힘들고 저녁 늦게 확인해 보겠습니다 바로 언어는 제게는 힘들고 우선 함수부터 열심히 해 보겠습니다 좋은 하루되세요
       

    (구)포토샵요청
    재능iN 재능상태  |   | 
     
    번호 재능분류 제목 글쓴이 상태 포인트 날짜 조회
    [공지사항] ※ 재능iN 게시판 이용안내 (포토샵요청 게시판 재능iN 게시판으로 변경) (8) eToLAND
    0 03-22
    1140 [디자인요청] (재업) 디자인요청 (1) 스샷첨부 상실의시대
    2000 04-02 66
    1139 [사주/운세/손금] 사주 부탁드립니다. (4) 엔젤와우인어
    2000 04-02 61
    1138 [사주/운세/손금] 사주 부탁드립니다! (6) c홀릭
    5000 04-01 119
    1137 [개발/프로그램] 자동 로그인 기능을 원합니다. (3) 시절™
    5000 04-01 192
    1136 [사주/운세/손금] 저도 사주 ! (2) 상실의시대
    2000 03-31 81
    1135 [디자인요청] 회사로고 좀 부탁드려도 될까요?? (8) 머스탱급코골…
    1000 03-31 170
    1134 [사주/운세/손금] 사주좀 봐주세요.ㅎ (2) 포토샵
    3000 03-31 88
    1133 [사주/운세/손금] 사주 부탁드립니다 :) 꿈돌이진
    500 03-31 56
    1132 [기타요청] 강아지 사진 포샵 가능할까요? (5) 스샷첨부 XXXLFIT
    2999 03-31 103
    1131 [사주/운세/손금] 사주 부탁드립니다 :) (1) 깔봉
    500 03-31 117
    1130 [사주/운세/손금] 사주 부탁드립니다 (1) 바보천사쿨쿨
    1500 03-31 57
    1129 [디자인요청] 디자인요청 (8) 스샷첨부 상실의시대
    2000 03-30 115
    1128 [디자인요청] 간단한 제품 디자인 포샵 수정 요청 드립니다. (6) 스샷첨부 얀율리히
    14000 03-28 342
    1127 [디자인요청] 간단한 증명사진 편집좀 부탁 드릴께요 !! (3) Rooa
    1000 03-27 160
    1126 [사주/운세/손금] 사주부탁드립니다 : ) (2) 가리낄비라
    1500 03-27 77
    1125 [문서작업] 엑셀파일입니다 가로형인데 세로형으로 바꿀수 있을까요? (3) 오늘어때
    1000 03-27 175
    1124 [사주/운세/손금] 사주 부탁드립니다. (2) 관저불곰
    2000 03-27 118
    1123 [사주/운세/손금] 사주부탁드립니다. (3) HUGE
    2000 03-26 129
    1122 [사주/운세/손금] 사주 부탁드립니다. (2) anion
    1000 03-26 91
    1121 [] 사주부탁드립니다! (2) 우동짜장
    1000 03-26 74
    1120 [사주/운세/손금] 답답한 마음에 여쭈어 봅니다. 사주 좀 부탁드립니다. (6) 야한돼지
    700 03-25 147
    1119 [사주/운세/손금] 사주부탁드립니다. (2) HUGE
    1000 03-25 101
    1118 [디자인요청] 합성 부탁드려요 (4) 스샷첨부 집샌물샌
    700 03-25 155
    1117 [디자인요청] 합성 도와주세요~ (5) 스샷첨부 요르레이호
    20000 03-25 199
    1116 [디자인요청] 사진에 몇가지 좀 지워주세요 (2) 스샷첨부 제주감귤부자
    3000 03-25 201
    1115 [] 사주 부탁드립니다. (2) 오류전문가
    2000 03-25 77
    1114 [사주/운세/손금] 저도 사주 좀 부탁드려도 될까요? (2) 파워볼1등
    2000 03-24 90
    1113 [사주/운세/손금] 사주풀이 부탁드립니다. (2) 쿠피디타스
    2000 03-24 80
    1112 [사주/운세/손금] 사주 부탁 드립니다. (2) 구울상
    2000 03-24 73
    1111 [사주/운세/손금] 사주 부탁드립니다 (2) NEWEOS
    3000 03-24 67
     1  2  3  4  5  6  7  8  9  10  다음