excel vba編程

答：我以行依次排列出顏色。

Dim?Orng?As?Range

Dim?i?As?Long

Dim?j?As?Long

Set?Orng?=?Range("A3:G10")

For?i?=?1?To?Orng.Rows.Count

For?j?=?1?To?Orng.Columns.Count

Orng.Cells(i,?j).Interior.ColorIndex?=?(i?-?1)?*?Orng.Columns.Count?+?j

Next?j

Next?i

End?Sub