본문 바로가기

WeekdayLife268

[엑셀] DSum 함수 DSum 함수실무에서 DSUM 함수를 쓰는 일은 극히 드물다.왜냐면,1. 쓸 줄 모르니까.2. 쓰는 방법을 배워도 까먹으니까.3. 생각하니 귀찮으니까. 그래도 알아두자 아래 그림처럼 데이터베이스가 있다.이 중에 이름이 "가"이고, 배열1 열의 값이 3을 넘는 행의 배열1 값들의 합을 구해야 한다 하자. 일단 조건표가 필요하다,고급필터의 조건을 입력하는 것처럼 조건표를 만들자. 이름이 "가"배열1이 >3 이 되겠다.    조건표를 만들었으면,답이 들어갈 셀에서 DSUM 함수를 치자.세 개의 변수 입력을 해야한다. 왼쪽부터- 데이터 베이스- 필드- 조건 순서대로 넣는다.    VLOOKUP하고 다르게 데이터 베이스이므로 1행의 라벨 부분까지 넣어줘야, 조건과 매칭을 시킬 수 있다.그 말인 즉,조건.. 2016. 11. 21.
[엑셀] 데이터 셀 순서 거꾸로 뒤집기(바꾸기) 데이터 셀 순서 거꾸로 뒤집기(바꾸기) 얼마전, 엑셀VBA를 활용해서 데이터 셀 순서 거꾸로 뒤집기(바꾸기) 내용을 쓴적이 있다.이번에는 함수를 활용해서 해보자. [VBA로 데이터 셀 순서 뒤집기]  [엑셀VBA] 데이터 셀 순서 거꾸로 뒤집기(바꾸기)데이터 셀 순서 거꾸로 뒤집기(바꾸기) 의외로 DB에서 추출한 데이터가 뒤집혀 있는 경우가 많다.대부분 경우, 엑셀 노가다로 충분하지만,엑셀에 버튼을 만들어 놓으면 편할 수 있다.개인적으로sunnybong.tistory.com  편의상 1부터 6까지의 숫자가 있다고 치자.우측 열에 거꾸로 뒤집어서 넣을 생각이다. OFFSET 함수를 활용할 예정이다.OFFSET 함수는 특정 셀로부터 X열만큼, Y행만큼 떨어진 곳의 값을 반환해준다.=OFFSET(기준이 되는 .. 2016. 11. 18.
[엑셀] RANK 함수 RANK 함수RANK 함수는 회사에서는 별로 쓸일이 없다.그래도 막상 쓸 일이 생길 수 있으니, 아래처럼 등수를 매길 일이 있다고 치자.   RANK함수는 총 3개이며,순위를 환산할 숫자, 전체 배열, 그리고, 내림차순/오름차순 옵션이다.매우 간단하다.   등수를 기재할 셀 위에서 등수를 산출할 숫자 또는 셀주소를 입력하고, 참조 영역을 넣는다.그리고, 오름차순/내림차순 옵션을 설정한다.    0번이 내림차순이고, 입력 안하면 내림차순으로 된다.   전체 등수를 산출해야하므로 참조 영역은 절대참조로 하고,자동입력을 하면 등수가 매겨진다.   글로쓰니 길어졌는데,매우 쉬운 작업. 참조영역 절대참조만 잊지 말자 2016. 11. 18.
[엑셀] Vlookup 함수 회사에서 가장 많이 쓰는 함수다운 함수 Vlookup회사에서 가장 많이 쓰는 함수가 뭘까..아무래도 sum을 제외한다면, 함수라 불리우는 것중에는아무래도 Vlookup 이 아닐까 한다 아래 그림처럼 데이터 테이블이 있고,찾고자 하는 기준이 있다면, 그 값을 찾아, 원하는 열의 값을 반환해주는 함수이다. 말로하면 어렵게 느껴지니 한번 보면,,   표 중에서 사과의 가격을 찾고 싶다고 하자.(값이 가로로 배치 되어 있으니, Vlookup(vertical)을 쓰고, 세로로 배치되어 있다면 Hlookup(horizontal)을 쓴다.)   찾을값이 들어갈 셀에서 =Vlookup을 쳐보자인수들이 나온다.   인수는 총 4개로, 아래와 같이 구성된다. Lookup_value -> 찾을값(셀을 지정하거나, 값을 그.. 2016. 11. 18.
추천 무료 플랫아이콘(픽토그램) 다운로드 사이트 추천 무료 플랫아이콘(픽토그램) 다운로드 사이트유료 사이트도 써봤지만,써본 중 제일 낫다http://www.flaticon.com   전문 디자이너가 아니라면 불편함없이 사용이 가능할거 같다.다운받을때, 크기, 컬러, 파일 포맷 지정도 가능하다.단, 검색은 영어로! 2016. 11. 17.
[엑셀VBA] 데이터 셀 순서 거꾸로 뒤집기(바꾸기) 데이터 셀 순서 거꾸로 뒤집기(바꾸기) 의외로 DB에서 추출한 데이터가 뒤집혀 있는 경우가 많다.대부분 경우, 엑셀 노가다로 충분하지만,엑셀에 버튼을 만들어 놓으면 편할 수 있다.개인적으로 VBA를 몰랐을때 처음으로 시도한 거라 애착이 가고, 회사에서 가장 많이 자주 쓰고 있는 코드이다. [함수로 데이터 셀 순서 뒤집기]http://sunnybong.tistory.com/41     [코드 샘플]Sub upsidedown()Dim i As IntegerDim j As IntegerDim EndRowNum As Integeri = ActiveCell.Rowj = ActiveCell.ColumnEndRowNum = ActiveCell.End(xlDown).Row - ActiveCell.Row + 1F.. 2016. 11. 17.
[엑셀VBA] 조건부 서식 조건부 서식원래 계획은 조건부 서식을 넣고 컬러가 칠해진 라인을 지우는것까지 하는것이었으나,충격적이게도, 조건부 서식에서 먹여진 컬러는 왜 인식이 안되는지 모르겠다.생각대로 되지 않아 속상... 그냥 조건부 서식은 있는 기능 써야겠다 ㅋㅋ    [코드샘플]Sub welfjweil()Range("a1:g14").SelectSelection.FormatConditions.Add Type:=xlExpression, Formula1:="=$c1>=$i$1"  With Selection.FormatConditions(1).Interior        .Color = 255 End With        End Sub 2016. 11. 17.
[엑셀VBA] VBA로 .txt 파일 생성하기 VBA로 .txt 파일 생성하기별로 필요없는 기능이지만,윈도우 외부 프로그램을 컨트롤하는 기능이 있다는사실까지만 알고싶었다. 음.. 이 이상은 너무 복잡해서 잘 모르겠다    [코드샘플]Sub Createtextfile()Dim TF As Object'만들기Set TF = CreateObject("scripting.filesystemobject")Set TFT = TF.Createtextfile("c:\test.txt")'내용넣기TFT.WriteLine "this is just test file" & vbCr & "afs"TFT.WriteLine "this is 2nd line of test file"TFT.WriteLine ActiveSheet.Name'닫기TFT.CloseSet TF = Noth.. 2016. 11. 17.
[엑셀VBA] 색칠된 셀의 행 삭제하기 색칠된 셀의 행 삭제하기문서를 검토하다 보면 특정 조건에 따라 셀에 색을 칠하는 경우가 많다.- 노가다이든, 조건부 서식이든.. 그 다음이 문제다.색 구분 해놓은걸 처리를 해야할 경우,다시 일일이 선택해서 뭔가를 해야하는 경우가 많다.대부분의 경우, 선택한걸 삭제하는 경우가 많으므로, 삭제하는 코드로 짯다. 간단하다. 선택 영역 내에서 기본 설정색(마치 흰색으로 보이는 아무것도 없는 색)이 아니면 행을 지우게 해놨다의외로 유용하다.** 단, 조건부 서식에서 설정된 색은 먹히지 않는다!!!!    [코드샘플]Sub row_del_COLOR()Dim myRNG As RangeDim i As IntegerDim CmyRNG As IntegerOn Error Resume NextApplication.Dis.. 2016. 11. 17.
[엑셀VBA] 텍스트 글자별로 나누기 텍스트 글자별로 나누기엑셀 기본기능에 텍스트 나누기 기능이 있다.실무에서 아직 쓴적은 없지만, 강력한 기능인것 같아,코드로 짜봤다. 매크로로 녹화해서 봤더니, ARRAY로 프로그래밍되서,나의 실력으로는 커스터마이징이 어려울 거 같아,FOR NEXT로 노가다. .. ROW와 COLUMN이 동시에 되도록 했다.사실. AUTOFIT 기능이 더 흥미롭다.    [코드샘플]Sub txt_separation()Dim k As StringDim text_Len As IntegerDim myTXT As StringDim N As Integerk = InputBox("텍스트입력")text_Len = Len(k)For N = 1 To text_Len    myTXT = Mid(k, N, 1)    Cells(1, N.. 2016. 11. 17.
[엑셀VBA] 시트 추가하기 시트 추가하기시트추가하기같은 하찮은걸 원했다기 보다는시트를 추가했을 때, '첫번째 시트'가 바뀌게 되는데,순서와 갯수를 컨트롤하는 것을 알아보고자 했다.추가하는 건 덤으로 알게됐으니...;;;    [코드샘플]Sub sheets_add()Dim addNUM As IntegerOn Error Resume Next    Application.DisplayAlerts = False    addNUM = Application.InputBox("시트를 몇장 추가하시겠습니까?", , , , , , , 2)    Application.DisplayAlerts = TrueIf MsgBox("시트를 " & addNUM & "장 추가하시겠습니까?", vbYesNo) = vbYes Then    Worksheets.A.. 2016. 11. 17.
[엑셀VBA] 숫자 서식 바꾸기 숫자 서식 바꾸기회사에서 문서를 작성하다보면,천단위 콤마를 찍는 경우가 많은데, 회계형식으로 바뀌면 자동 우측정렬이 된다.몹시 짜증난다. 천단위 콤마찍고, 가운데 정렬하는 코드를 짜봤다.특히 0이 그냥 나와있으면, 일일이 바꿔줘야하는데, 하이픈 처리되게 했다.    [코드샘플]Sub format_()Dim x As RangeDim i As IntegerSet x = SelectionFor i = 1 To x.Count   x(i).NumberFormat = "#,##0;[RED]-#,##0;-"   x(i).HorizontalAlignment = xlCenterNext iEnd Sub 2016. 11. 17.

티스토리툴바