728x90 SMALL 엑셀9 엑셀 VBA를 사용하여 작성되었으며, GPT-3.5 API에 대한 요청 및 응답 처리를 수행합니다. 먼저, 사용자 인증 정보와 GPT-3.5 API 요청을 위한 필수 매개변수를 설정합니다. ' 사용자 인증 정보 Const API_KEY As String = "your_api_key" ' GPT-3.5 API 요청을 위한 필수 매개변수 Const API_URL As String = "https://api.openai.com/v1/engines/davinci-codex/completions" Const API_MODEL As String = "davinci-codex" Const API_MAX_TOKENS As Long = 150 Const API_STOP_SEQUENCE As String = vbNewLine 다음으로, 사용자가 입력한 텍스트를 GPT-3.5 API에 전송하여 응답을 받아오는 함수를 작성.. 2023. 4. 14. 엑셀 파일에서 특정 셀에 있는 값에 따라서 조건부 서식을 적용하는 매크로 엑셀 파일을 엽니다. [개발] 탭에서 [Visual Basic]을 클릭합니다. [삽입] -> [모듈] 을 클릭하여 새 모듈을 추가합니다. 다음 코드를 입력합니다. Sub 조건부_서식_적용() ' 조건부 서식 매크로 Dim ws As Worksheet Dim applyRange As Range Dim cell As Range ' 적용할 범위 지정 Set ws = ThisWorkbook.Sheets("Sheet1") Set applyRange = ws.Range("A1:C10") ' 조건부 서식 적용 For Each cell In applyRange If cell.Value > 50 Then cell.Interior.ColorIndex = 3 ' 빨강색 배경 적용 cell.Font.Bold = True ' .. 2023. 4. 14. 엑셀 파일에서 여러 시트에 걸쳐 있는 데이터를 하나의 시트로 합치는 매크로 엑셀 파일에서 여러 시트에 걸쳐 있는 데이터를 하나의 시트로 합치는 매크로를 만들어 보겠습니다. 엑셀 파일을 엽니다. [개발] 탭에서 [Visual Basic]을 클릭합니다. [삽입] -> [모듈] 을 클릭하여 새 모듈을 추가합니다. 다음 코드를 입력합니다. Sub 데이터_합치기() ' 데이터 합치기 매크로 Dim ws As Worksheet Dim data As Variant Dim newData As Variant Dim lastRow As Long, lastCol As Long Dim i As Long, j As Long, k As Long ' 새로운 시트 추가 Set ws = ThisWorkbook.Sheets.Add ws.Name = "Combined Data" k = 1 ' 모든 시트에서 데이.. 2023. 4. 14. 엑셀 파일에서 특정 행을 찾아서 그 행을 삭제하는 매크로 엑셀 파일을 엽니다. [개발] 탭에서 [Visual Basic]을 클릭합니다. [삽입] -> [모듈] 을 클릭하여 새 모듈을 추가합니다. 다음 코드를 입력합니다. Sub 특정_행_삭제() ' 특정 행 삭제 매크로 Dim ws As Worksheet Dim rowNum As Long Dim lastRow As Long ' 시트와 행 번호를 입력 Set ws = ThisWorkbook.Sheets("Sheet1") rowNum = 5 ' 마지막 행 번호 확인 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 특정 행 삭제 If rowNum >= 1 And rowNum 2023. 4. 14. 엑셀 파일에 있는 데이터를 읽어와서 특정 조건에 맞는 데이터를 필터링하여 새로운 시트에 저장 매크로 엑셀 파일에 있는 데이터를 읽어와서 특정 조건에 맞는 데이터를 필터링하여 새로운 시트에 저장하는 매크로를 만들어 보겠습니다. Sub 데이터_필터링() ' 데이터 필터링 매크로 Dim ws As Worksheet Dim data As Variant Dim newData As Variant Dim i As Long, j As Long Dim criteria As String ' 원본 데이터를 배열에 저장 Set ws = ThisWorkbook.Sheets("Sheet1") data = ws.Range("A1").CurrentRegion.Value ' 필터링 조건 설정 criteria = "F" ' 필터링된 데이터를 새로운 시트에 저장 Set ws = ThisWorkbook.Sheets.Add ws.Name .. 2023. 4. 14. 엑셀 파일에 있는 모든 시트의 이름을 변경하는 매크로 예시로, 엑셀 파일에 있는 모든 시트의 이름을 변경하는 매크로를 만들어 보겠습니다. [개발] 탭에서 [Visual Basic]을 클릭합니다. [삽입] -> [모듈] 을 클릭하여 새 모듈을 추가합니다. 다음 코드를 입력합니다. Sub 시트_이름_변경() ' 시트 이름 변경 매크로 Dim sh As Worksheet Dim newName As String ' 각 시트의 이름을 변경 For Each sh In ThisWorkbook.Sheets newName = "NewName_" & sh.Index sh.Name = newName Next sh End Sub 매크로를 실행하려면 [F5] 키를 누르거나, 개발 탭에서 매크로 이름을 선택한 후 [실행]을 클릭합니다. 이제 모든 시트의 이름이 "NewName_1".. 2023. 4. 14. 엑셀UNIQUE 함수는 중복된 값을 제거하고 고유한 값들만 추출 UNIQUE 함수는 중복된 값을 제거하고 고유한 값들만 추출하는 함수입니다. UNIQUE 함수의 구문은 다음과 같습니다. =UNIQUE(데이터 범위, [출현 빈도수 포함 여부]) 데이터 범위: 중복된 값을 제거하고자 하는 데이터 범위 [출현 빈도수 포함 여부]: 선택적으로 사용 가능하며, TRUE이면 데이터 범위에서 각 고유한 값의 출현 빈도수도 함께 반환되고, FALSE이면 출현 빈도수가 제외된 값만 반환됩니다. 예를 들어, A1에서 A10까지의 숫자 중에서 중복된 값을 제거하고 고유한 값만 추출하려면 다음과 같이 UNIQUE 함수를 사용합니다. =UNIQUE(A1:A10) 이때, [출현 빈도수 포함 여부]를 TRUE로 지정하면 각 고유한 값의 출현 빈도수도 함께 반환됩니다. 2023. 4. 14. 엑셀에서 중간값과 최빈값을 구하는 방법은 MEDIAN 함수와 MODE 함수 엑셀에서 중간값과 최빈값을 구하는 방법은 MEDIAN 함수와 MODE 함수를 사용하는 것입니다. MEDIAN 함수 사용법 MEDIAN 함수는 데이터 집합의 중간값을 반환합니다. 중간값은 데이터를 오름차순으로 정렬했을 때 중앙에 위치한 값입니다. MEDIAN 함수의 구문은 다음과 같습니다. =MEDIAN(값1, [값2], ...) 예를 들어, A1부터 A10까지의 데이터 중에서 중간값을 구하려면 다음과 같이 입력합니다. =MEDIAN(A1:A10) MODE 함수 사용법 MODE 함수는 데이터 집합에서 가장 자주 나타나는 값을 반환합니다. 즉, 최빈값을 구하는 함수입니다. MODE 함수의 구문은 다음과 같습니다. =MODE(값1, [값2], ...) 예를 들어, A1부터 A10까지의 데이터 중에서 최빈값을 .. 2023. 4. 13. 엑셀 빠른 실행 도구 모음 활용하여 생산성 높이기 엑셀의 빠른 실행 도구 모음은 사용자가 자주 사용하는 명령을 쉽게 실행할 수 있는 기능입니다. 이 기능을 활용하면 엑셀 작업을 더욱 효율적으로 수행할 수 있습니다. 아래는 엑셀 빠른 실행 도구 모음을 활용하여 생산성을 높이는 방법입니다. 자주 사용하는 명령 추가하기 빠른 실행 도구 모음에서 자주 사용하는 명령을 추가하면 해당 명령을 더욱 쉽게 실행할 수 있습니다. 예를 들어, "복사", "붙여넣기", "서식 복사" 등을 자주 사용한다면 빠른 실행 도구 모음에 추가하여 사용하면 됩니다. 자주 사용하는 파일 빠르게 열기 자주 사용하는 파일을 빠른 실행 도구 모음에 추가하면 해당 파일을 빠르게 열 수 있습니다. 파일을 추가하려면 파일을 열고 빠른 실행 도구 모음에 추가 버튼을 클릭하면 됩니다. 매크로 실행하기.. 2023. 4. 13. 이전 1 다음 728x90 LIST
