質問: vba初心者です。 選択されたセルの数が 3 の倍数ならシアン、3 で割って 1 余るならマゼンタ、
回答: Sub NumberOfCells3() Dim color As Long Select Case Selection.Count Mod 3 Case 0: color = RGB(0, 161, 233) 'シアン Case 1: color = RGB(228, 0, 127) 'マゼンタ Case 2: color = RGB(251, 208, 29) 'イエロー End Select Selection.Interior.color = color End Sub