목록분류 전체보기 (563)
rand(life)
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..
이수현 생일 축하글
내가 연예인 생일 축하글을 쓰게 될지는 몰랐다. ㅎ 오늘은 악동뮤지션의 동생, 이수현의 생일이다. 케이팝스타에서 처음 본 이후 기억에서 잠시 잊혀졌는데이번에 '사춘기 하' 앨범에서 나온 곡을 들어보고서는 그동안 앨범이 세 개나 나왔다는 걸 알았다. 지나간 앨범 다시 들어보고 있는데 참 좋다.오빠인 찬혁이 만든 곡의 가사와 멜로디도 신선하고 훌륭하고, 동생인 수현의 목소리도 정말 훌륭하다. 하지만 내가 악동뮤지션에 본격 '입덕'하게 된 주 이유는 두가지인데,1. 사이 좋은 남매라는 점2. 수현이가 잘 웃어서 ㅕ 항상 이렇게 웃는다. 이렇게 해맑게 웃는 아이를 어찌 좋아하지 않을 수 있을까! 그리고 방송이나 여러 매체에서 남매끼리 때로 투닥거리기도 하면서도 사이 좋게 지내는 모습을 보면 아이를 키우는 부모의..
지식인 엑셀 분야 급상승 3위!
가문의 영광!82개 정도 채택된 것 같다. 그런데 요즘 여가시간에는 거의 지식인 답변에 매달렸고, 나중에는 영어 분야에도 답변을 많이 달았는데 전문가지수가 759점이다. 그럼 1,2등이 1,000점이 넘는데 저분들은 도대체....... 괴물이다. 아무튼 전체랭킹에서도 74위로 역대 최고를 기록했다!
중복된 텍스트 제외하고 고유 텍스트 개수 세기(2)
이전 글과 비슷한 기법인데, 조건이 하나 더 추가되었습니다. 위와 같이 날짜 옆에 텍스트가 있고, 특정 날짜에 해당하는 텍스트가 "중복없이" 몇개가 있는지 구하는 문제입니다.이전글에서 날짜라는 조건을 주지 않고, 일정 범위 내의 텍스트 개수를 중복없이 구하는 수식은 다음과 같았습니다.=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...
오늘은 오랜만에 배열수식 아래와 같은 표에서 가장 최근에 출고한 날짜를 찾는 함수이다주의할 것은 날짜가 정렬이 되어있지 않다는 것. 날짜 입고 출고 재고 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..
어쩌다보니 이런 것도 하게 되었다. 사용자정의폼을 만들어서, 각 시트에 있는 특정 정보를 한 시트에 모으는 방법이다. 목록상자가 복수의 항목을 선택할 수 있게 하였다. 제일 어려운 부분은 목록상자에 .Rowsource로 목록을 집어넣는 것인데,가볍게 "A1:A10"하면 간단하지만앞으로 목록이 추가될 경우에도 자동으로 목록이 갱신되도록 하다보니 어려워졌다. 결국 구글신의 도움을 받아 해결 Private Sub UserForm_Initialize()With ListBox1.ColumnCount = 1.ColumnHeads = False.ColumnWidths = "10".AddItem "수입".AddItem "지출"End WithSheet1.Range("M3:p18").ClearContentsEnd Sub ..