안녕하세요 VBA 코드를 이용해서 차량 출입을 적는 프로그램을 만들고 있습니다.
VBA
작성자
naver_5fe1d140af9b0
작성일
2021-01-03 14:01
조회
57
간단한 유저폼을 만들어 봤는데요.
몇가지 질문이 있습니다.
읽어보시고 맨 밑에 질문을 추려 올리도록 하겠습니다.
Private Sub CommandButton1_Click()
Dim lngR As Long:
' Dim rngD As Range
' rngD = Range("IV").End(xlLeft).Column + 1
lngR = Range("B65536").End(xlUp).Row + 1
Range("B" & lngR) = "=row()-2"
Range("C" & lngR) = Me.TextBox1
Range("D" & lngR) = Me.ComboBox1
Range("E" & lngR) = Me.ComboBox2
Range("F" & lngR) = Time
End Sub
대략 이러한 코드를 짜봤는데요.
질문1
lngR = Range("B65536").End(xlUp).Row + 1
이코드는 맨 밑열 부터 위로 읽어오면서 값이 없는 열을 찾아 거기서부터 시작하는 열이라고 배웠는데요.
이것을 맨 오른쪽 행부터 읽어와서 값이 없는 행을 찾는 코드를 짜고 싶어서 짜봤던게
rngD = Range("IV").End(xlLeft).Column + 1
요거인데요. 제가 명령어를 잘못 입력했는지 작동이 안되더라구요.
이것을 해결할수 있는 방법이 무엇인지 알고 싶습니다.
질문2
이러한 코드가 짜였을때 제가 입력하는 마지막 행에는 시간이 오게 되어있습니다.
제가 입력한 값이 이미 되어 있는 값에서
차량번호와 분류1,2가 모두같을때 마지막 시간이 써져있는 그 바로 뒷행으로 다시 시간을 기록하게 하고 싶습니다.
어떠한 방법이 심플하게 될까요?
몇가지 질문이 있습니다.
읽어보시고 맨 밑에 질문을 추려 올리도록 하겠습니다.
Private Sub CommandButton1_Click()
Dim lngR As Long:
' Dim rngD As Range
' rngD = Range("IV").End(xlLeft).Column + 1
lngR = Range("B65536").End(xlUp).Row + 1
Range("B" & lngR) = "=row()-2"
Range("C" & lngR) = Me.TextBox1
Range("D" & lngR) = Me.ComboBox1
Range("E" & lngR) = Me.ComboBox2
Range("F" & lngR) = Time
End Sub
대략 이러한 코드를 짜봤는데요.
질문1
lngR = Range("B65536").End(xlUp).Row + 1
이코드는 맨 밑열 부터 위로 읽어오면서 값이 없는 열을 찾아 거기서부터 시작하는 열이라고 배웠는데요.
이것을 맨 오른쪽 행부터 읽어와서 값이 없는 행을 찾는 코드를 짜고 싶어서 짜봤던게
rngD = Range("IV").End(xlLeft).Column + 1
요거인데요. 제가 명령어를 잘못 입력했는지 작동이 안되더라구요.
이것을 해결할수 있는 방법이 무엇인지 알고 싶습니다.
질문2
이러한 코드가 짜였을때 제가 입력하는 마지막 행에는 시간이 오게 되어있습니다.
제가 입력한 값이 이미 되어 있는 값에서
차량번호와 분류1,2가 모두같을때 마지막 시간이 써져있는 그 바로 뒷행으로 다시 시간을 기록하게 하고 싶습니다.
어떠한 방법이 심플하게 될까요?
전체 2,075
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
2067 | 기능/도구 |
New 복잡한 수식값 자동채우기
![]() |
![]() |
20:57 | 0 | 10 |
2066 | 함수/공식 |
New 도와주세요! 초보에요ㅜㅜ
(1)
![]() |
![]() |
19:46 | 0 | 17 |
2065 | VBA |
New 안녕하세요. 매크로 실행 관련입니다.
![]() ![]() |
![]() |
18:16 | 0 | 22 |
2064 | 함수/공식 |
New 셀안의 숫자를 여러셀에 나오게 하는 분배 관련하여 재 문의를 드립니다.
![]() ![]() |
![]() |
14:54 | 0 | 20 |
2063 | VBA |
New VBA 특정 셀 문자내용에 따라 다른 셀이 변경되도록 가능하려면..
(4)
![]() |
![]() |
14:25 | 0 | 19 |
2062 | 함수/공식 |
New Today에서 년월까지 출력 후 범위에서 가장 가까운값 가져오는 공식이 필요합니다
![]() ![]() |
![]() |
13:38 | 0 | 23 |
2061 | 문서서식 |
New 드롭다운(다중데이터) 세모 목록표시 조정
(2)
![]() |
![]() |
12:12 | 0 | 25 |
2060 | 함수/공식 |
New 비정형 데이터에서 특정 단어 추출
(1)
![]() |
![]() |
02:41 | 0 | 35 |
2059 | VBA |
New 로그인강의를 보고 따라할려는데 마음대로 안되네요....
![]() ![]() |
![]() |
00:04 | 0 | 32 |
2058 | VBA |
New 매크로 저장 방법 관려해서 문의 드립니다
(2)
답변완료
![]() |
![]() |
2021.01.16 | 0 | 24 |
2057 | 함수/공식 |
New 셀안의 숫자를 여러셀에 나오게 하는 분배 관련 문의 드립니다.
(3)
답변완료
![]() |
![]() |
2021.01.16 | 0 | 39 |
2056 | 함수/공식 |
New 셀 내용 합치기 관련 문의
![]() |
![]() |
2021.01.16 | 0 | 19 |
2055 | 함수/공식 |
New 입사일 / 퇴사일을 활용하여 월말 인원 구하는 함수
(3)
답변완료
![]() |
![]() |
2021.01.16 | 0 | 36 |
2054 |
New '계획' 시트의 B열을 M열 처럼 만드는 함수
![]() ![]() |
![]() |
2021.01.16 | 0 | 38 | |
2053 | VBA |
New 메모장 출력 ExportText 함수
![]() ![]() |
![]() |
2021.01.16 | 0 | 24 |
2052 | 함수/공식 |
New 성적관리 프로그램 관련 질문입니다~
![]() ![]() |
![]() |
2021.01.16 | 0 | 33 |
2051 | VBA |
New 매크로 버큰 문의요청
![]() ![]() |
![]() |
2021.01.16 | 0 | 46 |
2050 | VBA |
New 리스트 박스 표시 형식 변경
(4)
답변완료
![]() |
![]() |
2021.01.16 | 0 | 40 |
2049 | VBA |
New IMPORTHHTML 함수 추가기능 vba구현
(2)
![]() |
![]() |
2021.01.15 | 0 | 26 |
2048 | 기능/도구 |
New 혹시 이모지 질문입니다.
(1)
![]() |
![]() |
2021.01.15 | 0 | 40 |
2047 | 기능/도구 |
New 메일머지에 사진 나오게 하는법
(1)
![]() |
![]() |
2021.01.15 | 0 | 37 |
2046 | 함수/공식 |
New 초보입니다ㅠ 호봉을 자동으로 구하고 싶어요~
(3)
![]() |
![]() |
2021.01.15 | 0 | 56 |
2045 | 함수/공식 |
New 년도별 금액평균을 구하고 싶어요
![]() ![]() |
![]() |
2021.01.15 | 0 | 51 |
2044 | 함수/공식 |
New 수량별 개수 곱합 후 합계금액 구하기
![]() ![]() |
![]() |
2021.01.15 | 0 | 45 |
2043 | VBA |
New 시트 합치기는 나오는데 여러개 엑셀파일 통합은 어떻게 하나요?
![]() ![]() |
![]() |
2021.01.15 | 0 | 41 |
2042 | 피벗테이블 |
New 피벗 원데이터에 공백이 있을경우
(3)
![]() |
![]() |
2021.01.15 | 1 | 43 |
2041 | 기능/도구 |
New 인터넷 연결 및 API 오류 해결 도와주세요. 하라신 3가지 다했는데 안되네요
(1)
![]() |
![]() |
2021.01.15 | 0 | 25 |
2040 | VBA |
New VBA Form 실행 위치 관련
(2)
답변완료
![]() |
![]() |
2021.01.15 | 0 | 37 |
2039 | 기능/도구 |
New 엑셀 셀병합시 궁금한점 질문드려요
(4)
![]() |
![]() |
2021.01.15 | 1 | 50 |
2038 | 함수/공식 |
New 시트일별합산금액 원하는 셀에 날짜별로 표시하기
![]() ![]() |
![]() |
2021.01.14 | 0 | 56 |
안녕하세요.
이미 명령문을 잘 작성하셔서 조금만 수정하시면 될 듯 합니다.
첫번째, 행번호가 반환되지 않는 이유는
rngD = Range("IV").End(xlLeft).Column + 1
위 명령문에서 Range 값이 잘못 입력되어서 그렇습니다. IV 뒤에 행 번호도 같이 입력해주세요.
rngD = Range("IV1").End(xlLeft).Column + 1
처럼 직접 입력하시거나 또는
처럼 숫자를 변수로 받아와서 입력하시면 됩니다.
두번째 질문은 IF문을 사용하시면 될 듯 합니다.
처럼 적절히 응용해보세요 ^^
답변이 도움이 되셨길 바랍니다. 감사합니다.
감사합니다 첫번째 질문은 많은 도움이 되었습니다. 그런데 두번째 질문의 경우
if문을 쓰는 방법을 정확히 다시 알려주실수 있을까요?
제가 입력하는 유저폼에서 차량번호, 분류1, 분류2를 사용하는데
목록에서 차량번호,분류1,분류2가 모두 같을경우를 찾아내는 if 조건을 만들어내는 법을 잘모르겠습니다.
만약에 차량번호 = 분류1 = 분류2 모두 같은 경우를 보셔야하면, if 문을 아래처럼 수정해보세요.
답변이 도움이 되셨길 바랍니다. 감사합니다. 🙂