엑셀 매크로(VB)와 사랑에 빠지다.

요즘 엑셀 매크로에 관심을 갖게 되어 자주 VB 소스 코드를 훑어보고 있다.
자바에 대한 배신은 아니다. 흠.

http://office.microsoft.com/ko-kr/excel-help/HP010014111.aspx

1. 개발 도구 탭을 사용할 수 없으면 다음을 실행하여 표시합니다.
1. Microsoft Office 단추 를 클릭한 다음 Excel 옵션을 클릭합니다.

2. 기본 설정 범주의 Excel에서 가장 많이 사용하는 옵션에서 리본 메뉴에 개발 도구 탭 표시 확인란을 선택한 다음 확인을 클릭합니다.

첫번 째 샘플
특정 셀들의 값을 이용해서 INSERT 구문을 만든다.


Sub createsql()

Dim startIndex As Integer
Dim endIndex As Integer
Dim sqlColumn As Integer
Dim msgCode As String
Dim trCd As String
Dim description As String


sqlColumn = 7

For intRow = 7 To 494
    msgCode = fixMsgCode(Cells(intRow, 1).Value)
    trCd = Cells(intRow, 2).Value
    description = Cells(intRow, 4).Value
    Cells(intRow, sqlColumn).Value = "insert into U_TR_CODE_MAPPING (MSG_CODE, TR_CD, DESCRIPTION) values ('" & msgCode & "', '" & trCd & "', '" + description + "');"
Next



End Sub

Function fixMsgCode(msgCode As String) As String


Dim msgLen As Integer

msgLen = Len(msgCode)
If msgLen > 8 Then
    fixMsgCode = Right(msgCode, 8)
Else
    fixMsgCode = msgCode
End If

End Function



엑셀 서식 함수
=TEXT(NOW(), "yyyymmdd")  : 현재일을  yyyymmdd 포맷으로 변환