rand(life)

셀의 아래쪽 테두리 더블 클릭시 셀의 맨 아래로 이동합니다. (Ctrl + 아래화살표와 같은 효과) 개체(도형) 모두 선택하는 방법F5 – 옵션 – 개체 선택 – 확인하면 해당 시트의 모든 개체(도형)가 선택된다 빠른 채우기 기능“빠른채우기” 기능은 주변 데이터를 분석하여 자동으로 데이터를 채워주는 기능입니다. B열을 보면 A에서 / 표시 앞 단어를 가져온 것이라고 짐작이 됩니다. 여기서 B1셀의 오른쪽 아래 구석에 커서를 놓고 마우스 오른쪽 클릭을 한 다음에 아래로 끕니다. 그리고 “빠른채우기”를 클릭하면 이렇게 / 기호 앞의 내용이 표시됩니다 ‘삭제’ 대화상자에서 ‘행전체’ 선택시 선택한 셀의 행전체가 삭제됨 B3 셀 하나를 선택하고 오른쪽 클릭 - 삭제했을 때 뜨는 창에서“행전체”를 선택하고 확인하..

'87 [빈값의 차이]Empty 변수 초기화되지 않은 상태. 숫자=0, 텍스트 =""Null Variant 형식 변수"" 텍스트형식 변수Nothing 개체변수에 할당되지 않은 상태 '89FN = Range.Address(False, False) 'A1 상대참조FN = Range.Address(True, True) '$A$1 절대참조 '90Val(s) 문자열 s를 숫자로1,000은 1만 인식함. 그래서Val (Replace(s, ",", ""))와 같이 , 를 공백으로 바꿔줘야함 Str(n) 숫자 n을 문자열로 (숫자를 문자로 변환하기 위해 앞에 공백을 추가함.그래서 문자개수가 1추가됨 '91변수 = Format(dv, "aaa") '월,화,수....Q '1분기, 2분기...ww '주의 일련번호 1~53'..

'[제목줄 제외하고 아래끝까지 범위 재설정]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..