- 함수 구현 : 비어있지 않은 셀의 개수를 센다음, 문자열 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))


- 일반 팁

가로 방향 자동 채우기(더블클릭은 세로로만 동작함)

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






- 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



'프로그래밍 > 프로그래밍 팁' 카테고리의 다른 글

Ubuntu - Screen , zip, tar 사용법  (0) 2014.07.07
MATLAB 문법, API, 단축키, 환경설정  (0) 2014.06.23
Java, 클래스간 변수 공유  (0) 2014.06.19
정규표현식, 정규식  (0) 2014.06.17
Excel, VBA  (0) 2014.06.17
XNA from Siverlight 방법  (0) 2014.06.17
by 곽동현 이스텔리앙 2014.06.17 18:00