2025年1月28日 – ｍａｂｏのｂｌｏｇです。

mabo個人のサイトです。いろんなことを日記風に書いてます。場合によっては，間違った記載もあるということをご承知おきください。表題をクリックして，個別のページの最下部からコメントをお願いします。

2025年1月28日

これからは，google先生　よりも　AI　か

今日初めて，マイクロソフトのPC付属の　cipilot　に質問してみました。
質問は，

VBAエクセルで，アクティブセルの背景の色を変えるコードは。条件付き書式では」

で，下記のような解答でした。

 Private Sub ApplyConditionalFormatting()
     Dim ws As Worksheet
     Dim rng As Range
     
     ' シートと範囲を設定
     Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適切に変更してください
     Set rng = ws.Range("A1:A100") ' 範囲を適切に変更してください
     
     ' 既存の条件付き書式をクリア
     rng.FormatConditions.Delete
     
     ' 新しい条件付き書式を追加
     With rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=ROW()=CELL(""row"")")
         .Interior.Color = RGB(255, 255, 0) ' 背景色を黄色に設定
     End With
 End Sub

google先生よりも，具体的で，この解答，ほぼあってます。

2025年1月28日