rand(life)

'[제목줄 제외하고 아래끝까지 범위 재설정]With RngSet Rng = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count)End With '[autofill 채우기]날짜.AutoFill Destination:=날짜.Resize(15), Type:=xlFillWeekdays, '평일날짜로만 채움' Type:=xlFillCopy '셀복사로 채움 '[한 셀 안의 문자열 중 일부만 첨자 및 색입히기]With Range("A1").Characters(4, 6).Font '4~6번째 문자.Superscript = True '위첨자.Subscript = False '아래첨자.Color = vbRedEnd With [범위중 두 번째 열 지정]Set r = sht.Range("..

Application.CutCopyMode = False '클립보드를 비운다. 이것없이 파일 닫으면 경고창 뜸Range.Insert copyorigin:=True '복사한 셀 삽입 Cells.ClearHyperlinks '모든 셀에서 하이퍼링크 삭제 '[autofill 채우기]날짜.AutoFill Destination:=날짜.Resize(15), Type:=xlFillWeekdays, '평일날짜로만 채움' Type:=xlFillCopy '셀복사로 채움 [복사 붙이기, 잘라내기 붙이기]Selection.Copy Sheets(2).Range("c5") ‘선택영역 복사해서 C5 위치에 붙여넣기 Range("C5:I5").Cut Range("A1:G1") ‘영역 잘라내서 뒤의 영역에 붙이기 [값으로 붙여넣기]값..

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 폴더명 & "₩*.*" 폴더안의 모든 파일 삭제파일이름 ..

[클릭한 도형에 써져있는 텍스트]변수 = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text [도형에 이름부여]이름을 부여하는 것은..해당도형을 SELECT 하신 후에...VBA 에서..Selection.Name = "어떤이름" [병합된 셀 크기에 맞추어 그림 삽입] Set s = Range("B2").MergeArea ThisWorkbook.Sheet1.Shapes.AddPicture img, _ True, True, s.Left, s.Top, s.Width, s.Height [그림 넣기] Set oPicture = Worksheets("Final Result").Shapes.AddPicture(strPictureFilePath _ & C..

242 괄호안의 숫자합계dim temp as variNt '배열변수temp = split (r, "(")for i = 1 to ubound(temp)fs = fs + val (temp (i) )next 'split으로 (를 기준해서 나누면 6), 8), 9)... 처럼 될텐데 val 을 씌우면 숫자로 인식되는지 확인 필요 94split을 이용해 배열변수에 값넣기변수 = split("1,20,300,200", ",") 쌍따옴표를 두번만쓰면된다 option compare binary 대소문자구분정렬option compare text 구분없음 일차원배열은 가로방향배열의 값을 범위에 한번에 쓸 수 있다range("a1:f10") = myarry [동적배열의 값 셀에 넣을때] Worksheets("sheet2")..

188 사용자지정목록 정렬.sortfields.add key:=range("a2"), customorder:="lee,park,kim".apply option compare binary 대소문자구분정렬option compare text 구분없음 [정렬 기본적인 구문]With rng .Sort Key1:=rng.Cells(1, 1), Order1:=xlDescendingEnd With [선택한 영역만 정렬]With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=Selection.Columns(1), Order:=xlDescending .SetRange Selection .ApplyEnd With [이차기준 정렬]Sub 셀정렬() With Range("A..

150 인쇄영역activesheet.pagesetup.printarea = 주소 154 인쇄옵션worksheets(1).printout collate:= true 한 부씩 인쇄 158파일 새이름으로 저장하고 닫기activeworkbook.close (true, text.xlsx)닫으면서 text라는 이름으로 저장한다아직 이름이 정해지지 않은경우 [시트 전체 값으로 복사 붙여넣기후 새로운 파일로 저장하기]Sub 값으로시트복사()Dim wb As WorkbookDim wa As Worksheet Set wa = ActiveSheet ‘여기서 변수로 지정해줘야wa.UsedRange.SelectSelection.CopySelection.PasteSpecial (-4163) Set wb = Workbooks.Ad..

146시트 복수 선택sheet1.select false 이전선택시트 유지 [시트추가]Worksheets.Add after:=Sheet1 ‘sheet1 뒤에 시트 추가 [시트 전체 값으로 복사 붙여넣기후 새로운 파일로 저장하기]Sub 값으로시트복사()Dim wb As WorkbookDim wa As Worksheet Set wa = ActiveSheet ‘여기서 변수로 지정해줘야wa.UsedRange.SelectSelection.CopySelection.PasteSpecial (-4163) Set wb = Workbooks.Add ‘여기서 초점이 이동했을때wa.Copy Before:=wb.Sheets(1) ‘여기서 쉽게 복사가능wb.SaveAs "d:\test1.xlsx" '파일경로 및 이름 여기서 지정 ..