Re:vba코드 좀 봐주세요(글번호 1089관련)

[윤슬]

안녕하세요?  [고수가되고파]님...

먼저 다른분들도 궁금해 하실만한 질문을 예제를 통해 해 주셔서 공부할 소재제공에

감사의 말씀을 드립니다.

더불어 한가지 부탁말씀드리고자 합니다.

이전 질문과 답변에 계속된 연관된 질문은 해당질문의 댓글이나 답글로 계속 진행해

주셨으면 합니다.

훗날 다른분들이 이와 관련된 내용을 계속 추적해서 보고 익히고자 한다면 게시물을

이곳, 저곳에서 찾아봐야 하기 때문입니다.

효율적인 데이터 관리, 게시판 관리를 위해 협조말씀 부탁드립니다.

질문하신 내용은 [VBA 강좌]를 보고 조금 공부해 보시면 금방 익히고 수정하실 수 있는

내용입니다.

VBA에 관심이 많고 또 업무자동화에 관심이 많으시면 [VBA 강좌]를 보시고 공부를 해

보시길 권합니다.

아래는 첨부파일에 사용된 코드입니다.

Option Explicit

Sub Test()

Dim j As Long

Dim i As Long

Dim Col_Num As Long

Dim Sh As Worksheet

Application.ScreenUpdating = False

Set Sh = Worksheets("계약내역서")

j = Application.InputBox("삽입할 시작 행을 입력하세요", Type:=1)

Col_Num = Sh.Cells(Rows.Count, 1).End(xlUp).CurrentRegion.Columns.Count

i = Sh.Cells(Rows.Count, 1).End(xlUp).Row

Sh.Cells(j, Col_Num).Value = 1

Sh.Cells(j, Col_Num).AutoFill Sh.Cells(j, Col_Num).Resize(i), xlFillSeries

Sh.Cells(j, 1).CurrentRegion.Copy Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1)

If Cells(j, 1).Font.Color <> 255 Then

    Sh.Cells(j + i, 1).Resize(i, 13).Font.Color = vbRed

Else

    Sh.Cells(j + i, 1).Resize(i, 13).Font.Color = vbBlack

End If

Sh.Sort.SortFields.Clear

Sh.Sort.SortFields.Add Sh.Cells(j, Col_Num), xlSortOnValues, xlAscending, xlSortNormal

Sh.Sort.SetRange Sh.Range(Sh.Cells(j, 1), Sh.Cells(Rows.Count, Col_Num).End(xlUp))

Sh.Sort.Apply

Sh.Columns(Col_Num - 1).Copy Sh.Columns(Col_Num)

Sh.Columns(Col_Num).ClearContents

Application.ScreenUpdating = True

MsgBox "설계변경 내역서 작성 완료...!", vbInformation, "엑셀전문가클럽 http://cafe.daum.net/funnyexcel"

End Sub

자세한 내용은 첨부파일을 참고로...

그럼 잘 해결되시길...   ^^*

====================================================================================

첨부파일

120827_설계변경내역서_작성2.xlsm

====================================================================================

[고수가되고파]

넵, 알겠습니다.