728x90 OFFICE_오피스/엑셀_매크로10 엑셀 년월일 빠르게 기재하기 안녕하세요 너무 오랜만에 포스팅을 하고 있네요 이 더운 날씨에 일에 치이고 지치고 하니 컴을 만질시간이 없답니다. ^^ 웹서핑을 하다가 좋은 기능이 있어서 소개해 드립니다. 출처는 http://samradapps.com/datepicker Excel date picker add-in — Rad Sheets A modern date picker for excel samradapps.com 일상에 엑셀많이 쓰시죠? 조금 편안한 엑셀을 하기위에 몇가지 팁을 알려드려요 준비물 위파일을 다운받아주시고 압축을 풀어주세요 압출을 풀게 되면 아래처럼 설정하세요 samradapps_datepicker폴더에 samradapps_datepicker.xlam파일이 있을거에요 저는 다운로드 폴더에 다운을 받은후 적용 해봅니다... 2023. 8. 7. 엑셀 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 pic As Picture Dim imgFilePath As Variant Dim cellAddress As String Dim cell As Range ' 삽입할 셀 주소 cellAddress = "A1" ' 셀 크기 Dim cellWidth As Double Dim cellHeight .. 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 searchRange As Range Dim cell As Range ' 검색할 범위 지정 Set ws = ThisWorkbook.Sheets("Sheet1") Set searchRange = ws.Range("A1:C10") ' 행 삭제 For Each cell In searchRange If InStr(1, cell.Value, "삭제할 텍스트") > 0 Then cell.EntireRow.Delete End If Next cell E.. 2023. 4. 14. 엑셀 파일에서 특정 범위의 데이터를 다른 범위로 복사하고, 복사한 데이터를 다시 정렬하는 매크로 엑셀 파일을 엽니다. [개발] 탭에서 [Visual Basic]을 클릭합니다. [삽입] -> [모듈] 을 클릭하여 새 모듈을 추가합니다. 다음 코드를 입력합니다. Sub 데이터_복사_정렬() ' 데이터 복사 및 정렬 매크로 Dim ws As Worksheet Dim copyRange As Range Dim pasteRange As Range ' 복사할 범위 지정 Set ws = ThisWorkbook.Sheets("Sheet1") Set copyRange = ws.Range("A1:C10") ' 붙여넣을 범위 지정 Set pasteRange = ws.Range("E1") ' 데이터 복사 copyRange.Copy pasteRange ' 데이터 정렬 ws.Range("E1").Sort Key1:=ws.Ra.. 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. 이전 1 다음 728x90
