rand(life)

Option Explicit Sub Jo_sort() Dim rD As Range Dim jList As Object Dim i As Long, iCol As Long 'Application.ScreenUpdating = False Set rD = Range("a1").CurrentRegion '데이터 범위 iCol = rD.Columns.Count Set jList = CreateObject("system.collections.sortedlist") With jList For i = 1 To rD.Rows.Count Step 2 Dim sT As String sT = rD.Cells(i, 1).Value & rD.Cells(i, 3).Value If Not .contains(sT) Then .Add s..

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

2. [편집] 2.1 다른 이름으로 저장하기- 암호 걸기 2.2 행열 크기 조정하기 2.3셀병합하기 / 병합 해제하기 2.4행열 숨기기 표시하기/ 시트 숨기기 표시하기 2.5시트복사하기 - 이동하기 3.[차트] 3.1간단한 차트 작성 3.2차트 종류 변경 3.3이중 축 차트 작성 3.4차트 구성요소 추가 - 데이터 값 표시하기 3.5차트 수정 및 도형 활용하기 3.6아래아한글(HWP)에 복사하기 4.[인쇄] 4.1미리보기 4.2용지 방향- 여백 조절 4.3머리글 - 바닥글 설정 4.4제목줄 반복 인쇄 5.[추가] 5.1함수중 주의할 것 (ex) countif에서 정렬하면 틀어지는 문제해결 6.[VBA] 이번에는 셀병합하기와 셀 병합 해제하기에 대해 알아보겠습니다. 병합할 셀들을 선택하고, 홈 – 맞춤의 ..

어제 새벽에 한 통의 이메일을 받았습니다. 안녕하세요.회사업무에 엑셀을 사용해야 하는 데이터가 있어서 여러모로 검색 하던 중에 블로그에 딱 필요한 함수에 대해서 설명글을 게재 한 것을 보고 이렇게 메일 드립니다. 다름이 아니라, 똑같이 수식을 적용하였는데 위 항목은 답을 가져오는데, 아래 항목은 답을 찾지 못하고 "0"으로 뜨네요. sumifs함수가 있는 것을 보고, 딱 이거라고 생각하였는데 아무리 봐도 뭐가 잘못된 것인지를 모르겠네요~ 시간이 되신다면 첨부된 문제 보시고 답변 부탁드리면 정말 감사하겠습니다 ^^ 이메일에 첨부된 파일입니다. 위 그림과 같이, D28셀에는 값이 0으로 나옵니다. 그 위에 답이 81이라고 나와 있는 D27셀의 수식을 보면, SUMIFS함수를 사용하였고, D4:D21의 열에 ..