본문 바로가기
Development/Free Topic

Excel, Spread Sheet(google), VBA

by 곽동현 이스텔리앙 2014. 6. 17.

- 함수 구현 : 비어있지 않은 셀의 개수를 센다음, 문자열 L을 붙여서 쓰기

="L"&COUNTA($B$2:B6)



- 함수 구현 : INDIRECT를 이용해서 특수한 연산 수행

=IF(SUM(INDIRECT($Q$11):INDIRECT($Q15)) + INDIRECT(LEFT(Q15,1)&RIGHT(Q15,2)+1)>0.5689, $Q$11, LEFT(Q15,1)&RIGHT(Q15,2)+1)

=SUM(INDIRECT($Q$11) : INDIRECT($Q16))



# IF에 And조건 넣기

=IF(AND(A<B, C=D), "True", "False")
https://support.office.com/ko-kr/article/and-or-%EB%B0%8F-not-%ED%95%A8%EC%88%98%EC%99%80-%ED%95%A8%EA%BB%98-if-%EC%82%AC%EC%9A%A9-d895f58c-b36c-419e-b1f2-5c193a236d97



# 서식복사 대량으로 하기

1. 가장 왼쪽or위의 cell을 원하는 서식으로 만든다음 클릭.

2. 서식복사 페인트 버튼 클릭.

3. 문서 가장 맨 끝의 column이나 row name버튼을 shift누르고 클릭해서 전체 문서를 선택

(원 클릭으로 전체 문서를 한 번에 선택하는게 핵심임)



# 자동 채우기

- 범위 지정 후, Ctrl+D를 누르면, 맨 위쪽 셀의 수식이나 값이 복사됨

- 가로로 방향인 경우, Ctrl+R을 누르면 됨.

- 또는 규칙이 포함된 셀을 드래그한다음, 채우기-계열-자동채우기(행방향)



http://blog.naver.com/PostView.nhn?blogId=top-dream&logNo=220730581153&categoryNo=0&parentCategoryNo=0&viewDate=&currentPage=1&postListTopCurrentPage=1&from=postView




- VBA

작성 법, 엑셀에서 alt + F11 을 누른 뒤 문서에 우측클릭 삽입-모듈.


'  하면 그줄은 주석 처리



- 사용자 정의 함수 : 그냥 다른 함수처럼 =으로 호출하면됨

Function Colorset(R As Integer, G As Integer, B As Integer)

    Colorset = R + G + B

End Function


이런식으로 사용자 정의함수를 만들 수 있음.

As Integer로 받으면, 셀 값에있는 내용이 자동으로 R변수에 저장되고,

Colorset = 에 리턴을하면 함수를 지정한 셀값에 대입이됨.



- 메크로 : 사용자 정의함수와 달리 엑셀에서 alt+F8로 실행, 또는 VBA에서 F5로 실행

리턴값을 지정하지 않아도 됨.

이러한 매크로를 작성하는 Sub문에서는 변수를 Dim (지역변수)로 선언해줘야만 하는듯.


Sub Color_Test()

  ' A1 셀의 글자색을 빨간색으로 변경

  'Cells(1, 1).Font.ColorIndex = 3

  'Cells(1, 2).Interior.ColorIndex = 6

  'ActiveCell.Interior.ColorIndex = 36

  ActiveCell.Interior.Color = RGB(R, G, B)


End Sub



왼쪽으로 3칸을 읽어서 셀의 RGB색상을 지정하는 코드


Sub Color_Test()

    Dim R As Integer

    Dim G As Integer

    Dim B As Integer

    

    ActiveCell.Offset(0, -1).Select

    B = ActiveCell

    ActiveCell.Offset(0, -1).Select

    G = ActiveCell

    ActiveCell.Offset(0, -1).Select

    R = ActiveCell

    

    ActiveCell.Offset(0, 3).Select

    

  ' A1 셀의 글자색을 빨간색으로 변경

  'Cells(1, 1).Font.ColorIndex = 3

  'Cells(1, 2).Interior.ColorIndex = 6

  'ActiveCell.Interior.ColorIndex = 36

  ActiveCell.Interior.Color = RGB(R, G, B)


End Sub


------------

문자열을 계산하는 함수


Function Calc(str As String)

 Calc = Application.Evaluate(str)

End Function






http://blog.naver.com/rosa0189/60154634116

http://mwultong.blogspot.com/2007/06/excel-color-vba.html



댓글0