rand(life)

166 대화상자로 파일열기변수 = application.getopenfilename(엑셀 파일, "*.xls*")if 변수 = "false" then exit subworkbooks.open 변수 177 작업폴더 변경chdrive "c" 현재드라이브변경chdir "c:₩temp" 현재폴더변경, (드라이브변경은 않음) 172 dir 함수를 처음 사용할 때는 폴더나 파일등 지정두번째부터 생략하고 dir() 로 이용가능dir (폴더명, vbDirectory) 폴더안에 파일존재하는지확인변수 = dir(경로 & "*.xls*") 174 파일복사파일존재여부 먼저 검사할것FileCopy f1, f2 f1파일을 f2파일로 복사 175 파일삭제kill f1kill 폴더명 & "₩*.*" 폴더안의 모든 파일 삭제파일이름 ..

지난번에 다루었던 "통합"기능은, 데이터가 한 줄 (예를 들면 A열)에만 나열되어있어야 가능한 방법이었다. 위의 그림처럼 여러 열에 걸쳐 데이터가 입력되어있을 때, 여러시트와 여러 열에 걸쳐 입력되어있는 특정인의 금액을 합산하려면 어떻게 할까? 일반 함수나 기능으로는 안될 것 같고, VBA를 이용해야할 것 같다 일단, 합계를 낼 시트의 이름을 total이라고하고, 맨 왼쪽에 놓는다. A열에 각 사람의 이름이 나열되고, C열에 금액을 입력할 예정이다. 책을 찾아보고 검색해서 연구한 끝에 매크로로 만든 것은 다음과 같다. Private Sub Macro1() Dim n, j As Long Dim i As Integer Dim k As Integer Dim m As Integer Dim t As Integer..