나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 오피스초보 (kkndyyy)

추천:  2
파일:     조회:  2775
제목:   셀이동...
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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
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
이거 워크북에 붙여놓으면 이벤트 발생하여 실행됩니다.		09-03 (11:54)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-09-03(11:05)
최종수정일 : 2003-09-03(11:05)
　


 ◎ 관련글
  제 목   작성자   날짜
◎ 셀이동... 오피스초보 2003-09-03
이게 뭔가연??알려주신 소스에 대해 설명부탁드립니다.. 오피스초보 2003-09-03
이게 뭔가연??알려주신 소스에 대해 설명부탁드립니다.. 스나이퍼 2003-09-03