VBA – Page 2 – Form Follows Energy

2012/10/182021/11/11

[VBA]데이터 형식

모든 프로그래밍 언어에는 자신들만의 데이터 형식을 갖고 있다.

다음은 엑셀의 도움말에 있는 내용이다.

데이터 형식	저장 용량	범위
Byte	1바이트	0부터 255까지
Boolean	2바이트	True 또는 False
Integer	2바이트	-32,768부터 32,767까지
Long (긴 정수)	4바이트	-2,147,483,648부터 2,147,483,647까지
Single (단정도 부동 소수점)	4바이트	-3.402823E38부터 -1.401298E-45까지(음수값). 1.401298E-45부터 3.402823E38까지(양수값)
Double (배정도 부동 소수점)	8바이트	-1.79769313486232E308부터 -4.94065645841247E-324까지(음수값). 4.94065645841247E-324부터 1.79769313486232E308까지(양수값)
Currency (정수 값 잘림)	8바이트	-922,337,203,685,477.5808부터 922,337,203,685,477.5807까지
Decimal	14바이트	+/-79,228,162,514,264,337,593,543,950,335(소수점 이하 없음); +/-7.9228162514264337593543950335(숫자의 오른쪽으로부터 28번째); +/-0.0000000000000000000000000001(0이 아닌 최소 숫자)
Date	8바이트	100년 1월 1일부터 9999년 10월 31까지
Object	4바이트	모든 개체 참조
String (가변 길이)	10바이트 +문자열 길이	0부터 약 20억까지
String (고정 길이)	문자열 길이	1부터 약 65,400까지
Variant (숫자)	16바이트	Double형 범위 내의 모든 숫자
Variant (문자)	22바이트 + 문자열 길이	변수 길이 String과 같은 범위
사용자 정의 형식 (Type 사용)	요소가 사용하는 숫자	해당 데이터 형식의 범위값과 각 요소의 범위값이 같음

메모 모든 데이터 형식의 배열은 20바이트 + 각 차원당 4바이트 + 데이터 자체가 차지하는 바이트 만큼의 메모리를 차지하며, 각 항목의 수에 항목의 크기를 곱하면 데이터가 차지하는 메모리의 용량을 구할 수 있습니다. 예를 들면 2바이트를 차지하는 4개의 Integer 데이터 요소로 된 1차원 배열은 8바이트를 차지합니다. 데이터의 8바이트와 오버헤드 24바이트를 더하면 배열에 필요한 메모리 양은 32바이트가 됩니다.

Variant는 배열 자체보다 12바이트를 더 차지하는 배열을 가지고 있습니다.

메모 StrConv 함수는 문자열 데이터를 다른 형식의 문자열 데이터로 변환할 때 사용된다.

도움말 끝

<개인 생각>

개인적으로 실수는 Double을, 엑셀의 셀을 참조하기 위한 행, 열 관련 변수는 Long으로 하는 것이 좋다.

2012/10/152021/11/11

[VBA]Do-Loop문의 이해

이 함수들을 호출하는 서브 프로시저는 다음과 같다.

Sub CalculateStastic()
  '
  Dim myScore() As Double '동적 배열 선언. 크기가 결정되어 있지 않음.
  Dim i As Long
  Dim 평균 As Double
  Dim 분산 As Double
  Dim 표준편차 As Double
  '
  '입력
  i = 1
  Do While Cells(i, 2) &lt;> ""
    ReDim Preserve myScore(1 To i) '동적 배열의 크기 재설정(ReDim). 이전에 할당된 값을 보존(Preserve).
                                   'Preserve를 하지 않으면, 크기가 재설정되면서 기존의 값은 모두 초기화 ^^;
    myScore(i) = Cells(i, 2)
    i = i + 1
  Loop
  '
  '계산
  평균 = GetMean(myScore)
  분산 = GetVariance(myScore)
  표준편차 = GetStandardError(myScore)
  '
  '출력
  Cells(1, 4) = 평균
  Cells(2, 4) = 분산
  Cells(3, 4) = 표준편차
End Sub

Sub CalculateStastic()

Dim myScore() As Double '동적 배열 선언. 크기가 결정되어 있지 않음.

Dim i As Long

Dim 평균 As Double

Dim 분산 As Double

Dim 표준편차 As Double

'입력

i = 1

Do While Cells(i, 2) <> ""

ReDim Preserve myScore(1 To i) '동적 배열의 크기 재설정(ReDim). 이전에 할당된 값을 보존(Preserve).

'Preserve를 하지 않으면, 크기가 재설정되면서 기존의 값은 모두 초기화 ^^;

myScore(i) = Cells(i, 2)

i = i + 1

Loop

'계산

평균 = GetMean(myScore)

분산 = GetVariance(myScore)

표준편차 = GetStandardError(myScore)

'출력

Cells(1, 4) = 평균

Cells(2, 4) = 분산

Cells(3, 4) = 표준편차

End Sub

위 코드에는 불필요한 중복이 있다. 어떻게 할 것인가?

2012/10/122021/11/11

[VBA]For-Next문의 이해

반복 횟수만큼 실행문을 반복할 때 사용한다.

Option Explicit

Function GetMean(Score() As Double) As Double
Dim L As Long
Dim U As Long
Dim i As Long
Dim sum As Double
‘
L = LBound(Score, 1)
U = UBound(Score, 1)
‘
sum = 0
For i = L To U
sum = sum + Score(i)
Next i
‘
GetMean = sum / (U – L + 1)
End Function

이상은 평균을 구하는 함수이다. 다음은 분산(Variance)를 구하는 함수이다.

Function GetVariance(Score() As Double) As Double
Dim L As Long
Dim U As Long
Dim i As Long
Dim sum As Double
Dim avg As Double
‘
L = LBound(Score, 1)
U = UBound(Score, 1)
‘
avg = GetMean(Score)
‘
sum = 0
For i = L To U
sum = sum + (Score(i) – avg) ^ 2
Next i
‘
GetVariance = sum / (U – L + 1)
End Function

다음은 표준편차를 구하는 함수이다.

Function GetStandardError(Score() As Double) As Double
Dim L As Long
Dim U As Long
Dim i As Long
Dim sum As Double
Dim avg As Double
‘
L = LBound(Score, 1)
U = UBound(Score, 1)
‘
avg = GetMean(Score)
‘
sum = 0
For i = L To U
sum = sum + (Score(i) * Score(i))
Next i
‘
GetStandardError = (sum / (U – L + 1)) – (avg * avg)
End Function

위에는 오류 코드(버그)가 숨겨 있다. 잘 찾아보아 보세요.

2012/10/032021/01/06

[VBA]If문과 Select문의 비교

프로그래밍의 가장 기본 중의 하나가 If문에 의한 실행의 분기일 것이다.

단순한 분기에서부터 다중 분기까지 가능하다.

<문제>

성적 점수에 따라 평점(A, B, C, D, F 등으로 표시되는 것. 학점하고 구분)을 반환하는 함수를 작성하라.

1) If문을 이용한 함수 1

Public Function GetGrade1(ByVal AverageScore As Single) As String
  If AverageScore >= 95 Then
    GetGrade1 = "A+"
  ElseIf AverageScore >= 90 And AverageScore &lt; 95 Then
    GetGrade1 = "A0"
  ElseIf AverageScore >= 85 And AverageScore &lt; 90 Then
    GetGrade1 = "B+"
  ElseIf AverageScore >= 80 And AverageScore &lt; 85 Then
    GetGrade1 = "B0"
  ElseIf AverageScore >= 75 And AverageScore &lt; 80 Then
    GetGrade1 = "C+"
  ElseIf AverageScore >= 70 And AverageScore &lt; 75 Then
    GetGrade1 = "C0"
  Else
    GetGrade1 = "F"
  End If
End Function

Public Function GetGrade1(ByVal AverageScore As Single) As String

If AverageScore >= 95 Then

GetGrade1 = "A+"

ElseIf AverageScore >= 90 And AverageScore < 95 Then

GetGrade1 = "A0"

ElseIf AverageScore >= 85 And AverageScore < 90 Then

GetGrade1 = "B+"

ElseIf AverageScore >= 80 And AverageScore < 85 Then

GetGrade1 = "B0"

ElseIf AverageScore >= 75 And AverageScore < 80 Then

GetGrade1 = "C+"

ElseIf AverageScore >= 70 And AverageScore < 75 Then

GetGrade1 = "C0"

Else

GetGrade1 = "F"

End If

End Function

조건이 굉장히 복잡하게 보이지만, 계산 논리를 한번에 알아볼 수 있다. 이렇게 다중 분기하는 경우 다음과 같이 Select문을 생각해 볼 수 있다.

2)Select문을 이용한 함수

Public Function GetGrade2(ByVal AverageScore As Double) As String
  Select Case AverageScore
    Case 95 To 100
      GetGrade2 = "A+"
    Case 90 To 94
      GetGrade2 = "A0"
    Case 85 To 89
      GetGrade2 = "B+"
    Case 80 To 84
      GetGrade2 = "B0"
    Case 75 To 79
      GetGrade2 = "C+"
    Case 70 To 74
      GetGrade2 = "C0"
    Case Else
      GetGrade2 = "F"
  End Select
End Function

Public Function GetGrade2(ByVal AverageScore As Double) As String

Select Case AverageScore

Case 95 To 100

GetGrade2 = "A+"

Case 90 To 94

GetGrade2 = "A0"

Case 85 To 89

GetGrade2 = "B+"

Case 80 To 84

GetGrade2 = "B0"

Case 75 To 79

GetGrade2 = "C+"

Case 70 To 74

GetGrade2 = "C0"

Case Else

GetGrade2 = "F"

End Select

End Function

이 함수는 심각한 문제를 안고 있다. 즉, 85.5와 같은 점수에 대해서는 “F”를 줄 수 있기 때문이다. Case 간에 비어있는 범위가 생길 수 있다는 점에서 유의해야 한다.

3)다시 If문을 이용한 함수

처음 If문을 간결하게 다시 작성하면 다음과 같이 할 수 있다. 여기서 중요하게 볼 것은 처음 조건문은 그 다음 조건문의 필터 역할을 한다는 것이다. 예를들어 85.5점은 처음 조건문부터해서 두번째 조건문까지 만족하지 않는다. 그러나, 세번째 조건문에서는 통과하여 평점을 받게 된다. 즉, 세번째 조건문에 ’90보다 작다’는 필터가 두번째의 조건문을 통해서 만들어진 것이다.

Function GetGrade3(ByVal 점수 As Double) As String
  Dim grade As String = ""
  If 점수 >= 95 Then
    grade = "A+"
  ElseIf 점수 >= 90 Then
    grade = "A"
  ElseIf 점수 >= 85 Then
    grade = "B+"
  ElseIf 점수 >= 80 Then
    grade = "B"
  ElseIf 점수 >= 75 Then
    grade = "C+"
  ElseIf 점수 >= 70 Then
    grade = "C"
  ElseIf 점수 >= 65 Then
    grade = "D+"
  ElseIf 점수 >= 60 Then
    grade = "D"
  Else
    grade = "F"
  End If
  GetGrade3 = grade
End Function

Function GetGrade3(ByVal 점수 As Double) As String

Dim grade As String = ""

If 점수 >= 95 Then

grade = "A+"

ElseIf 점수 >= 90 Then

grade = "A"

ElseIf 점수 >= 85 Then

grade = "B+"

ElseIf 점수 >= 80 Then

grade = "B"

ElseIf 점수 >= 75 Then

grade = "C+"

ElseIf 점수 >= 70 Then

grade = "C"

ElseIf 점수 >= 65 Then

grade = "D+"

ElseIf 점수 >= 60 Then

grade = "D"

Else

grade = "F"

End If

GetGrade3 = grade

End Function

주의사항 : 제대로 된 필터 기능을 사용하고자 한다면, 점수가 고득점부터 저득점으로 내려오든, 저득점에서 고득점으로 올라가든, 일정한 순서로 조건문을 배열해야 한다는 점이다.

정령 Select문으로는 해결할 수 없는가?
이것을 Select문으로 바꾸면 다음과 같이 될 것이다.

4) 다시 Select문을 이용한 함수

Is라는 키워드를 사용하면 다음과 같이 작성할 수 있다.

Function GetGrade4(ByVal 점수 As Double) As String
  Dim grade As String = ""
  Select Case 점수
    Case Is >= 95
      grade = "A+"
    Case Is >= 90
      grade = "A"
    Case Is >= 85
      grade = "B+"
    Case Is >= 80
      grade = "B"
    Case Is >= 75
      grade = "C+"
    Case Is >= 70
      grade = "C"
    Case Is >= 65
      grade = "D+"
    Case Is >= 60
      grade = "D"
    Case Else
      grade = "F"
  End Select
  GetGrade4 = grade
End Function

Function GetGrade4(ByVal 점수 As Double) As String

Dim grade As String = ""

Select Case 점수

Case Is >= 95

grade = "A+"

Case Is >= 90

grade = "A"

Case Is >= 85

grade = "B+"

Case Is >= 80

grade = "B"

Case Is >= 75

grade = "C+"

Case Is >= 70

grade = "C"

Case Is >= 65

grade = "D+"

Case Is >= 60

grade = "D"

Case Else

grade = "F"

End Select

GetGrade4 = grade

End Function

이 방법도 Case 점수가 일정한 순서로 배치되어 가능하다는 점을 유의해야 한다.

2012/09/282021/11/11

[Excel]Range와 Cells

1) Range 이해

Range(“K7”) –> K7 셀 (단일 셀)
Range(“A3:B4”) –> A3:B4 영역 (단일 영역)
Range(“A1,A4,A5,B4,K3,K5,K7”) –> A1,A4,A5,B4,K3,K5,K7 셀 (다중 셀)
Range(“A1:A5, K3:K7”) –> A1:A5, K3:K7 영역 (다중 영역)
Range(“B:B”) –> B열 전체 (단일 열)
Range(“2:2”) –> 2행 전체 (단일 행)
Range(“B:K”) –> B:K열 전체 (다중 열)
Range(“3:4”) –> 2:5행 전체 (다중 행)
Range(“B:B, E:E, D:D”) –> B, E, D 열 전체
Range(“1:1, 3:3, 4:4”) –> 1, 3,4행 전체
Range(Range(“B1”), Range(“K3”)) –> B1:K3 영역
Range(Cells(1,2), Cells(3,4)) –> B1:D3 영역

2) Cells

Cells(3,4) –> Range(“D3”)와 같음
Cells는 행(3), 열(4)의 순서이고 Range는 열(D), 행(3)의 순서임

2010/05/132021/11/11

[VBA]TwipsPerPixel

비주얼 베이직 6.0이하에서는 화면의 크기를 트윕(twip)으로 표시한다.

Screen.TwipsPerPixelX
Screen.TwipsPerPixelY

1 2	Screen.TwipsPerPixelX Screen.TwipsPerPixelY

VBA에서는 없기에 다음과 같은 함수를 이용해야 한다. (source : MSDN)

Option Explicit
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long

Const HWND_DESKTOP As Long = 0
Const LOGPIXELSX As Long = 88
Const LOGPIXELSY As Long = 90

'--------------------------------------------------
Function TwipsPerPixelX() As Single
'--------------------------------------------------
'Returns the width of a pixel, in twips.
'--------------------------------------------------
Dim lngDC As Long

lngDC = GetDC(HWND_DESKTOP)
TwipsPerPixelX = 1440&amp; / GetDeviceCaps(lngDC, LOGPIXELSX)
ReleaseDC HWND_DESKTOP, lngDC

End Function

'--------------------------------------------------
Function TwipsPerPixelY() As Single
'--------------------------------------------------
'Returns the height of a pixel, in twips.
'--------------------------------------------------
Dim lngDC As Long

lngDC = GetDC(HWND_DESKTOP)
TwipsPerPixelY = 1440&amp; / GetDeviceCaps(lngDC, LOGPIXELSY)
ReleaseDC HWND_DESKTOP, lngDC

End Function

Option Explicit

Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _

ByVal hdc As Long) As Long

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _

ByVal nIndex As Long) As Long

Const HWND_DESKTOP As Long = 0

Const LOGPIXELSX As Long = 88

Const LOGPIXELSY As Long = 90

'--------------------------------------------------

Function TwipsPerPixelX() As Single

'--------------------------------------------------

'Returns the width of a pixel, in twips.

'--------------------------------------------------

Dim lngDC As Long

lngDC = GetDC(HWND_DESKTOP)

TwipsPerPixelX = 1440& / GetDeviceCaps(lngDC, LOGPIXELSX)

ReleaseDC HWND_DESKTOP, lngDC

End Function

'--------------------------------------------------

Function TwipsPerPixelY() As Single

'--------------------------------------------------

'Returns the height of a pixel, in twips.

'--------------------------------------------------

Dim lngDC As Long

lngDC = GetDC(HWND_DESKTOP)

TwipsPerPixelY = 1440& / GetDeviceCaps(lngDC, LOGPIXELSY)

ReleaseDC HWND_DESKTOP, lngDC

End Function

2010/05/102019/07/09

공기상태 계산 엑셀 프로그램(Visual Air 2010)

건축환경 및 설비 분야에서 공기의 상태값(psychrometrics)을 아는 것이 매우 중요하다.

(Excepted from Wikipedia) Although the principles of psychrometry apply to any physical system consisting of gas-vapor mixtures, the most common system of interest is the mixture of water vapor and air, because of its application in heating, ventilating, and air-conditioning and meteorology. In human terms, our thermal comfort is in large part a consequence of not just the temperature of the surrounding air, but (because we cool ourselves via perspiration) the extent to which that air is saturated with water vapor.
공기 상태를 계산하는 엑셀 프로그램을 여기에 올린다.

사용전 엑셀 보안 설정
– 도구 -> 매크로 -> 보안 -> “보안 수준” 탭에서 “보통”을 선택 (Excel 2003이하)

사용법
1) 시트 안에 있는 “계산기” 단추를 누른다.
사용자 삽입 이미지 2) 알고 있는 두 값을 선택해서 그 값을 입력한 다음 “계산” 단추를 누른다.
예) 건구온도 20도, 상대습도 55%를 입력해서 나머지 값을 구하고자 할 경우 다음과 같이 입력한다.

3) 계산결과는 엑셀 시트와 대화상자 동시에 출력이 된다.
사용자 삽입 이미지 4) 첨부 엑셀 파일(You can download the following file)

psychrometrics.xls

2010/04/202014/11/05

[프로그램등록] Visual Air (software for psychrometic chart)

공기의 물리적인 상태값은 공기와 관련한 수치계산의 기본이 된다. 공조 설비에서 취급하는 공기는 습공기이기 때문에, 공기조화에 관한 계산은 습공기의 성질을 충분히 파악한 상태에서 가능하다. 이런 습공기의 상태값에는 밀도, 수증기압, 절대습도, 상대습도, 노점온도, 습구온도 등과 함께 습공기가 안고 있는 열량인 엔탈피가 있다.
습공기의 상태값은 표로 제시되기도 하지만, 모든 경우에 대한 자료를 주지 못한다. 이에 가장 기본적인 자료로서 습공기선도를 사용하게 되는데, 습공기의 상태값을 구하는데 사용됨과 동시에 공기조화 프로세스를 설계, 해석하는데도 사용된다.
따라서, 습공기에 대한 이론적인 것을 살펴보고, 상태값을 계산하는 함수와 함께 습공기선도를 그리는 함수를 작성하는 프로그램을 만들었다.
프로그램 제작은 사용자 인터페이스가 좋은 윈도우 환경에서 쓸 수 있게 Visual Basic 6.0 Professional Version으로 하였다.

이 프로그램에 대한 등록증은 아래와 같다.
사용자 삽입 이미지

2010/04/182021/11/11

[VB]코드 생성기

프로그래밍을 하다보면 기계적으로 반복해야 할 일들이 생긴다. 이런 일들로 일일이 타이핑을 한다는 것은 매우 지루하고 따분한 일이다. 그래서 코드을 자동으로 생성하도록 할 필요가 생긴다.
곧 개발환경의 매크로를 이용하거나, Perl과 같은 문자열 처리기를 통하여 코드를 자동처리하도록 한다.
다음의 사이트도 그 중의 하나이다.

http://kimsk99.springnote.com/pages/63531
– 미리 지정된 텍스트를 현재 커서위치(실렉트된 것)에 삽입하는 매크로
– 현재 편집중인 파일과 같은 이름이고 확장자만 cpp <-> h 로 바뀐 파일을 열어주는 매크로

http://www.devpia.com/Maeul/Contents/Detail.aspx?BoardID=51&MAEULNo=20&no=8423&ref=8423
– 이름과 날짜를 입력
– 수평 라인 주석을 입력

Sub InsertHorizontalLine()
  Dim lineString = "//----------------------------------------------------------------------------" + vbCrLf
  Dim sel As TextSelection = DTE.ActiveDocument().Selection()
  sel.Text() = lineString
End Sub

Sub InsertHorizontalLine()

Dim lineString = "//----------------------------------------------------------------------------" + vbCrLf

Dim sel As TextSelection = DTE.ActiveDocument().Selection()

sel.Text() = lineString

End Sub

http://serious-code.net/tc/tag/Visual%20Studio%20Macro
– 선택된 라인들에서 중복된 라인들은 삭제하고 나머지를 정렬하기
– 자동으로 getter/setter생성하기

    ' Inserts name and date
Sub Signature()
  Dim sel As TextSelection = DTE.ActiveDocument.Selection
  sel.Insert("// Seungwoo Oh ")
  sel.Insert(Format(Date.Today, "yyyy-MM-dd"))
  sel.Insert(".")
End Sub

' Inserts name and date

Sub Signature()

Dim sel As TextSelection = DTE.ActiveDocument.Selection

sel.Insert("// Seungwoo Oh ")

sel.Insert(Format(Date.Today, "yyyy-MM-dd"))

sel.Insert(".")

End Sub

Function Strip(ByVal strLine As String)
If Len(strLine) > 0 Then
nBegin = 1
nEnd = Len(strLine)
For i = 1 To Len(strLine)
c = Mid(strLine, i, 1)
If c &lt;> " " And c &lt;> Tab And c &lt;> Lf And c &lt;> Cr Then
nBegin = i
Exit For
End If
Next
For i = 1 To Len(strLine)
c = Mid(strLine, Len(strLine) - i + 1, 1)
If c &lt;> " " And c &lt;> Tab And c &lt;> Lf And c &lt;> Cr Then
nEnd = Len(strLine) - i + 1
Exit For
End If
Next
Return Mid(strLine, nBegin, nEnd - nBegin + 1)
Else
Return ""
End If
End Function

Function Strip(ByVal strLine As String)

If Len(strLine) > 0 Then

nBegin = 1

nEnd = Len(strLine)

For i = 1 To Len(strLine)

c = Mid(strLine, i, 1)

If c <> " " And c <> Tab And c <> Lf And c <> Cr Then

nBegin = i

Exit For

End If

For i = 1 To Len(strLine)

c = Mid(strLine, Len(strLine) - i + 1, 1)

If c <> " " And c <> Tab And c <> Lf And c <> Cr Then

nEnd = Len(strLine) - i + 1

Exit For

End If

Return Mid(strLine, nBegin, nEnd - nBegin + 1)

Else

Return ""

End If

End Function

Sub SortCollection(ByRef oCollection As Collection, Optional ByVal bSortAscending As Boolean = True)
    Dim lSort1 As Integer
    Dim lSort2 As Integer
    Dim vTempItem1 As Object Dim vTempItem2 As Object Dim bSwap As Boolean

    For lSort1 = 1 To oCollection.Count - 1
        For lSort2 = lSort1 + 1 To oCollection.Count
            If bSortAscending Then
                If oCollection(lSort1) > oCollection(lSort2) Then
                    bSwap = True
                Else
                    bSwap = False
                End If
            Else
                 If oCollection(lSort1) &lt; oCollection(lSort2) Then
                    bSwap = True
                Else
                    bSwap = False
                End If
            End If
            If bSwap Then
                vTempItem1 = oCollection(lSort1)
                vTempItem2 = oCollection(lSort2)
                oCollection.Add(vTempItem1, Nothing, lSort2)
                oCollection.Add(vTempItem2, Nothing, lSort1)
                oCollection.Remove(lSort1 + 1)
                oCollection.Remove(lSort2 + 1)
            End If
        Next
    Next
End Sub

Sub SortCollection(ByRef oCollection As Collection, Optional ByVal bSortAscending As Boolean = True)

Dim lSort1 As Integer

Dim lSort2 As Integer

Dim vTempItem1 As Object Dim vTempItem2 As Object Dim bSwap As Boolean

For lSort1 = 1 To oCollection.Count - 1

For lSort2 = lSort1 + 1 To oCollection.Count

If bSortAscending Then

If oCollection(lSort1) > oCollection(lSort2) Then

bSwap = True

Else

bSwap = False

End If

Else

 If oCollection(lSort1) < oCollection(lSort2) Then

bSwap = True

Else

bSwap = False

End If

If bSwap Then

vTempItem1 = oCollection(lSort1)

vTempItem2 = oCollection(lSort2)

oCollection.Add(vTempItem1, Nothing, lSort2)

oCollection.Add(vTempItem2, Nothing, lSort1)

oCollection.Remove(lSort1 + 1)

oCollection.Remove(lSort2 + 1)

End If

End Sub

Sub SortAndRemoveDuplicatedLine()
  Dim objLines As New Collection Dim objSel As TextSelection = ActiveDocument().Selection
  Dim objRanges As TextRanges = objSel.TextRanges Dim objStartPt As EditPoint = objRanges.Item(1).StartPoint.CreateEditPoint()
  Dim objStream As New StringBuilder

  For Each strLine In objSel.Text.Split(Lf)
    strLine = Strip(strLine)
    If objLines.Contains(strLine) = False Then
      objLines.Add(strLine, strLine)
    End If
  Next
  SortCollection(objLines)
  For Each strLine In objLines
    objStream.AppendLine(strLine)
  Next
  objSel.Text = ""
  objStartPt.Insert(objStream.ToString())
End Sub

Sub SortAndRemoveDuplicatedLine()

Dim objLines As New Collection Dim objSel As TextSelection = ActiveDocument().Selection

Dim objRanges As TextRanges = objSel.TextRanges Dim objStartPt As EditPoint = objRanges.Item(1).StartPoint.CreateEditPoint()

Dim objStream As New StringBuilder

For Each strLine In objSel.Text.Split(Lf)

strLine = Strip(strLine)

If objLines.Contains(strLine) = False Then

objLines.Add(strLine, strLine)

End If

SortCollection(objLines)

For Each strLine In objLines

objStream.AppendLine(strLine)

objSel.Text = ""

objStartPt.Insert(objStream.ToString())

End Sub

Using Visual Studio .NET Macros

속성을 위한 매크로

2009/06/142017/10/12

[VBA]VBA에서 엑셀함수 사용하기

엑셀 함수는 VBA 함수보다 훨씬 다양한 분야에 많은 함수들을 보유하고 있다.
앞서 살펴본 것처럼, 삼각함수 분야에도 많은 역함수를 보유하고 있다. 더군다나 스프레드시트 프로그램으로서 당연히 갖추어야 하는 함수도 많이 보유하고 있다. 예를 들면 다음과 같다.

area = Application.WorksheetFunction.Pi * radius ^ 2
a = Application.WorksheetFunction.Acos(b)
Set myRange = Application.Worksheets("Sheet1").Range("C1:C60")
mySum = Application.WorksheetFunction.Sum(myRange)

area = Application.WorksheetFunction.Pi * radius ^ 2

a = Application.WorksheetFunction.Acos(b)

Set myRange = Application.Worksheets("Sheet1").Range("C1:C60")

mySum = Application.WorksheetFunction.Sum(myRange)

첫줄은 원주율을 참조한 것이고, 둘째줄은 코사인 역함수를 호출하여 사용한 것이다.
셋째줄은 워크시트 내의 특정범위를 설정한 것이며, 네째줄에서 이 범위에 대한 합을 엑셀함수를 이용하여 구했다.

또 다른 방법으로는 Evaluate 메소드를 사용하는 것이다.

mySum = Evaluate("=Sum(C1:C60)")

1	mySum = Evaluate("=Sum(C1:C60)")