엑셀 비쥬얼 베이직 고수님..이것좀 도와주세요ㅠㅠ

엑셀(211.195) 2011.12.02 08:09:15

조회 45 추천 0 댓글 1

지금 이 대화상자에 보험비를 선택하면 사용내역서에 보험비가 들어가고 그 아래 드롭다운즈에 있는것도 입력하면 사용내역서
바로아래에 또 입력되게끔 할려고하거든요? 보험비 선택하고 아래드롭다운즈 10000원입력 그아래 기타10000원 입력하면
3개 전부다 사용내역서에 입력되게끔 하고, (또다른 예로는 보험비를 선택안하고 그아래 선택안하고 기타만 10,000원이면 기타만 들어가게끔하게할려고하는데..) 입력하고나서 다시 입력하시겠습니까? 하고 물어보면 y누르면 또 입력하게끔 대화상자뜨게할려고하는데
분명 수업시간에 배웠는데.. no=7이니깐 E라인 no(7)에 보험비단추가 눌려있으면 보험비가 들어가게하고 참조시트에서 찾아서 금액 찾게끔
까지했는데... 그아래까지 중복입력되게하거나 중복입력 안되게끔할려면 어떤식으로 풀어야될지모르겠네요..
도와주세요.ㅠㅠ

Sub 고정비()
'
' 입력 Macro
'
' 바로 가기 키: Ctrl+b
'

    DialogSheets("지출입력").Show

    no = 7

    If Range("E" & no) = "" Then

    Range("E" & "no").Select
    If DialogSheets("지출입력").OptionButtons("보험비단추").Value = xlOn Then
    ActiveCell.FormulaR1C1 = "보험비"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").DropDowns("지출상자").Text
    Range("F7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("금액입력상자").Text
    Range("E7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("기타입력상자").Text
    Range("F7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("기타금액입력상자").Text

    ElseIf DialogSheets("지출입력").OptionButtons("선택안함단추").Value = xlOn Then
    ActiveCell.FormulaR1C1 = ""
    Range("E7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").DropDowns("지출상자").Text
    Range("F7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("금액입력상자").Text
    Range("E7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("기타입력상자").Text
    Range("F7").Select
    ActiveCell.FormulaR1C1 = DialogSheets("지출입력").EditBoxes("기타금액입력상자").Text

    no = 0

    Else
    no = no + 1

End Sub

고정닉 0

원본 첨부파일 4본문 이미지 다운로드

전체 댓글 0개

등록순 최신순 답글순

본문 보기

타인의 권리를 침해하거나 명예를 훼손하는 댓글은 운영원칙 및 관련 법률에 제재를 받을 수 있습니다.
Shift+Enter 키를 동시에 누르면 줄바꿈이 됩니다.

갤러리 리스트
번호	제목	글쓴이	작성일	조회	추천
설문	대박 날 것 같아서 내 꿈에 나와줬으면 하는 스타는?	운영자	25/11/17	-	-
AD	대학생 필수템! What's in my Bag	운영자	25/11/21	-	-
292194	코딩은 함께하면 즐겁나요? [1]	타살춤(59.3)	11.12.02	77	0
292193	미안한데 나를 술사줘 [3]	좋은아버지	11.12.02	110	0
292192	해커들에게 도움을 요청한다 [3]	fgsfd(39.112)	11.12.02	122	0
292191	딴나라 디도스 공격했네, 뉴스 이제봤다 [1]	이모군(175.114)	11.12.02	79	0
292190	게임 기획은 초봉 얼마정도 받나여 [4]	풀개미'ㅅ'	11.12.02	129	0
292189	곽팀장아 너 횽이랑 술한잔 할래?ㅎ 횽이 술 사줌.. [2]	캐곽팀닭(115.92)	11.12.02	96	0
292188	금요일 저녁이다	Dawnwalkre	11.12.02	54	0
292187	컴공은 독학 못 하나요? [3]	ㅇㅇ(211.58)	11.12.02	197	0
292186	아 씨발.... [6]	햏햏했(111.118)	11.12.02	160	0
292185	아 뭐냐 ㅡㅡ	안녕하시오(1.244)	11.12.02	46	0
292184	access 2007 폼 삭제 하는법점요	ㅁㄴㅇㅁㅇㅁ(121.170)	11.12.02	37	0
292183	앞으로 와이파이 이용남성분들은 4G이용이 불가능하십니다	갤청소부	11.12.02	74	0
292182	흠.. 레스토랑 매니저 같은거 하고 싶은데	좋은아버지	11.12.02	71	0
292179	노래방 가서 노래부르기전에 이건 필수로 해야 하는거 아니겠냐	캐노래닭(115.92)	11.12.02	118	0
292178	마이크로 비주얼C++ 2010 오류좀 봐주세요ㅕ	마늘맛	11.12.02	168	0
292177	sw쪽은 자기가 공부하기 나름 아냐? 학과를 굳이 따져서 들어가야나; [5]	Aven	11.12.02	155	0
292174	나꼼수에 나오는 주옥같은 노래들 어디서 다운 받을수 없나??	거칠게	11.12.02	62	0
292173	하악 얼렁 퇴근해서 8051을 애무해주고 싶다 헉헉 [6]	거칠게	11.12.02	190	0
292172	성님들.. 늅늅인데요.. 프로그래밍 언어의 논리가 이해가 안되요... [1]	가는이(211.232)	11.12.02	65	0
292171	아아 나의 구세주 찌뱅긔 누나가 보이지 않는다...	쿄스케	11.12.02	67	0
292170	실업계 컴터과 고2인 고딩인데여 [5]	실업계고딩(218.152)	11.12.02	151	0
292169	국비지원이니 뭐해서 하는 단기간학원생인력있잖아 [16]	ㄱㄷ(175.214)	11.12.02	330	0
292168	너네 여자친구 만들려면 [2]	ㄺㅂㄷㅈㄳㅂ(211.58)	11.12.02	92	0
292166	나 옛날에 노래방에서 노래부르면 친구새끼가 마이크 던졌는데 ㅋㅋㅋ [3]	쿄스케	11.12.02	127	0
292165	이거 사실임??? [1]	거칠게	11.12.02	74	0
292164	내 작은 추억하나 얘기해볼께. [7]	좋은아버지	11.12.02	129	0
292163	퇴근하자 ㄱㄱㄱ [8]	줫밥(122.49)	11.12.02	116	0
292162	구글 어스에 추락한 UFO 모습이 잡혔대	분당살람	11.12.02	114	0
292161	이미지 크롤러를 만든이유 [3]	개쉛기	11.12.02	120	0
292160	어게인 형은 봅니다. [2]	좋은아버지	11.12.02	61	0
292158	금융 SI 질문 좀 할께요 형님들!!	대불이	11.12.02	100	0
292156	이번달 중반 넘어가면 취업하기 힘들겠죠? [4]	노예(219.250)	11.12.02	104	0
292155	나 담주부터 php 나 배워볼까 함.. [23]	줫밥(122.49)	11.12.02	168	0
292154	인턴으로 뽑거나 수습기간에만 쪽 뽑아먹고 버리는 회사가 있다. [6]	거칠게	11.12.02	221	0
292153	엠게임에서 프메 온라인 만든다면서? [2]	-ㅂ-(210.90)	11.12.02	87	0
292151	자바하다가 오류났는데 좀 봐주라 ㅠㅠ	스노플	11.12.02	63	0
292149	바지샀다 [20]	줫밥(122.49)	11.12.02	157	0
292148	비쥬얼 2010 이거 안틀려도 막 빨간줄 긋고 이거 뭐야! [1]	Lumberjack	11.12.02	60	0
292147	엄마가 자꾸 일을 나갈려고 해서 내가	좋은아버지	11.12.02	54	0
292141	경력에게 수습기간 있다면서 월급의 80%만 준다고 한다면? [2]	거칠게	11.12.02	123	0
292139	파일입출력할때 [6]	5공입갤	11.12.02	63	0
292137	noton ghost 15로 hdd->ssd구워본형없나요?ㅠㅠㅠㅠ [3]	dddd(203.244)	11.12.02	94	0
292136	노래 방얘기 나와서 내 자랑글 하나 쓸게 [2]	좋은아버지	11.12.02	91	0
292135	이건 뭐 꿈의 연봉 1400을 주겠다는데도 뭐라고 그러네 [1]	거칠게	11.12.02	139	0
292134	연말 회식이 다가온다~!! 다들 개인기 하나씩은 준비해야지?? [1]	거칠게	11.12.02	71	0
292131	꿈의 연봉 1400.jyp [4]	거칠게	11.12.02	244	0
292126	춥냐? 그럼 이걸 봐라!!! [1]	거칠게	11.12.02	60	0
292125	이거 어떻게 설정하나요? [1]	ㅁㄴㄻㄹ	11.12.02	59	0
292124	야이 쇼키들아!! 금요일은 칼퇴근이다!!! 알겠냐?!!	거칠게	11.12.02	55	0
292123	캐로로닭아 근데 동경소녀 요즘 애들이 좋아하냐?? [10]	쿄스케	11.12.02	95	0