면접평가표 작성 관리 프로그램

프로그램, 작성, 평가표, 면접, 면접평가표, 관리

탭메뉴

file:[content types].xml  file: rels/.rels  file:xl/ rels/workbook.xml.rels  file:xl/workbook.xml  면접평가표!$b$3:$ag$24  집계표!$b$3:$n$4  집계표!$2:$4  참고!$a$1:$a$6  정보!$b$5:$bg$16  면접평가표!$b$2  면접평가표!$c$1  정보!$b$5:$b$16  면접평가표!$d$6  면접평가표!$z$9  면접평가표!$ab$9  면접평가표!$ad$9  면접평가표!$af$9  면접평가표!$d$10  면접평가표!$x$14  면접평가표!$z$14  면접평가표!$ab$14  면접평가표!$ad$14  면접평가표!$af$14  면접평가표!$j$9  면접평가표!$x$15  면접평가표!$z$15  면접평가표!$ab$15  면접평가표!$ad$15  면접평가표!$af$15  면접평가표!$x$16  면접평가표!$z$16  면접평가표!$ab$16  면접평가표!$ad$16  면접평가표!$af$16  면접평가표!$l$9  면접평가표!$x$17  면접평가표!$z$17  면접평가표!$ab$17  면접평가표!$ad$17  면접평가표!$af$17  면접평가표!$x$18  면접평가표!$z$18  면접평가표!$ab$18  면접평가표!$ad$18  면접평가표!$af$18  면접평가표!$n$9  면접평가표!$f$19  면접평가표!$b$21  면접평가표!$z$23  면접평가표!$z$24  면접평가표!$p$9  면접평가표!$r$9  면접평가표!$t$9  면접평가표!$v$9  면접평가표!$x$9  #n/a  면접평가표!$b$1  
file:xl/worksheets/sheet4.xml
1  2  3  4  5  0  file:xl/vbaproject.bin  attribute vb name 현재 통합 문서  attribute vb base 0{ xxxx-xx-xx-c- 046}  attribute vb globalnamespace false  attribute vb creatable false  attribute vb predeclaredid true  attribute vb exposed true  attribute vb templatederived false  attribute vb customizable true  private sub workbook open()  on error resume next  
sheet2.select
sheet1.select
if activesheet.protectcontents true then  
sheet1.unprotect password:pword
end if  application.displayformulabar false  activewindow.displayheadings false  activewindow.displaygridlines false  if activesheet.protectcontents false then  
sheet1.protect password:pword
end if  end sub  attribute vb name sheet3  attribute vb base 0{ xxxx-xx-xx-c- 046}  attribute vb globalnamespace false  attribute vb creatable false  attribute vb predeclaredid true  attribute vb exposed true  attribute vb templatederived false  attribute vb customizable true  attribute vb name sheet2  attribute vb base 0{ xxxx-xx-xx-c- 046}  attribute vb globalnamespace false  attribute vb creatable false  attribute vb predeclaredid true  attribute vb exposed true  attribute vb templatederived false  attribute vb customizable true  attribute vb name sheet4  attribute vb base 0{ xxxx-xx-xx-c- 046}  attribute vb globalnamespace false  attribute vb creatable false  attribute vb predeclaredid true  attribute vb exposed true  attribute vb templatederived false  attribute vb customizable true  private sub worksheet deactivate()  on error resume next  
sheet4.visible xlsheetveryhidden
end sub  attribute vb name 날짜  public sub 오늘날짜넣기()  on error resume next  range(셀41) date  end sub  attribute vb name 명언  sub 명언시트이동()  
attribute 명언시트이동.vb description 명언구절 시트로 이동합니다^^
attribute 명언시트이동.vb procdata.vb invoke func g\n14
on error resume next  dim lastrow as double  with sheet4  .visible xlsheetvisible  
lastrow.range(a & application.rows.count).end(xlup).row
.select  end with  range(b & lastrow 1).select  end sub  sub 명언불러오기()  on error resume next  dim lastrow as integer, refrnd as long  if activesheet.protectcontents true then  activesheet.unprotect password:pword  end if  with sheet4  
lastrow.range(b & application.rows.count).end(xlup).row
refrnd int(lastrow * rnd)  
range(명언) 명언 : &.range(a & refrnd).offset(0, 1)
range(명언).font.color rgb(0, 0, 0)  end with  if activesheet.protectcontents false then  activesheet.protect password:pword  end if  end sub  attribute vb name 초기화  sub 초기화하기()  on error resume next  
call 시트보호해제모드로설정 설정이유 : 콤보상자 체크 표시/비표시 설정을 위하여
range(j9:ag9,d10:ag10,x14:ag18,f19:ag19,b21:ag21,z23:ab24).clearcontents
call 시트보호모드로설정  end sub  public sub 데이터초기화()  on error resume next  dim lastrow as integer, msg as integer  with sheet2  
lastrow.range(a & application.rows.count).end(xlup).row
msg msgbox((주의! 초기화 후 복원 불가능) & chr(10) & 정보데이터를 모두 지우겠습니까? & vbcrlf &
(주의 : 지워진 정보는 복원할 수 없으므로 신중히 선택하세요.), buttons:vbyesno vbcritical, title:정보 데이터 초기화)
if msg vbyes and lastrow > 5 then  range(a5:a & lastrow).entirerow.delete  
msgbox 정보시트의 모든 정보가 삭제되었습니다^^, buttons:vbokonly vbinformation, title:정보시트의 모든 정보 삭제
end if  end with  end sub  public sub 집계표초기화()  on error resume next  dim lastrow as integer     (이하 생략)