Timeline for Draw the national flag of France
Current License: CC BY-SA 3.0
6 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| Nov 26, 2015 at 7:44 | comment | added | Joey |
I get 135 with Sub a:Columns("A:C").ColumnWidth=26:Range("A1:A13").Interior.Color=RGB(0,85,164):Range("C1:C13").Interior.Color=RGB(239,65,53):End Sub
|
|
| Nov 23, 2015 at 21:41 | history | edited | steve | CC BY-SA 3.0 |
advice from Neil and JimmyJazzx to reduce significantly to just 137 bytes
|
| Nov 23, 2015 at 20:32 | comment | added | JimmyJazzx |
I get 137 bytes with a few Quick Changes. I think you can Cut this down more but this is the easy changes. Sub a():Columns("A:C").ColumnWidth=26:Range("A1:A13").Interior.Color=RGB(0,85,164):Range("C1:C13").Interior.Color=RGB(239,65,53):End Sub
|
|
| Nov 22, 2015 at 23:36 | comment | added | Neil |
Sorry, that was Excel 2003, and I forgot to include the ActiveWorkbook.Colors to specify the exact RGB values. Excel 2007 has additional colour options but I don't know them offhand.
|
|
| Nov 22, 2015 at 23:29 | comment | added | Neil |
Recording a macro results in terribly inefficient code. Try Range("A1:C13").Interior.ColorIndex = 5 and Range("G1:I13").Interior.ColorIndex = 3 which seems to suffice.
|
|
| Nov 20, 2015 at 20:08 | history | answered | steve | CC BY-SA 3.0 |