excel-create-standard-color-table

Excel - Create Standard Color Table

This macro creates a standard color table.

Excel

  • 1258
  • 620
  • 13
  • 0
Add to collection
© 2021VBAmacros.net

1 Open MS Excel.

2 Create a blank workbook.


3 Go to Developer's tab > click on "Visual Basic" button or hit Alt + F11.


4 Go to Insert tab > click on "Module" or hit M.


5 Copy the VBA code from below.

6 Paste the code in the newly created module.


7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.


8 That's it!


Advertisement

Code
'==========================================
' Set Option Explicit
'==========================================
Option Explicit
'==========================================
' Select First Empty Cell in A Column
'==========================================
Sub CreateColorTable()
   ' Set a counter
   Dim i As Integer
   ' Loop
   For i = 1 To 14
      ' Index und colors for columns A and B
      Cells(i, 1).Value = i
      Cells(i, 2).Interior.ColorIndex = i
      
      ' Index und colors for columns C and D
      Cells(i, 3).Value = i + 14
      Cells(i, 4).Interior.ColorIndex = i + 14
      
      ' Index und colors for columns E and F
      Cells(i, 5).Value = i + 28
      Cells(i, 6).Interior.ColorIndex = i + 28
      
      ' Index und colors for columns G and H
      Cells(i, 7).Value = i + 42
      Cells(i, 8).Interior.ColorIndex = i + 42
   Next i
   
   ' Set column width to autofit
   Columns("A:H").AutoFit
End Sub
Advertisement


Comments
Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
Advertisement
  • Created
    17-Apr-2020
  • Last updated
    16-May-2020
Advertisement
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!