목록컴퓨터 (366)
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 폴더명 & "₩*.*" 폴더안의 모든 파일 삭제파일이름 ..
[클릭한 도형에 써져있는 텍스트]변수 = 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" '파일경로 및 이름 여기서 지정 ..
105 셀병합시range("a1:c8").merge true 행마다 병합됨range("a1:c8").merge 전체가 하나로 병합 range.mergearea 지정한 셀이 들어있는 병합된 범위 [병합된 셀 크기에 맞추어 그림 삽입] Set s = Range("B2").MergeArea ThisWorkbook.Sheet1.Shapes.AddPicture img, _ True, True, s.Left, s.Top, s.Width, s.Height [병합된셀의 주소확인] Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.MergeCells Then MsgBox Application.WorksheetFunction.Replace(Targ..
