VBA 확인 부탁 드립니다

VBA
작성자
machine learning
작성일
2021-02-17 18:27
조회
86

안녕하세요

 

예전에 버튼 요청으로 해주신분이 있었는데 사용하다가 1가지가 조금 안되어 수정이 가능한지 궁금합니다

 

  1. 버튼에 정/반 누르면 기입되게 되어 있고 삭제를 누르면 맨 마지막을 삭제가 되어야 합니다

-> 맨 마지막에 삭제가 되지 않고 마지막에서 2번째가 삭제가 됩니다

이부분 혹시 아시는분 계시면 수정 부탁 드립니다 설명도 주시면 더욱 좋구요...

 

2. 정/반 버튼 누를때 B열로 되어 있습니다 열은 변경이 되는데 아래로 내려가는 위치가 두번째로만 되는데

혹시 아래위치도 제 맘대로 변경이 될까요?

현재 B2부터 시작되는데 더 아래로 내리고 싶은데 어렵네요..

 

고수님...도와주세욥.... 이거 배우려고 아무리 봐도 저는 잘 모르겟더라고요..부탁 드립니다

 

^^

전체 4

  • 2021-02-17 22:50
    채택된 답변

    테스트를 해보지 않아 오류가 있었네요. 유첨파일 중 노란색 버튼을 클릭해보세요.

    Public Const R As Long = 4 '4: B4셀부터, 5:B5셀부터 입력됨

    Sub input_정()
    Dim N As Long

    If Cells(R, "B").Value = "" Then
    N = R
    Else
    N = Cells(Rows.Count, "B").End(xlUp).Row + 1
    End If

    Cells(N, "B").Select '셀이 선택되는것이 싫으시면 지우세요
    Cells(N, "B").Value = "정"
    End Sub

    첨부파일 : 버튼-수정-요청의건-2.xlsm


  • 2021-02-17 20:07

    기초코드입니다. 이사이트에서 강의 VBA강의 초급수준 1개정도만 들으시면 쉽게 응용하실 수 있을 것입니다.

    N = Cells(Rows.Count, "B").End(xlUp).Row -> B열의 최하단에서[Cells(Rows.Count, "B")] B열에 값이 입력되어 있는 곳까지 위로 이동한[End(xlUp) - 엑셀시트에서 End+↑입력과 동일]후 그 열의 번호[.Row]를 구함.

    만약 B열이 전부 공란이면 N은 1을 의미하며, B10세에 마지막 입력한 값이 있으면 10을 나타냄.

     

    Sub 정()
    Dim N As Long
    N = Cells(Rows.Count, "B").End(xlUp).Row + 1 ' +2입력시 B3선택, +3입력시B4부터 입력
    Cells(N, "B").Value = "정"
    End Sub

    Sub 삭제()
    With ThisWorkbook.Worksheets("sheet1")
    ' 사용된 모든 범위에서 마지막셀을 찾습니다.
    Dim endRow As Long ' 마지막행
    endRow = Cells(Rows.Count, "B").End(xlUp).Row   ' - 1 숫자를 지움

    .Cells(endRow, "B").Delete
    End With
    End Sub

    첨부파일 : 버튼-수정-요청의건.xlsm


    • 2021-02-17 20:11

      안녕하세요 너무 감사합니다

      직접 보면서 해보니깐 확실히 빠른 습득이 되네요 감사합니다 ^^

      한가지 여쭤볼게요...
      +2 입력시 B3선택 이거 +3 고치면 3칸씩 입력값이 이동이되는데
      B3부터 차례로 아래 입력되게는 안될까요

      1
      2
      3 정
      4 반 이런식이욥..


전체 2,511
번호 카테고리 제목 작성자 작성일 추천 조회
2502 함수/공식
New 정규화 작업시 수량값 불러올때 에러문제 해결방법 문의 첨부파일 (1)
hide502 | 2021.03.08 | 추천 0 | 조회 19
hide502 2021.03.08 0 19
2501 대시보드
New 도형 조건부 서식 관련 내용 입니다.
Brad. | 2021.03.08 | 추천 0 | 조회 17
Brad. 2021.03.08 0 17
2500 함수/공식
New 이 함수는 어떤걸 사용해야될지 문의 드립니다 (1)
작은소녀 | 2021.03.08 | 추천 0 | 조회 24
작은소녀 2021.03.08 0 24
2499 함수/공식
New 특정 위치에 특정 문자로 시작하는 값 구하기 (1)
hjy**** | 2021.03.08 | 추천 0 | 조회 26
hjy**** 2021.03.08 0 26
2498 기능/도구
New 표에 자동고침옵션을 사용해서 열 서식을 모두 넣었어요. 해제 하고 싶어요.
김대리~~ | 2021.03.08 | 추천 0 | 조회 14
김대리~~ 2021.03.08 0 14
2497 함수/공식
New vlookup 이나, index match 함수의 검색조건이 숫자 "구간"일경우 어떻게 하는게 좋을까요? (1)
이병헌 | 2021.03.08 | 추천 0 | 조회 24
이병헌 2021.03.08 0 24
2496 함수/공식
New Sumproduct 함수를 사용해보려 하는데 자꾸 #N/A 가 나와요ㅠㅠ 뭐가 잘못된건지 해결부탁드립니다. 첨부파일 (2) 답변완료
애림이 🐒 | 2021.03.08 | 추천 0 | 조회 36
애림이 🐒 2021.03.08 0 36
2495 기능/도구
New 엑셀 합계 관련 질문 (2)
hashm**** | 2021.03.08 | 추천 0 | 조회 27
hashm**** 2021.03.08 0 27
2494 함수/공식
New 고급필터 사용시 셀값이 없는 부분 불러오는 식 첨부파일
동방불패 | 2021.03.07 | 추천 0 | 조회 29
동방불패 2021.03.07 0 29
2493 함수/공식
New Vlookup, 피벗으로 해결되지 않는 데이터 정리 문제 (1)
오달 | 2021.03.07 | 추천 0 | 조회 65
오달 2021.03.07 0 65
2492 함수/공식
New 스프레드시트 조건부서식 (1)
거꾸로문 | 2021.03.06 | 추천 0 | 조회 50
거꾸로문 2021.03.06 0 50
2491 함수/공식
New 다중조건 관련 함수 부탁드려요. (3) 답변완료
낮은자 | 2021.03.06 | 추천 0 | 조회 63
낮은자 2021.03.06 0 63
2490 문서서식
New 셀 표시형식 질문 (2)
4Block | 2021.03.06 | 추천 1 | 조회 52
4Block 2021.03.06 1 52
2489 문서서식
날짜서식 영문 표기 오류 첨부파일 (3)
SAM | 2021.03.05 | 추천 0 | 조회 42
SAM 2021.03.05 0 42
2488 함수/공식
피킹리스트 같은걸 만들어 볼까 하는데요.
이쑤노 | 2021.03.05 | 추천 0 | 조회 44
이쑤노 2021.03.05 0 44
2487 VBA
ImageLookup를 엑셀에서 에라 발ㅅ생 (2)
jig637 | 2021.03.05 | 추천 0 | 조회 37
jig637 2021.03.05 0 37
2486 VBA
네이버 로그인 관련 질문 (1)
dreamingsky | 2021.03.05 | 추천 0 | 조회 31
dreamingsky 2021.03.05 0 31
2485 함수/공식
발주 리스트 순서대로 세로 가져오기 (1)
qkrwlg**** | 2021.03.05 | 추천 0 | 조회 45
qkrwlg**** 2021.03.05 0 45
2484 문서서식
버스배차관리파일 (3) 답변완료
미성 | 2021.03.05 | 추천 0 | 조회 39
미성 2021.03.05 0 39
2483 함수/공식
IF함수 동일조건에 다른값 문의 첨부파일 (2)
Ns프링글스 | 2021.03.05 | 추천 1 | 조회 36
Ns프링글스 2021.03.05 1 36
2482 기능/도구
텍스트 정렬, 언어별로 (1)
LJH | 2021.03.05 | 추천 0 | 조회 32
LJH 2021.03.05 0 32
2481 함수/공식
VLOOKUP 세로/가로 방향 가져오기 (1)
qkrwlg**** | 2021.03.05 | 추천 1 | 조회 53
qkrwlg**** 2021.03.05 1 53
2480 문서서식
표에서 수식이 들어 있는 셀은 보호하면서, 표의 자동확장 기능은 이용할 수 없을까요? (1)
이한준(김해) | 2021.03.05 | 추천 0 | 조회 24
이한준(김해) 2021.03.05 0 24
2479 차트/그래프
간트차트 관련 문의 사항 (2)
kuh**** | 2021.03.05 | 추천 0 | 조회 20
kuh**** 2021.03.05 0 20
2478 기능/도구
DuTool 설치시 오류 문의드립니다. (1)
반짝반짝 | 2021.03.04 | 추천 0 | 조회 31
반짝반짝 2021.03.04 0 31
2477 VBA
네이버부동산 크롤링 (2) 답변완료
웃음 | 2021.03.04 | 추천 0 | 조회 42
웃음 2021.03.04 0 42
2476 함수/공식
small함수로 작은수를 찾은 뒤 그에 상응하는 옆셀 불러오기 질문합니다. 첨부파일 (2) 답변완료
솔솔 | 2021.03.04 | 추천 0 | 조회 38
솔솔 2021.03.04 0 38
2475 함수/공식
조건이 있는 중복된 값들의 개수 셀수 있을까요? (3)
dasdas | 2021.03.04 | 추천 1 | 조회 49
dasdas 2021.03.04 1 49
2474 VBA
같은이름 다른파일의 데이터 복사 붙이기 첨부파일
H.B | 2021.03.04 | 추천 1 | 조회 30
H.B 2021.03.04 1 30
2473 파워쿼리/피벗
파워쿼리 편집기 날짜 및 시간 (10진수) 2 첨부파일 (1)
JaeChoi | 2021.03.04 | 추천 0 | 조회 35
JaeChoi 2021.03.04 0 35