VBA 확인 부탁 드립니다
VBA
작성자
machine learning
작성일
2021-02-17 18:27
조회
86
안녕하세요
예전에 버튼 요청으로 해주신분이 있었는데 사용하다가 1가지가 조금 안되어 수정이 가능한지 궁금합니다
- 버튼에 정/반 누르면 기입되게 되어 있고 삭제를 누르면 맨 마지막을 삭제가 되어야 합니다
-> 맨 마지막에 삭제가 되지 않고 마지막에서 2번째가 삭제가 됩니다
이부분 혹시 아시는분 계시면 수정 부탁 드립니다 설명도 주시면 더욱 좋구요...
2. 정/반 버튼 누를때 B열로 되어 있습니다 열은 변경이 되는데 아래로 내려가는 위치가 두번째로만 되는데
혹시 아래위치도 제 맘대로 변경이 될까요?
현재 B2부터 시작되는데 더 아래로 내리고 싶은데 어렵네요..
고수님...도와주세욥.... 이거 배우려고 아무리 봐도 저는 잘 모르겟더라고요..부탁 드립니다
^^
전체 2,511
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
2502 | 함수/공식 |
New 정규화 작업시 수량값 불러올때 에러문제 해결방법 문의
![]() ![]() |
![]() |
2021.03.08 | 0 | 19 |
2501 | 대시보드 |
New 도형 조건부 서식 관련 내용 입니다.
![]() |
![]() |
2021.03.08 | 0 | 17 |
2500 | 함수/공식 |
New 이 함수는 어떤걸 사용해야될지 문의 드립니다
(1)
![]() |
![]() |
2021.03.08 | 0 | 24 |
2499 | 함수/공식 |
New 특정 위치에 특정 문자로 시작하는 값 구하기
(1)
![]() |
![]() |
2021.03.08 | 0 | 26 |
2498 | 기능/도구 |
New 표에 자동고침옵션을 사용해서 열 서식을 모두 넣었어요. 해제 하고 싶어요.
![]() |
![]() |
2021.03.08 | 0 | 14 |
2497 | 함수/공식 |
New vlookup 이나, index match 함수의 검색조건이 숫자 "구간"일경우 어떻게 하는게 좋을까요?
(1)
![]() |
![]() |
2021.03.08 | 0 | 24 |
2496 | 함수/공식 |
New Sumproduct 함수를 사용해보려 하는데 자꾸 #N/A 가 나와요ㅠㅠ 뭐가 잘못된건지 해결부탁드립니다.
![]() ![]() |
![]() |
2021.03.08 | 0 | 36 |
2495 | 기능/도구 |
New 엑셀 합계 관련 질문
(2)
![]() |
![]() |
2021.03.08 | 0 | 27 |
2494 | 함수/공식 |
New 고급필터 사용시 셀값이 없는 부분 불러오는 식
![]() ![]() |
![]() |
2021.03.07 | 0 | 29 |
2493 | 함수/공식 |
New Vlookup, 피벗으로 해결되지 않는 데이터 정리 문제
(1)
![]() |
![]() |
2021.03.07 | 0 | 65 |
2492 | 함수/공식 |
New 스프레드시트 조건부서식
(1)
![]() |
![]() |
2021.03.06 | 0 | 50 |
2491 | 함수/공식 |
New 다중조건 관련 함수 부탁드려요.
(3)
답변완료
![]() |
![]() |
2021.03.06 | 0 | 63 |
2490 | 문서서식 |
New 셀 표시형식 질문
(2)
![]() |
![]() |
2021.03.06 | 1 | 52 |
2489 | 문서서식 |
날짜서식 영문 표기 오류
![]() ![]() |
![]() |
2021.03.05 | 0 | 42 |
2488 | 함수/공식 |
피킹리스트 같은걸 만들어 볼까 하는데요.
![]() |
![]() |
2021.03.05 | 0 | 44 |
2487 | VBA |
ImageLookup를 엑셀에서 에라 발ㅅ생
(2)
![]() |
![]() |
2021.03.05 | 0 | 37 |
2486 | VBA |
네이버 로그인 관련 질문
(1)
![]() |
![]() |
2021.03.05 | 0 | 31 |
2485 | 함수/공식 |
발주 리스트 순서대로 세로 가져오기
(1)
![]() |
![]() |
2021.03.05 | 0 | 45 |
2484 | 문서서식 |
버스배차관리파일
(3)
답변완료
![]() |
![]() |
2021.03.05 | 0 | 39 |
2483 | 함수/공식 |
IF함수 동일조건에 다른값 문의
![]() ![]() |
![]() |
2021.03.05 | 1 | 36 |
2482 | 기능/도구 |
텍스트 정렬, 언어별로
(1)
![]() |
![]() |
2021.03.05 | 0 | 32 |
2481 | 함수/공식 |
VLOOKUP 세로/가로 방향 가져오기
(1)
![]() |
![]() |
2021.03.05 | 1 | 53 |
2480 | 문서서식 |
표에서 수식이 들어 있는 셀은 보호하면서, 표의 자동확장 기능은 이용할 수 없을까요?
(1)
![]() |
![]() |
2021.03.05 | 0 | 24 |
2479 | 차트/그래프 |
간트차트 관련 문의 사항
(2)
![]() |
![]() |
2021.03.05 | 0 | 20 |
2478 | 기능/도구 |
DuTool 설치시 오류 문의드립니다.
(1)
![]() |
![]() |
2021.03.04 | 0 | 31 |
2477 | VBA |
네이버부동산 크롤링
(2)
답변완료
![]() |
![]() |
2021.03.04 | 0 | 42 |
2476 | 함수/공식 |
small함수로 작은수를 찾은 뒤 그에 상응하는 옆셀 불러오기 질문합니다.
![]() ![]() |
![]() |
2021.03.04 | 0 | 38 |
2475 | 함수/공식 |
조건이 있는 중복된 값들의 개수 셀수 있을까요?
(3)
![]() |
![]() |
2021.03.04 | 1 | 49 |
2474 | VBA |
같은이름 다른파일의 데이터 복사 붙이기
![]() ![]() |
![]() |
2021.03.04 | 1 | 30 |
2473 | 파워쿼리/피벗 |
파워쿼리 편집기 날짜 및 시간 (10진수) 2
![]() ![]() |
![]() |
2021.03.04 | 0 | 35 |
테스트를 해보지 않아 오류가 있었네요. 유첨파일 중 노란색 버튼을 클릭해보세요.
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
너무 감사드립니다 복받으실거에욥^^
기초코드입니다. 이사이트에서 강의 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
안녕하세요 너무 감사합니다
직접 보면서 해보니깐 확실히 빠른 습득이 되네요 감사합니다 ^^
한가지 여쭤볼게요...
+2 입력시 B3선택 이거 +3 고치면 3칸씩 입력값이 이동이되는데
B3부터 차례로 아래 입력되게는 안될까요
1
2
3 정
4 반 이런식이욥..