이 작업은 VBA/매크로가 필수일까요?

VBA
작성자
양희천
작성일
2024-05-31 17:43
조회
633
엑셀버전 : M365

운영체제 : 윈도우11

질문 요약 : 체크리스트에 체크를 하고 입력버튼을 누르면 데이터시트에 체크리스트 데이터가 축적이 되게 하고 싶어요.

안녕하세요.

회사에서 자동화하고 싶은 업무가 있는데 기억날듯 말듯 하면서도 모르겠어서 질문을 올립니다..

 

시트1에 이런 체크리스트가 있어요.

위와 같이 날짜, 점검자, 확인자 입력 후에 체크리스트에 체크를 하고 입력 버튼을 누르면

시트2에 이렇게 하나씩하나씩 축적되고 시트1에서 입력한 값이나 체크박스는 초기화 되는 기능을 만들고 싶습니다..

이해가 되셨으려나요..ㅜㅜ

 

예전에 컴활1급따면서 비슷한걸 했던 기억이 나는거 같은데 도무지 모르겠네요.

참고할만한 강의라도 알려주시면 정말 감사하겠습니다..!

신고
스크랩
공유
회원등급 : 2레벨
포인트 : 55 EP
총질문 : 1 개 (마감율 : 100%)
채택답변 : 0 개
전체 5

  • 2024-05-31 23:02
    채택된 답변

    @양희천 님 버튼 클릭 → 데이터 추가는 VBA로만 가능합니다.

    허나 올려주신 그림은 엑셀보다는 구글폼즈나 MS폼즈로 취합하시는게 더 편할것 같다는 생각이 드네요.^^;


  • 2024-06-01 07:18

    @양희천 님 데이터 추가 작업이라서 VBA가 필요합니다.


  • 2024-06-01 22:34

    @양희천 님 어렵네요!!


  • 2024-06-02 14:09

    @양희천 님 vba 해보시면 좋을듯합니다.


  • 2024-06-11 10:53

    @양희천 님 이렇게 작업해 보심은 어떨까요~~

    Sub 체크리스트()
     
        Application.ScreenUpdating = False
     
        Dim ws As Worksheet, ws1 As Worksheet
        Set ws = Worksheets("점검표")
        Set ws1 = Worksheets("점수표")
     
        '// 데이터 추가될 마지막행
        Dim iRow As Long
        iRow = ws1.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
     
        '// 날짜, 점검자, 확인자 입력
        ws1.Cells(iRow, 1).Value = ws.Range("B1").Value '// 날짜
        ws1.Cells(iRow, 2).Value = ws.Range("B2").Value '// 점검자
        ws1.Cells(iRow, 3).Value = ws.Range("B3").Value '// 확인자
     
        '// 체크리스트 Point
        Dim Point As Integer
        Point = 0
     
        Dim Rng As Variant
        Dim cols As Variant
     
        Rng = Array("B5", "B6", "B7", "B8", "B9")
        cols = Array(5, 6, 7, 8, 9)
     
        Dim i As Integer
        For i = LBound(Rng) To UBound(Rng)
            If ws.Range(Rng(i)).Value = True Then Point = Point + 1
            ws1.Cells(iRow, cols(i)).Value = IIf(ws.Range(Rng(i)).Value = True, 1, 0)
        Next i
     
        '// 총점
        ws1.Cells(iRow, 4).Formula = "=SUM(E" & iRow & ":I" & iRow & ")"
     
        Application.ScreenUpdating = True
     
    End Sub

    첨부파일 : 체크리스트_답변.xlsm


전체 16,942
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (291)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 846840
오빠두엑셀 2022.02.03 554 846840
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31528
오빠두엑셀 2021.10.28 304 31528
74639 함수/공식
New 데이터유효성 검사를 통해 40배수의 수만 입력 (8)
쿠노이 | 00:21 | 추천 0 | 조회 31
쿠노이 00:21 - 31
74638 피벗테이블
New 피벗테이블 날짜 그룹화 원치 않는 범위가 뜹니다. (1)
단팥빵 | 2024.10.31 | 추천 0 | 조회 28
단팥빵 2024.10.31 - 28
74633 문서서식
New 안녕하세요 게임 시스템 테이블 작성 배우고 있는데 기초적인 부분을 잘 모르겠어서 질문 드립니다! 첨부파일 (1) 답변완료
코니 | 2024.10.31 | 추천 0 | 조회 48
코니 2024.10.31 - 48
74632 기능/도구
New 챗gpt 연동해서 이미지로 된 표의 데이터를 가져오려고 합니다.
김수현 | 2024.10.31 | 추천 0 | 조회 49
김수현 2024.10.31 - 49
74628 구글시트
New IMPORTRANGE 함수에서 칸을 늘리면 사라지는데 고정하는 방법은 없을까요? (3)
야망이 | 2024.10.31 | 추천 0 | 조회 55
야망이 2024.10.31 - 55
74627 문서서식
New 조건부 서식 문의 엑셀파일첨부파일 (1)
배고픈짐승 | 2024.10.31 | 추천 0 | 조회 74
배고픈짐승 2024.10.31 - 74
74626 파워쿼리/피벗
New [파워쿼리] 여러 파일 한번에 불러올 때 데이터 유실 첨부파일 (3)
naa**** | 2024.10.31 | 추천 0 | 조회 64
naa**** 2024.10.31 - 64
74625 VBA
New 시트이동시 유저폼 실행방법 문의 (2) 답변완료
땡이 | 2024.10.31 | 추천 0 | 조회 63
땡이 2024.10.31 - 63
74621 기능/도구
New 4개의 열 에서 같은 이름 가로로 정렬 (3)
Bukonge | 2024.10.31 | 추천 0 | 조회 62
Bukonge 2024.10.31 - 62
74618 VBA
New 유저폼에 바코드스캔시 입력속도 개선방법? (5) 답변완료
땡이 | 2024.10.31 | 추천 0 | 조회 58
땡이 2024.10.31 - 58
74616 함수/공식
New Rawdata 첨부파일 (4)
HIHUGO | 2024.10.31 | 추천 0 | 조회 68
HIHUGO 2024.10.31 - 68
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (3)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 81
배고픈짐승 2024.10.30 - 81
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 102
iwnqn 2024.10.30 - 102
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2) 답변완료
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 75
퉁퉁이 2024.10.30 - 75
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (9) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 100
저도해볼게요 2024.10.30 - 100
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 60
스톤스톤 2024.10.30 - 60
74585 VBA
New UserForm 크기질문 첨부파일 (5)
땡이 | 2024.10.30 | 추천 0 | 조회 76
땡이 2024.10.30 - 76
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (6)
qlcc**** | 2024.10.30 | 추천 0 | 조회 92
qlcc**** 2024.10.30 - 92
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 73
김은상 2024.10.30 - 73
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 59
2024.10.30 - 59
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 65
구리구리이 2024.10.30 - 65
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3) 답변완료
서기 | 2024.10.30 | 추천 0 | 조회 62
서기 2024.10.30 - 62
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1) 답변완료
문과적남자 | 2024.10.30 | 추천 0 | 조회 63
문과적남자 2024.10.30 - 63
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (2) 답변완료
라핼 | 2024.10.30 | 추천 0 | 조회 80
라핼 2024.10.30 - 80
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 78
정재욱 2024.10.30 - 78
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 83
침착해 2024.10.30 - 83
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 70
ek02 2024.10.30 - 70
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (4)
야만용사 | 2024.10.29 | 추천 0 | 조회 105
야만용사 2024.10.29 - 105
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 96
rarara 2024.10.29 - 96
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (11)
| 2024.10.29 | 추천 0 | 조회 137
2024.10.29 - 137