Looking for Patten Makers Photography? Just click the name and you will be transported accross!

Monday, October 31, 2011

A quick guide to creating a basic table in APA format using Excel

While APA formatting can seem difficult and unfriendly at first the great news is it is often very easy to implement and is very well defined. APA formatting provides a consistent, systematic structure to references, figures, and tables helping to ensure that articles are easier to read.

When it comes to formatting tables the APA guidelines are fairly easy to follow.
You want to:
- Avoid Vertical Lines
- Minimise Horizontal lines
- Include a Table Caption at the top

And they're even easier to follow if you're working with the microsoft office suite.
While you can use MS Word to create an APA formatted table the easiest way to format your table using APA guidelines is to use MS Excel.

Simply enter your data in an excel spreadsheet, ensuring that the headings are in the top rows

Once you have done this highlight the top Row and right click

Select Format Cells

Go to the Border tab then select the top border and bottom border

Now select the bottom row and right click

Select Format Cells

Go to the Border tab then select the bottom border

Now highlight your table, copy it and then paste it into a MS word document.
Enter a title above the table using the following format:


Table 1: The title that you want for your table should replace the words you are reading now, the ones that come after the colon.

By this stage the hypothetical example should look something like that below:

Table 1: The title that you want for your table should replace the words you are reading now, the ones that come after the colon.

Easy!










1 comment:

  1. Sub macro_borders_apa()
    ' Creates APA style table from Excel data.
    ' Assumes data is at uppermost left in Excel
    ' with column headers in top row.
    ' Adds extra row at top for table title.
    ' Freezes top two rows for scrolling.
    ' Adds filters for data analysis.
    ' Remove filters as needed.
    ' Change fonts and styles as required
    ' for your presentation or paper.
    ' Borders extend to right, so cut and paste
    ' only those cells required for your work.
    ' — Aimhirghin.SC 20161110
    '
    '
    '
    ' selects all used cells on worksheet
    '
    ActiveSheet.UsedRange.Copy
    '
    ' apply fontstyle
    ' remove all existing boldface
    '
    ActiveSheet.UsedRange.Activate
    With Selection.Font
    .Name = "Times New Roman"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .ThemeFont = xlThemeFontNone
    .ThemeColor = xlThemeColorLight1
    .Bold = True
    .Bold = False
    End With
    '
    ' left justify header, center vertically
    '
    With Selection
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlCenter
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    End With
    '
    ' clear all existing borders
    '
    With Selection
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    '
    ' draw top borders
    '
    Rows("1:1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlMedium
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    '
    ' top border text bold
    ' add filters
    '
    With Selection.Font
    .Bold = True
    Selection.AutoFilter
    End With
    Cells.Select
    '
    ' hide Excel gridlines
    ' freeze top row
    '
    ActiveWindow.DisplayGridlines = False
    With ActiveWindow
    .SplitColumn = 0
    .SplitRow = 1
    .FreezePanes = True
    End With
    '
    ' inserts row at top for table title
    '
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    '
    ' autofit columns
    '
    Cells.EntireColumn.AutoFit
    '
    ' draw bottom border on (last row + 1)
    '
    Dim LastRow As Integer
    LastRow = ActiveSheet.UsedRange.Rows.Count
    LastRow = LastRow + 1
    Rows(LastRow).Select
    With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlMedium
    End With
    End Sub

    ReplyDelete