ChatGPTやCopilotで、VBAを学ばなくてもExcel自動化実現
Copilotに、自動PDF化マクロと書式自動設定マクロを書いてもらいました
Dim ws As Worksheet
Dim savePath As String
Set ws = ActiveSheet
savePath = ws.Parent.Path & “\” & ws.Name & “.pdf”
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard
MsgBox “PDFが保存されました: ” & savePath
Dim rng As Range
Dim row As Range
Dim cell As Range
Set rng = ThisWorkbook.ActiveSheet.Range(“A1:D48”)
For Each row In rng.Rows
If row.Row Mod 2 = 1 Then
For Each cell In row.Cells
cell.Interior.Color = RGB(255, 200, 100)
Dim rng As Range
Dim row As Range
Dim cell As Range
Dim lastRow As Long
Dim lastColumn As Long
lastRow = ThisWorkbook.ActiveSheet.Cells.Find(“*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lastColumn = ThisWorkbook.ActiveSheet.Cells.Find(“*”, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Set rng = ThisWorkbook.ActiveSheet.Range(“A1:” & Cells(lastRow, lastColumn).Address)
For Each row In rng.Rows
If row.Row Mod 2 = 1 Then
For Each cell In row.Cells
cell.Interior.Color = RGB(255, 200, 100)
習うより使い慣れよ!VBAを勉強する時間があったら、Copilotに自動生成させて自分はサクッと帰りましょう!
小さなお悩みでも、お気軽にご相談ください！
セルワザでは、役に立つEXCELワザをご紹介しております！
小さなお悩みでも、お気軽にご相談ください！
セルワザでは、役に立つEXCELワザをご紹介しております！
よかったらシェアしてね！ URLをコピーしました！ URLをコピーしました！- 地理的なデータ分析は、3Dマップへおまかせ!!
- VBAマクロじゃできないExcel作業自動化?VBAマクロじゃできないExcel作業自動化?