| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
안녕하세요 ^^* 수고들 많으십니다.
제가 궁금한것은 다름이 아니오라 셀을 이동시키고 싶은데요..
VBA로 이동시키고 싶습니다.
제가 지금 하고 있는게 상품 입력 폼인데요..
상품을 입력하면 셀에 밀려서 찍히게 하고 싶습니다.
그러니까.. 처음에 연필이라는 상품을 입력하고
그다음에 볼펜이라는 상품을 입력하면은..
셀에는 a1에는 볼펜이찍혀있고,
a2에는 연필이 찍히게 하고 싶습니다.
설명이 어렵나요 ㅠㅠ
첨부파일 올려달라시면 올려 드리겠습니다.
그럼 답변 기다리겠습니다. (__)
좋은 하루 되시길!!~~
==============[오피스초보님 글에 대한 답변입니다]==============
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
--> 이건 Target가 값이 변경된 곳(입력한 셀)을 나타내구요, 이곳이 첫번째 컬럼일때 실행
하라는 조건을 주는것이구요.
If Not IsEmpty(Target) Then
--> 변경된 값이 공란(즉, 내용을 삭제했을때)일때는 제외한다는 것이구요
Application.EnableEvents = False
--> 삭제할때도 시트변경 이벤트가 발생하므로 잠시 이벤트 발생을 꺼두는 것이구요
Rows(Target.Row).Insert Shift:=xlDown
--> 한줄을 삽입하는것이구
Target.Offset(-1, 0).Select
--> 다시 윗셀을 선택하구
Application.EnableEvents = True
--> 이벤트 발생 원상태루...
End If
End If
End Sub
첨부파일 테스트 해보세요.
==============[오피스초보님 글에 대한 답변입니다]==============
|
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
