값에 따른 화살표 크기 자동 표시하는 법 문의드립니다.

VBA
작성자
갑갑이
작성일
2024-09-23 13:26
조회
203
엑셀버전 : 엑셀2013

운영체제 : 윈도우10


질문 요약 : 화살표 자동 표시

안녕하세요 엑셀은 함수만 있는 줄 알았던 직장인입니다.

지식인에 문의 하였더니 VBA라는 걸 알게 되었습니다.

비고 값에 있는 숫자만큼 가동시간 6부터 시작하여 자동으로 화살표를 표시할 수 있는 방법을 알 수 있을까요?

신고
스크랩
공유
전체 14

  • 2024-10-01 16:06
    채택된 답변

    @갑갑이 님 관심이 있어서 VBA로 만들어 보았습니다.

    첨부파일의 시트 2024-09-01(2)를 참조 하십시오.

    첨부파일 : 대기배출시설기록부.xlsm


    • 2024-10-18 08:59

      @Jas 님 이제 확인했습니다. 와 도움주셔서 감사합니다. 입력하는데 시간을 많이 줄일 수 있어서 감사합니다. 밑에 3칸정도는 조금 화살표 크키가 안맞는데 셀 크키가 달라서 그럴까요?

      그리고 파일에 느낌표 표시가 뜨는데 사용해도 문제없을까요?


      • 2024-10-18 11:47

        @갑갑이 님 화살표 크기가 컴퓨터마다 조금씩 다를 수 있습니다. Setting하는 방법은 쉬운데 설명하기는 조금 어렵네요.

        조만간, Setting 하는 방법을 올려 드리겠습니다. 그리고 느낌표는 어떠한 문구가 같이 뜨는지 알려주세요.


        • 2024-10-18 13:01

          @Jas

          이렇게 파일에 느낌표시가 나옵니다


          • 2024-10-18 14:05

            @갑갑이 님 나타난 아이콘은 VBA를 적용한 엑셀파일이란 뜻이며, 당연히 문제가 없습니다.


            • 2024-10-18 14:21

              화살표 크기를 조정하기 위하여 지난번 업로드한 파일을 조금 수정하였습니다.

              아래 보시면 wFactor? 라는 버튼이 있으며, 이 버튼을 누르면 wFactor에 대한 값이 나옵니다.

              제 컴퓨터에서는 6으로 나오는 군요. 어찌되었든간에, 이 값을 VBA Code에서 수정해야 합니다.

              또한, 화살표 시작점을 알려주기 위하여 AJ11~AJ31(노란색으로 표시함)에 가동시작시간을 적도록 하였습니다.

              수고하세요

               

              Private Sub MakeArrowLine()
               
                  Application.ScreenUpdating = False
                  Call Delete_Shape
               
                  Dim rng As Range, rc As Range, rcIndex As Range, i As Integer
                  Dim x As Single, y As Single, w As Single, h As Single
                  Dim indexLen As Single, colWidth As Single, lineLen As Single
                  Dim wFactor As Single: wFactor = <span style="color: #0000ff;">6</span>  <span style="color: #ff00ff;">'<-- 각 컴퓨터에 맞게 수정 (상기 얻은 wFactor 값으로 변경)</span>
               
                  Set rng = Range(Range("ai11"), Range("ai34"))

               

              첨부파일 : 대기배출시설기록부2.xlsm


              • 2024-10-18 17:01

                @Jas

                이렇게 나오면 정상인건가요? 제가 vba코드를 처음 알게되어서, 6으로 수정하라고하면 어디부분을 수정해야되는 건 지 알 수 있을까요?


                • 2024-10-18 18:38

                  @갑갑이 님 네. 정상이고, 현재 6으로 설정되어 있어 코드 수정은 필요 없네요


                  • 2024-10-21 09:51

                    @Jas 님 확인해주셔서 감사합니다. 잘 사용하겠습니다


  • 2024-09-23 13:40

    @갑갑이 님 뭐라도 비벼보려면, 화살표 시작 시간?... 이 필요할 듯 합니다.


    • 2024-09-23 13:45

      @원조백수


    • 2024-09-23 13:45

      @원조백수 님 가동시간 텝에서 6이라는 셀부터 화살표 시작해서 생성되게 가능할까요?


      • 2024-09-23 14:46

        @갑갑이 님 =IF(O$10<6,"",IF(O$10=ROUNDUP(5+$AI11,0),"➔", IF(O$10<6+$AI11,"▬", "")))

        첨부파일 : 대기배출시설기록부.xlsx


        • 2024-09-23 17:15

          @원조백수 님 와 이렇게도 가능하네요... 위에 사진처럼 이어지게 자동으로 만들기는 어렵겠죠? 그리고 혹시 비고 값 만큼의 화살표 도형(가동시간 셀 크기만큼)만 만들수도 있을까요?


전체 16,933
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (291)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 845194
오빠두엑셀 2022.02.03 554 845194
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31516
오빠두엑셀 2021.10.28 304 31516
74618 VBA
New 유저폼에 바코드스캔시 입력속도 개선방법? (1)
땡이 | 11:36 | 추천 0 | 조회 14
땡이 11:36 - 14
74616 함수/공식
New Rawdata 첨부파일 (3)
HIHUGO | 10:48 | 추천 0 | 조회 27
HIHUGO 10:48 - 27
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (3)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 54
배고픈짐승 2024.10.30 - 54
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 79
iwnqn 2024.10.30 - 79
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2) 답변완료
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 54
퉁퉁이 2024.10.30 - 54
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (7) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 78
저도해볼게요 2024.10.30 - 78
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 51
스톤스톤 2024.10.30 - 51
74585 VBA
New UserForm 크기질문 첨부파일 (5)
땡이 | 2024.10.30 | 추천 0 | 조회 63
땡이 2024.10.30 - 63
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (6)
qlcc**** | 2024.10.30 | 추천 0 | 조회 74
qlcc**** 2024.10.30 - 74
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 63
김은상 2024.10.30 - 63
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 51
2024.10.30 - 51
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 59
구리구리이 2024.10.30 - 59
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3) 답변완료
서기 | 2024.10.30 | 추천 0 | 조회 54
서기 2024.10.30 - 54
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1)
문과적남자 | 2024.10.30 | 추천 0 | 조회 57
문과적남자 2024.10.30 - 57
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (2) 답변완료
라핼 | 2024.10.30 | 추천 0 | 조회 73
라핼 2024.10.30 - 73
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 72
정재욱 2024.10.30 - 72
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 76
침착해 2024.10.30 - 76
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 63
ek02 2024.10.30 - 63
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (4)
야만용사 | 2024.10.29 | 추천 0 | 조회 99
야만용사 2024.10.29 - 99
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 90
rarara 2024.10.29 - 90
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (10)
| 2024.10.29 | 추천 0 | 조회 125
2024.10.29 - 125
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 96
gys**** 2024.10.29 - 96
74533 함수/공식
New 산출집계시트에 항목을 산출서에서 가져오고싶어요 엑셀파일 (3)
Moto | 2024.10.29 | 추천 0 | 조회 90
Moto 2024.10.29 - 90
74532 문서서식
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기 첨부파일 (2)
ViVaViva | 2024.10.29 | 추천 0 | 조회 78
ViVaViva 2024.10.29 - 78
74530 함수/공식
New Lookup 함수 오류에 관한 문의 엑셀파일첨부파일 (6) 답변완료
TMOH | 2024.10.29 | 추천 0 | 조회 93
TMOH 2024.10.29 - 93
74528 함수/공식
New 다중조건 만족하는 결과를 가져오고싶습니다 도와주세요 ㅠㅠ 엑셀파일첨부파일 (8)
말하지마00 | 2024.10.29 | 추천 0 | 조회 101
말하지마00 2024.10.29 - 101
74526 함수/공식
New 열과 행으로 정렬된 데이터를 같은 행으로 표시하려고 합니다. 엑셀파일 (2) 답변완료
깐부 | 2024.10.29 | 추천 0 | 조회 78
깐부 2024.10.29 - 78
74521 함수/공식
New B시트에서 A시트 항목 제품 및 수량 가져오는법좀 부탁드려요 첨부파일 (2)
Moto | 2024.10.29 | 추천 0 | 조회 79
Moto 2024.10.29 - 79
74520 VBA
New VBA 런타임 오류 관련 질문 첨부파일 (1)
angelriun | 2024.10.29 | 추천 0 | 조회 61
angelriun 2024.10.29 - 61
74518 함수/공식
New 두 시트에서 교집합 찾기 (3)
우파루파 | 2024.10.29 | 추천 0 | 조회 89
우파루파 2024.10.29 - 89