rand(life)

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..

가문의 영광!82개 정도 채택된 것 같다. 그런데 요즘 여가시간에는 거의 지식인 답변에 매달렸고, 나중에는 영어 분야에도 답변을 많이 달았는데 전문가지수가 759점이다. 그럼 1,2등이 1,000점이 넘는데 저분들은 도대체....... 괴물이다. 아무튼 전체랭킹에서도 74위로 역대 최고를 기록했다!

이전 글과 비슷한 기법인데, 조건이 하나 더 추가되었습니다. 위와 같이 날짜 옆에 텍스트가 있고, 특정 날짜에 해당하는 텍스트가 "중복없이" 몇개가 있는지 구하는 문제입니다.이전글에서 날짜라는 조건을 주지 않고, 일정 범위 내의 텍스트 개수를 중복없이 구하는 수식은 다음과 같았습니다.=SUMPRODUCT((A1:D2"")/(1-(A1:D2"")+COUNTIF(A1:D2,A1:D2))) 이번에는 "주어진 날짜와 같은 날짜"라는 조건이 추가로 주어졌습니다.위의 그림은 1월1일에 해당하는 텍스트의 개수를 중복없이 구하는 수식을 보여줍니다. (하나의 값만 구하므로 절대주소표시는 하지 않았습니다만, D열에 여러 날짜를 준다면 D2를 제외한 나머지 셀주소는 모두 절대주소로 표시해야합니다) 수식을 쓰면 다음과 같습니..

이전에 쓴 글에 어느 분이 답글을 주셨습니다.혹시 저 과목들을 몇개 단위로끊어서 쓸수 있을까요? 예를 들면 5개 과목을 쓰면 줄을 바꾸거나 셀을 아래로 삽입하여 작성하는 게 가능할까요? 그래서 만들어보았습니다.Function ConcatText(ByVal 범위 As Range, 구분 As String) As String Dim strTemp() As StringDim rng As RangeDim a As StringDim cr As IntegerDim k As IntegerDim i As Integer For Each rng In 범위 If rng = 구분 Then ReDim Preserve strTemp(i) If rng.Offset(0, 2).Value > 2 Then strTemp(i) = rng...

3/27자 기준으로 97위 기록!

오늘은 오랜만에 배열수식 아래와 같은 표에서 가장 최근에 출고한 날짜를 찾는 함수이다주의할 것은 날짜가 정렬이 되어있지 않다는 것. 날짜 입고 출고 재고 06월 01일 20 100 07월 01일 50 150 08월 01일 60 90 07월 13일 30 120 07월 31일 40 80 07월 14일 20 100 배열수식을 이용한다. {=MAX(IF(C4:C9"",A4:A9))} C4:C9""을 먼저 계산하여 {TRUE;FALSE;TRUE;FALSE;TRUE;FALSE} 를 만들고그 다음에 A4:A9의 값인{42887;42917;42948;42929;42947;42930}와 함께 IF에 의해 합치면 IF({TRUE;FALSE;TRUE;FALSE;TRUE;FALSE}, {42887;42917;42948;429..