OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    연습생 (dkdlel) 추천:  2 파일:     조회:  2621 제목:   유저폼에서 자료입력시 중복되면 안내메세지출력하는 방법?
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요. 1. 엑셀 버전(95,97,2000,2002):2000 2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):98 3. CPU (486,PentiumI/II/III/IV...):v 4. RAM (32,64,128,256,512MB,1G...): 256 * 아래줄에 질문을 작성하세요 >> 유저폼에서 텍스트box에 값을 넣고 버튼을 누르면 시트에 값이 저장되도록 하고자 할때, 이 값이 넣고자 하는 열에  미리 존재하면 이미 있는 값이라고 메세지 box를 뛰우고자 합니다. (자작코드)  Set 현재셀영역 = Sheets("접수대장").Range("A1").CurrentRegion     접수번호행 = 현재셀영역.Rows.Count     Range(Cells(접수번호행, 6), Cells(접수번호행, 6)).Select     ActiveCell.FormulaR1C1 = "=RC[-3]&RC[-2]&RC[-1]"  접수자 = ActiveCell   Set 범위 = [f1:f1000].Find(접수자, LookIn:=xlValues, lookat:=xlWhole)  If 범위 = 접수자 Then      안내문 = MsgBox("접수번호의 데이터가 중복되었습니다.", 16, "오류메시지") 고수님들의 조언을 부탁드립니다. 　 [불량 게시물 신고]
푸른가을하늘 저두 초보인지라.... Sub 입력() Dim Myrng As Variant Set Myrng = Sheets("접수대장").Columns(6).Find(What:=TextBox1.Text) If TypeName(Myrng) = "Nothing" Then    자료입력명령문 Else    MsgBox("접수번호의 데이터가 중복되었습니다.", 16, "오류메시지") End If End Sub 간단한 예입니다. 도움이 되셨길. 08-06 (09:14) ⓧ삭제 ■신고 연습생 감사합니다. 제가 설명이 부족해서, 다시 올렸습니다. 보시고 다시한번 조언 부탁드립니다. 08-06 (19:18) ⓧ삭제 ■신고
작성일 : 2003-08-06(01:28) 최종수정일 : 2003-08-06(01:28)