rand(life)

지식인 답변했던 것 중 쓸모있다고 생각되는 것을 기억하기 쉽게 정리해두려고 한다. 다음에 비슷한 일이 있으면 또 써먹을 수 있게..아래는 "특정문구가 들어가 있는 페이지만 인쇄할 수 있나요?"라는 질문에 대한 답이다. Sub checkprint()Dim ws As WorksheetDim rng As Range, c As RangeDim str As String, strFirstAddr As StringDim h As HPageBreak '페이지나누기 표시도 Type으로 지정할 수 있다는 것을 처음 알았다.Dim lc As Long, i As LongDim lpc As DoubleDim arr() '페이지 나누기가 있는 곳의 셀 주소를 담을 배열변수 Set ws = Worksheets(1)Set rng =..

2차원 배열에서 특정차원에 지정된 값이 있는지 검색하는 법 Application.Match(변수, Application.Index(배열, 0, 컬럼위치), 0) index함수에서 두,세번째 인수를 0을 주면 해당 배열을 반환한다는 점을 이용 index(arr, 0, 3) 하면 arr배열에서 3번째 칼럼을 의미index(arr, 2, 0) 하면 2번째 행 arr 배열이 다음과 같다면 1 학번1 이름1 과목12 학번2 이름2 과목23 학번3 이름3 과목3index(arr, 0, 3)은 이름1,이름2,이름3… 의 배열을 의미한다. 따라서 arr배열에서 이름2라는 값이 있는지, 있다면 어디에 있는지를 확인 가능하다.

드디어 신 등급에 올라섰다! '식물신'이라 이름이 좀 거시기하긴한데 ㅎㅎ 그래도 신은 신이니까, 이제 의견도 하루에 100개씩 달 수 있다!

--회사에서 바로 통하는 엑셀 실무강의--47[이름정의 공백없이 한꺼번에 하기]F5 – 상수 선택 – 선택영역에서 이름정의만들기 55 셀서식yyyy-mm-dd(aaa) --> 2017-01-21(금) 60 셀서식#,##0, 천단위#,##0,, 백만단위 24시간이 넘는 누적시간 표시할 때 [h] (누적분 [m], 누적초 [s]) 66 조건부서식True 일 경우 중지: 2007 이전 버전과의 호환성을 위해, 체크하면 이전 버전으로 저장할 때 규칙평가를 중지함 81 셀서식mm“월” --> 07월 79 연간계획표 www.hanbit.co.kr/media 에서 예제 다운로드 가능 88 [여러 시트에 한꺼번에 머리글/바닥글 설정하기]여러 시트선택 – 페이지 레이아웃 보기 – 화면에서 직접 수정 93 머리글/바닥글 ..

셀의 아래쪽 테두리 더블 클릭시 셀의 맨 아래로 이동합니다. (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") ‘영역 잘라내서 뒤의 영역에 붙이기 [값으로 붙여넣기]값..