Alt + F8 : 매크로의 메뉴의 실행
Alt + F11 : Visual Basic 편집기를 기동한다
 

Alt + F11 : Excel을 기동한다
Alt + Q : 종료하고 Excle로 돌아간다
Ctrl + → : 오른쪽 단어로 이동한다
Ctrl + ← : 왼쪽 단어로 이동한다
Ctrl + ↑ : 앞 프로시저
Ctrl + ↓ : 다음 프로시저
Ctrl + A : 모두 선택
Ctrl + Alt + A : 입력 후보
Ctrl + Break : 중단
Ctrl + Delete : 단어의 끝까지 삭제한다
Ctrl + E : 파일의 내보내기
Ctrl + End : 모듈의 끝으로 이동한다
Ctrl + F : 찾기(검색)
Ctrl + F2 : 북 마크를 바꾸다
Ctrl + F8 : 커서의 앞까지 실행
Ctrl + H : 이미디에이트 윈도
Ctrl + G : 교체
Ctrl + Home : 모듈의 처음으로 이동한다
Ctrl + I : 퀵 세트
Ctrl + J : 속성/메서드의 일람
Ctrl + N : 파일 가져오기
Ctrl + P : 인쇄
Ctrl + PgDn : 한 화면 아래로
Ctrl + PgUp : 한 화면 위로
Ctrl + Q : 반복한다
Ctrl + R : 프로젝트 탐색기
Ctrl + S : 저장
Ctrl+Shift+F2 : 원래의 위치로 이동
Ctrl+Shift+F9 : 모든 브레이크 포인트 해체
Ctrl+Shift+F8 : 스텝 아웃
Ctrl+Shift+I : 피라미터 힌트
Ctrl+Shift+J : 상수의 일람
Ctrl+Spacebar : 입력 후보
Ctrl + V : 붙이기
Ctrl + W : 조사식의 편집
Ctrl + Y : 현재 행을 삭제한다
Ctrl + Z : 원래대로 돌아간다
 

Sub variableSecondDemo()
    Dim 변수1    As Long
    변수1 = 20
    Dim 변수2    As String
    변수2 = "홍길동"
    Dim 변수3    As String
    변수3 = 변수2 & "님의 나이는 " & 변수1 & "세 입니다"
    MsgBox 변수3
End Sub

'전역변수/Const가 붙으면 전역상수
Public 파이 As Double

Sub 상수사용3()
    '파이 = 3.14
    Debug.Print "상수사용3"
    Debug.Print 파이
End Sub


Sub 상수사용4()
    파이 = 3.14
    Debug.Print "상수사용4"
    Debug.Print 파이
End Sub

Sub SetExample()
    ' Worksheet 객체를 변수에 할당
    ' 여기서 우리는 'Sheet1'과 'Sheet2'를 선택해서 ws와 ws2라는 변수에 저장할 거예요.
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim ws2 As Worksheet
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 변수 ws를 사용하여 셀 A1의 값을 변경
    ' ws는 'Sheet1'을 가리키니까, 'Sheet1'의 A1 셀에 "Hello, World!"라고 쓸 거예요.
    ws.Range("A1").Value = "Hello, World!"
    
    ' 다른 셀의 값을 변경
    ' 이번에는 'Sheet1'의 B1 셀에 "VBA Set Example"이라고 쓸 거예요.
    ws.Range("B1").Value = "VBA Set Example"
    
    ' 변수 ws2를 사용하여 셀 A1의 값을 변경
    ' ws2는 'Sheet2'를 가리키니까, 'Sheet2'의 A1 셀에 "Hello, World!"라고 쓸 거예요.
    ws2.Range("A1").Value = "Hello, World!"
    
    ' 다른 셀의 값을 변경
    ' 이번에는 'Sheet2'의 B1 셀에 "VBA Set Example"이라고 쓸 거예요.
    ws2.Range("B1").Value = "VBA Set Example"
    
    ' 객체 해제 (Optional, 권장)
    ' 마지막으로, 우리가 사용한 ws와 ws2를 더 이상 사용하지 않겠다고 선언하는 거예요.
    Set ws = Nothing
    Set ws2 = Nothing
End Sub

Sub ElseIfExample()
    Dim grade As String
    grade = "B"
    
    If grade = "A" Then
        MsgBox "우수한 성적입니다."
    ElseIf grade = "B" Then
        MsgBox "좋은 성적입니다."
    ElseIf grade = "C" Then
        MsgBox "평균적인 성적입니다."
    Else
        MsgBox "노력이 필요합니다."
    End If
End Sub

Sub ProcessUserInput()
    Dim age As Integer
    Dim inputStr As String
    
    ' 사용자로부터 나이 입력 받기
    inputStr = InputBox("나이를 입력하세요:", "나이 입력")
    
    ' 입력값이 숫자인지 확인
    If IsNumeric(inputStr) Then
        age = CInt(inputStr)  ' 문자열을 정수로 변환
        
        ' 나이에 따른 메시지 출력
        If age < 20 Then
            MsgBox "당신은 청소년입니다.", vbInformation, "나이 확인"
        ElseIf age >= 20 And age < 60 Then
            MsgBox "당신은 성인입니다.", vbInformation, "나이 확인"
        Else
            MsgBox "당신은 어르신입니다.", vbInformation, "나이 확인"
        End If
    Else
        MsgBox "올바른 나이를 입력하지 않았습니다.", vbExclamation, "오류"
    End If
End Sub

Sub SimpleWorksheetsExample()
    ' 1. 새 워크시트 추가하기
    Worksheets.Add
    MsgBox "새 워크시트가 추가되었습니다."
    
    ' 2. 워크시트 이름 변경하기
    ActiveSheet.Name = "내 첫 번째 시트"
    MsgBox "새 워크시트의 이름이 '내 첫 번째 시트'로 변경되었습니다."
    
    ' 3. 특정 워크시트 선택하기
    Worksheets("Sheet1").Select
    MsgBox "Sheet1이 선택되었습니다."
    
    ' 4. 선택된 워크시트에 데이터 입력하기
    Range("A1").Value = "안녕하세요!"
    Range("A2").Value = "VBA 배우기"
    MsgBox "A1과 A2 셀에 텍스트가 입력되었습니다."
    
    ' 5. 모든 워크시트 이름 보여주기
    Dim sheetNames As String
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        sheetNames = sheetNames & ws.Name & vbNewLine
    Next ws
    
    MsgBox "현재 워크북의 모든 워크시트:" & vbNewLine & sheetNames
    
    ' 6. 마지막 워크시트 선택하기
    Worksheets(Worksheets.Count).Select
    MsgBox "마지막 워크시트가 선택되었습니다."
End Sub

A열 합계: 325
B열 평균: 42.5
Cherry의 색상: 보라

Option Explicit

' API 키와 URL을 상수로 정의
Private Const API_KEY As String = "APIKEY 입력" '<= APIKEY 입력
Private Const API_URL As String = "https://api.openai.com/v1/chat/completions"
Private Const DEFAULT_MODEL As String = "gpt-3.5-turbo"
Private Const DEFAULT_MAX_TOKENS As Long = 2000

Public Function CallGPT(prompt As String, Optional temperature As Double = 0, Optional maxTokens As Long = DEFAULT_MAX_TOKENS) As String
    On Error GoTo ErrorHandler
    
    If Trim(prompt) = "" Then
        CallGPT = ""
        Exit Function
    End If
    
    Dim headers As Variant
    headers = Array( _
        Array("Content-Type", "application/json"), _
        Array("Authorization", "Bearer " & API_KEY) _
    )
    
    Dim requestBody As String
    requestBody = CreateRequestBody(prompt, temperature, maxTokens)
    
    Dim response As String
    response = SendHttpRequest(API_URL, requestBody, headers, "POST")
    
    If InStr(1, response, """error"":") = 0 Then
        Dim convertedText As String
        
        convertedText = ExtractContentFromJSON(response)
        
        ' JSON 이스케이프 문자 처리
        convertedText = Replace(convertedText, "\""", """")  ' 큰따옴표
        convertedText = Replace(convertedText, "\n", vbNewLine)  ' 줄바꿈
        convertedText = Replace(convertedText, "\r", vbNewLine)  ' 캐리지 리턴
        convertedText = Replace(convertedText, "\t", vbTab)  ' 탭
        convertedText = Replace(convertedText, "\/", "/")  ' 슬래시
        
        'Debug.Print "convertedText: " & convertedText
        
        CallGPT = convertedText
    Else
        CallGPT = "#Error: " & ExtractErrorMessage(response)
    End If
    
    Exit Function
    
ErrorHandler:
    CallGPT = "#Error: " & Err.Description
End Function

' 셀 서식을 지정하는 별도의 서브루틴
Public Sub FormatGPTResultCell(cell As Range)
    With cell
        .Font.Italic = True
        .Font.Size = 10
        .WrapText = True ' 텍스트 줄바꿈 설정
    End With
    
    ' AutoFit 적용
    cell.EntireRow.AutoFit
    cell.EntireColumn.AutoFit
End Sub

Public Function CallGPTList(prompt As String, Optional temperature As Double = 0, Optional maxTokens As Long = DEFAULT_MAX_TOKENS) As Variant
    Dim response As String
    Dim lines() As String
    Dim result() As Variant
    Dim i As Long
    
    ' CallGPT 함수를 사용하여 응답 얻기
    response = CallGPT(prompt, temperature, maxTokens)
    
    ' 응답을 줄 단위로 분리
    lines = Split(response, vbLf)
    
    ' 결과 배열 크기 설정
    ReDim result(1 To UBound(lines) + 1, 1 To 1)
    
    ' 각 줄을 배열에 입력
    For i = LBound(lines) To UBound(lines)
        result(i + 1, 1) = Trim(lines(i))
    Next i
    
    ' 결과 반환
    CallGPTList = result
End Function

' HTTP 요청을 보내는 함수
Private Function SendHttpRequest(url As String, body As String, headers As Variant, method As String) As String
    Dim http As Object
    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    
    http.Open method, url, False
    
    Dim header As Variant
    For Each header In headers
        http.setRequestHeader header(0), header(1)
    Next header
    
    http.send body
    
    SendHttpRequest = http.responseText
End Function

' 요청 본문(JSON) 생성 함수
Private Function CreateRequestBody(prompt As String, temperature As Double, maxTokens As Long) As String
    prompt = Replace(Replace(Replace(Replace(prompt, Chr(10), "\n"), Chr(13), "\n"), Chr(9), "\t"), """", "\""")
    
    CreateRequestBody = "{"
    CreateRequestBody = CreateRequestBody & """model"": """ & DEFAULT_MODEL & """, "
    CreateRequestBody = CreateRequestBody & """messages"": [{""role"": ""user"", ""content"": """ & prompt & """}], "
    CreateRequestBody = CreateRequestBody & """temperature"": " & temperature & ", "
    CreateRequestBody = CreateRequestBody & """max_tokens"": " & maxTokens
    CreateRequestBody = CreateRequestBody & "}"
End Function

' 에러 메시지 추출 함수
Private Function ExtractErrorMessage(response As String) As String
    Dim jsonObject As Object
    Set jsonObject = ParseJsonResponse(response)
    
    If Not jsonObject Is Nothing Then
        If jsonObject.Exists("error") Then
            If jsonObject("error").Exists("message") Then
                ExtractErrorMessage = jsonObject("error")("message")
                Exit Function
            End If
        End If
    End If
    
    ExtractErrorMessage = "에러 메시지를 추출할 수 없습니다."
End Function

Function ExtractContentFromJSON(jsonText As String) As String
    Dim contentStart As Long
    Dim contentEnd As Long
    Dim nestLevel As Long
    Dim i As Long
    Dim char As String
    
    If Trim(jsonText) = "" Then
        ExtractContentFromJSON = "Error: Empty JSON string"
        Exit Function
    End If
    
    contentStart = InStr(1, jsonText, """content""", vbTextCompare)
    
    If contentStart = 0 Then
        ExtractContentFromJSON = "Error: 'content' key not found in JSON"
        Exit Function
    End If
    
    contentStart = InStr(contentStart + 8, jsonText, ":") + 1
    
    ' Skip whitespace
    Do While Mid(jsonText, contentStart, 1) = " "
        contentStart = contentStart + 1
    Loop
    
    If Mid(jsonText, contentStart, 1) = """" Then
        ' Content is a simple string
        contentStart = contentStart + 1
        contentEnd = InStr(contentStart, jsonText, """")
        If contentEnd = 0 Then
            ExtractContentFromJSON = "Error: Closing quote for 'content' not found"
        Else
            ExtractContentFromJSON = Mid(jsonText, contentStart, contentEnd - contentStart)
        End If
    Else
        ' Content might be an object or array
        nestLevel = 1
        For i = contentStart To Len(jsonText)
            char = Mid(jsonText, i, 1)
            If char = "{" Or char = "[" Then
                nestLevel = nestLevel + 1
            ElseIf char = "}" Or char = "]" Then
                nestLevel = nestLevel - 1
                If nestLevel = 0 Then
                    contentEnd = i
                    Exit For
                End If
            End If
        Next i
        
        If contentEnd = 0 Then
            ExtractContentFromJSON = "Error: Closing bracket for 'content' not found"
        Else
            ExtractContentFromJSON = Mid(jsonText, contentStart, contentEnd - contentStart)
        End If
    End If
End Function



' 새로운 함수: Range를 JSON으로 변환하여 GPT에 전송
Public Function CallGPTWithRange(rng As Range, prompt As String, Optional temperature As Double = 0, Optional maxTokens As Long = DEFAULT_MAX_TOKENS) As String
    On Error GoTo ErrorHandler
    
    Application.EnableEvents = False
    
    Dim jsonData As String
    jsonData = RangeToJSON(rng)
    
    Dim fullPrompt As String
    fullPrompt = prompt & vbNewLine & "데이터:" & vbNewLine & jsonData
    
    'Debug.Print fullPrompt
    
    CallGPTWithRange = CallGPT(fullPrompt, temperature, maxTokens)
    
    'Debug.Print "CallGPTWithRange: " & CallGPTWithRange
    
    Application.EnableEvents = True
    Exit Function
    
ErrorHandler:
    CallGPTWithRange = "#Error: " & Err.Description
    Application.EnableEvents = True
End Function

' Range를 JSON으로 변환하는 함수
Private Function RangeToJSON(rng As Range) As String
    Dim row As Range, cell As Range
    Dim i As Long, j As Long
    Dim result As String
    Dim headers() As String
    
    ' 헤더 추출
    ReDim headers(1 To rng.Columns.Count)
    For j = 1 To rng.Columns.Count
        headers(j) = rng.Cells(1, j).value
    Next j
    
    result = "["
    
    ' 데이터 행 처리
    For i = 2 To rng.Rows.Count
        If i > 2 Then result = result & ","
        result = result & "{"
        
        For j = 1 To rng.Columns.Count
            If j > 1 Then result = result & ","
            result = result & """" & headers(j) & """:""" & Replace(rng.Cells(i, j).value, """", "\""") & """"
        Next j
        
        result = result & "}"
    Next i
    
    result = result & "]"
    
    RangeToJSON = result
End Function


Sub AnalyzeSelectedData()
    On Error GoTo ErrorHandler
    
    'Debug.Print "AnalyzeSelectedData"
    
    Dim sht As Worksheet
    Dim shtResult As Worksheet
    Dim rngDb As Range
    Dim lastRow As Long
    Dim prompt As String
    Dim result As String
    
    ' 구입목록 시트 설정
    Set sht = ThisWorkbook.Sheets("구입목록")
    
    ' A열의 마지막 데이터가 있는 행 찾기
    lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).row
    
    ' A3부터 H열까지, 마지막 데이터가 있는 행까지의 범위 설정
    Set rngDb = sht.Range("A3:H" & lastRow)
   
    ' GPT 분석 결과 시트 설정 (없으면 새로 만듦)
    On Error Resume Next
    Set shtResult = ThisWorkbook.Sheets("GPT 분석 결과")
    On Error GoTo 0
    If shtResult Is Nothing Then
        Set shtResult = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        shtResult.Name = "GPT 분석 결과"
    End If
    
    ' 프롬프트 가져오기
    prompt = shtResult.Range("B3").value
    
    'Debug.Print "Prompt: " & prompt
    
    ' GPT 분석 실행
    result = CallGPTWithRange(rngDb, prompt)
    
    'Debug.Print "Result: " & result
    
    ' 결과 출력
    shtResult.Range("B6").value = result
    
    MsgBox "분석이 완료되었습니다. 'GPT 분석 결과' 시트를 확인해 주세요.", vbInformation
    
    Exit Sub
    
ErrorHandler:
    MsgBox "오류 발생: " & Err.Description, vbCritical
End Sub


Sub RunGPTList()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim prompt As String
    Dim temperature As Double
    Dim result As Variant
    
    ' B3 셀에서 프롬프트를 가져옵니다
    prompt = ws.Range("B3").value
    
    ' B4 셀에서 temperature를 가져옵니다 (옵션)
    temperature = ws.Range("B4").value
    
    ' CallGPTList 함수를 호출합니다
    result = CallGPTList(prompt, temperature)
    
    ' 결과를 B6 셀부터 출력합니다
    ws.Range("B6").Resize(UBound(result), 1).value = result
    
    ' 결과 셀의 서식을 지정합니다
    Dim resultRange As Range
    Set resultRange = ws.Range("B6").Resize(UBound(result), 1)
    
    Dim cell As Range
    For Each cell In resultRange
        FormatGPTResultCell cell
    Next cell
    
    MsgBox "GPT 응답이 B6에 출력되었습니다.", vbInformation
End Sub

Sub CallGPTButton()
    On Error GoTo ErrorHandler
    
    Dim ws As Worksheet
    Dim prompt As String
    Dim temperature As Double
    Dim result As String
    
    ' 현재 활성 워크시트 설정
    Set ws = ActiveSheet
    
    ' B3 셀에서 프롬프트 가져오기
    prompt = ws.Range("B3").value
    
    ' 프롬프트가 비어있는지 확인
    If Trim(prompt) = "" Then
        MsgBox "프롬프트를 B3 셀에 입력해주세요.", vbExclamation
        Exit Sub
    End If
    
    ' B4 셀에서 temperature 값 가져오기 (옵션)
    If IsNumeric(ws.Range("B4").value) Then
        temperature = CDbl(ws.Range("B4").value)
    Else
        temperature = 0 ' 기본값 설정
    End If
    
    ' CallGPT 함수 호출
    result = CallGPT(prompt, temperature)
    
    ' 결과 확인
    If Left(result, 6) = "#Error" Then
        MsgBox "GPT 분석 중 오류가 발생했습니다: " & result, vbCritical
    Else
        ' 결과를 B6 셀에 출력
        ws.Range("B6").value = result
        MsgBox "GPT 분석이 완료되었습니다. B6 셀에서 결과를 확인하세요.", vbInformation
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "오류 발생: " & Err.Description, vbCritical
End Sub