[ChatGPT 활용] ChatGPT를 활용한 VBA, VBS 생성

1. VBA (Visual Basic for Application)

Microsoft에서 개발한 프로그래밍 언어입니다.

 

1-1 VBA의 기능

주로 Microsoft Office 애플리케이션(Excel, Word, Access 등)의 자동화 작업을 위해 사용됩니다.

 

VBA는 Visual Basic 언어를 기반으로 하며, 사용자가 매크로를 작성하거나

복잡한 반복 작업을 자동화할 수 있게 해줍니다.

 

2. VBS (Visual Basic Script)

VBS(Visual Basic Script)는 Microsoft에서 개발한 스크립트 언어입니다. 

 

2-1 VBS의 기능

주로 Windows 환경에서의 자동화 작업을 수행하는 데 사용됩니다.

 

VBScript는 VB (Visual Basic) 언어를 기반으로 하며,

간단한 스크립트 작성으로 파일 조작, 시스템 관리, 웹 브라우저 제어 등을 할 수 있습니다.

 

3. ChatGPT를 활용한 VBA ,VBS 생성하는 방법

3-1 성적처리 (VBA)

• 업무 설명

score.xlsx 파일내의 성적데이터를 활용해 개인별 총점, 과목별 총점, 석차를 출력해보자 

 

• 프롬포트

학생들의 국어, 영어, 수학 점수를 활용하여 개인총점, 과목총점, 석차를 출력해 주는 VBA 코드를 작성해줘.

단, 8행은 연산에서 제외하고 과목총점은 B8셀에서 D8셀에 출력해 줘

 

• 결과 (VBA 코드) 

Sub CalculateScores()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim scores() As Long
    Dim tempScore As Long
    
    ' 현재 워크시트를 변수로 설정
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 마지막 행을 찾음 (가장 아래 데이터가 있는 행)
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 각 학생의 개인 총점을 계산하여 E열에 입력
    For i = 2 To lastRow
        If i <> 8 Then ' 8행을 제외
            ws.Cells(i, 5).Value = ws.Cells(i, 2).Value + ws.Cells(i, 3).Value + ws.Cells(i, 4).Value
        End If
    Next i
    
    ' 국어, 영어, 수학의 과목 총점을 B8, C8, D8 셀에 입력
    ws.Cells(8, 2).Value = Application.WorksheetFunction.Sum(ws.Range("B2:B" & lastRow)) - ws.Cells(8, 2).Value
    ws.Cells(8, 3).Value = Application.WorksheetFunction.Sum(ws.Range("C2:C" & lastRow)) - ws.Cells(8, 3).Value
    ws.Cells(8, 4).Value = Application.WorksheetFunction.Sum(ws.Range("D2:D" & lastRow)) - ws.Cells(8, 4).Value
    
    ' 석차를 계산하여 F열에 입력
    ReDim scores(2 To lastRow)
    For i = 2 To lastRow
        If i <> 8 Then
            scores(i) = ws.Cells(i, 5).Value
        End If
    Next i
    
    For i = 2 To lastRow
        If i <> 8 Then
            tempScore = scores(i)
            ws.Cells(i, 6).Value = 1
            For j = 2 To lastRow
                If j <> 8 And tempScore < scores(j) Then
                    ws.Cells(i, 6).Value = ws.Cells(i, 6).Value + 1
                End If
            Next j
        End If
    Next i
    
    MsgBox "점수 계산 및 석차 산출이 완료되었습니다."
End Sub

 

 

• 코드를 활용한 엑셀표 

 

 

3-2 성적처리 (VBS)

• 업무 설명

score.xlsx 파일내의 성적데이터를 활용해 개인별 총점, 과목별 총점, 석차를 출력해보자 

 

• 프롬포트

학생들의 국어, 영어, 수학 점수를 활용하여 개인총점, 과목총점, 석차를 출력해 주는 VBScript를 작성해줘.

단, 8행은 연산에서 제외하고 과목총점은 B8셀에서 D8셀에 출력해 줘

 

 

• 결과 (VBS 코드)

' Excel 애플리케이션 객체 생성
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

' Excel 워크북 열기 (경로를 수정하여 사용하세요)
Set objWorkbook = objExcel.Workbooks.Open("C:\경로\파일명.xlsx")

' 첫 번째 시트 선택
Set objSheet = objWorkbook.Sheets(1)

' 마지막 행 계산
lastRow = objSheet.Cells(objSheet.Rows.Count, "A").End(-4162).Row ' -4162는 xlUp 상수

' 개인 총점 계산 (8행 제외)
For i = 2 To lastRow
    If i <> 8 Then
        totalScore = objSheet.Cells(i, 2).Value + objSheet.Cells(i, 3).Value + objSheet.Cells(i, 4).Value
        objSheet.Cells(i, 5).Value = totalScore
    End If
Next

' 과목 총점 계산 (8행 제외)
korTotal = 0
engTotal = 0
mathTotal = 0

For i = 2 To lastRow
    If i <> 8 Then
        korTotal = korTotal + objSheet.Cells(i, 2).Value
        engTotal = engTotal + objSheet.Cells(i, 3).Value
        mathTotal = mathTotal + objSheet.Cells(i, 4).Value
    End If
Next

objSheet.Cells(8, 2).Value = korTotal
objSheet.Cells(8, 3).Value = engTotal
objSheet.Cells(8, 4).Value = mathTotal

' 석차 계산 (8행 제외)
Dim scores()
ReDim scores(2 To lastRow)

For i = 2 To lastRow
    If i <> 8 Then
        scores(i) = objSheet.Cells(i, 5).Value
    End If
Next

For i = 2 To lastRow
    If i <> 8 Then
        rank = 1
        For j = 2 To lastRow
            If j <> 8 And scores(i) < scores(j) Then
                rank = rank + 1
            End If
        Next
        objSheet.Cells(i, 6).Value = rank
    End If
Next

' 메시지 출력
MsgBox "점수 계산 및 석차 산출이 완료되었습니다."

' Excel 워크북 저장 후 닫기
objWorkbook.Save
objWorkbook.Close False

' Excel 애플리케이션 종료
objExcel.Quit

' 객체 해제
Set objSheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing

 

 

• VBS를 활용한 엑셀표 

 

 

봐주신 분들 모두 감사합니다.