セルの色によって判別させる
If Sheets(1).Cells(*, *).Interior.ColorIndex = 6 Then
みたいな感じでいけるらしい.
ColorIndexが6は黄色.ほかに1は黒,2は白,3は赤,4は黄緑,5は青など.HelpでColorIndexを参照すべし.
If Sheets(1).Cells(*, *).Interior.ColorIndex = 6 Then
みたいな感じでいけるらしい.
ColorIndexが6は黄色.ほかに1は黒,2は白,3は赤,4は黄緑,5は青など.HelpでColorIndexを参照すべし.