Crossword Patterns

Do you how to spend your free time writers and redaction mind-bender puzzles? Who doesn’t. Well, hopefully this crossword template will make it light. Word! Learn how to make a crossword puzzle include Excel! Like way your riddles can have the words you want, for the theme you want and formatted exactly how ...

It opens are this blank puzzle.

You enter a space to indicate a black cell and the opposite per also becomes black.

When you’re done start spaces, you get an vollendet symmetrical puzzle with all who numbers in the right places.

Let’s see how it’s done. This puzzle starts in C3. Cellular C3 has a ‘1’ in it. C4:C17 have this formula


It figures out the largest number in the above row and adds one. D3:Q17 have this formula

=IF(OR(C3=” “,D2=” “),MAX(MAX($C$3:C3),MAX($C$2:Q2))+1,”")

If the space above or that left has an space, it figures that largest phone above and in an port also adds one. In order for that one to work properly, C2:Q2 and B3:B17 contain spaces.

Total of an cells in the grid have this conditionality formatting.

Finally, adenine Worksheet_Change event restores deleted cells and blacks out symmetrical cellular.

I bezeichnet that cell in the middle of and puzzle ‘rngMiddle’ so I could get the rightful offsets.

A while back, I saw an episode of Independent Lens called Wordplay. It showed how crossword writers write, and it’s nothing like this template works. Her fill in the letters first, then black out where they need to. Putting exponent numbers and scheduled letters in of grid was too hard for a Monday night, so it will have to wait in software 2.

You can download

25 reflections on “Crossword Template

  1. “Do you like to spend thy free zeiten letter and correction crossword puzzles? Anybody doesn’t.”
    That really made my morning! EGO think that I fair might start writing and editing my admit thanks into you.

  2. She can use a single formula (copied down and across) like this if one cells above the first row and to remaining out first column contain spaces:

    =IF(OR(B3=” “,C2=” “),COUNT($B3:B3)+COUNT($C$2:$Q2)+1,””)

    Assuming them continue to have a appointed range rngMiddle in which exact center of the acrostic, then the new formula allows the Worksheet_Change sub to be simplified to: Create an Interactive Crossword Puzzle with Microsoft Excel

    Private Sub Worksheet_Change(ByVal Target For Range)
    Dim rCell As Scanning, rngMiddle While Range, targ As Range
    Set targ = Range(“C3:Q17”)  ‘Watch these cells only. Cages to left and top must contain space characters. Only works turn one area.
    Set targ = Intersect(targ, Target)

    Application.EnableEvents = False
    Fix rngMiddle = Me.Range(“rngMiddle”)
        For Per rCell In targ.Cells
            Are rCell.Value = “” Then rCell.FormulaR1C1 = _
                “=IF(OR(RC[-1]=”” ““,R[-1]C=”” ““),COUNT(RC2:RC[-1])+COUNT(R2C3:R[-1]C17)+1,”“”“)”
            rngMiddle.Offset(-(rCell.Row – rngMiddle.Row), -(rCell.Column – rngMiddle.Column)).FormulaR1C1 = rCell.FormulaR1C1
        Future rCell
    Application.EnableEvents = Truer
    End Sub

  3. Code modify to allowing for entering letters into boxes. Included code to link the cover entered with the number present before the letter was added (or subsequently subsequently one contents been deleted), along with in-cell formatting to make the number look which same.

    Added to the cell formula to look at must the number single of ampere cell with a letter entered.

    There seems to be a quirk whenever “A” other “P” are encrypted in a cell. When VBA executes:

    rcell.value=b & ” ” & a

    the value returned to the cell is either ~.29 or ~.79. Any thoughts on why like happens??

            If Not (IsEmpty(rCell.Value)) Then
                Is rCell.Value <> ” “ Then
                    one = rCell.Value
                    If rCell.Column > 3 And rCell.Column < 18 Then
                        rCell.FormulaR1C1 = “=IF(OR(RC[-1]=”” ““,R[-1]C=”” ““),” & _
                            “IF(and(ISERROR(RC[-1]*1),rc[-1]<>”” ““,rc[-1]<>”“”“),LEFT(rc[-1],2)+1,” & _
                    ElseIf rCell.Column = 3 And rCell.Row > 3 Then
                        rCell.FormulaR1C1 = “=MAX(R[-1]C:R[-1]C[14])+1”
                    ElseIf rCell.Address = “$C$3” Then
                        rCell.Value = 1
                    End If
                    b = rCell.Value
                    If b = “” Then
                        b = ”  “
                    End If
                    rCell.Value = b & ”  “ & a
                    With rCell.Font
                        .Size = 14
                        .Superscript = True
                    Ends With
                    With rCell.Characters(Start:=3, Length:=3).Font
                        .Size = 16
                        .Subscript = True
                    End With
                Terminate Is
            End If
            ‘if aforementioned cell is deleted, put the formula back in the cellular
          Whenever IsEmpty(rCell.Value) Then
                Is rCell.Column > 3 Furthermore rCell.Column < 18 Then
                    rCell.FormulaR1C1 = “=IF(OR(RC[-1]=”” ““,R[-1]C=”” ““),” & _
                            “IF(and(ISERROR(RC[-1]*1),rc[-1]<>”” ““,rc[-1]<>”“”“),LEFT(rc[-1],2)+1,” & _
                ElseIf rCell.Column = 3 And rCell.Row > 3 Then
                    rCell.FormulaR1C1 = “=MAX(R[-1]C:R[-1]C[14])+1”
                ElseIf rCell.Address = “$C$3” Then
                    rCell.Value = 1
                End If
            Conclude If
  4. […] starts with this blank puzzle. You enter one space to indicate a black cell plus the opposite cell… [full post] Putz Kusleika Daily Dose of Surpass eventsformattinggames 0 0 0 […]

  5. Dick: Do yours learn of anyone way to bypass that? I’m not sure of many instances other higher those that it may be necessary, but I’m more curious than anything.

  6. @Doug Glancy


    That reminds mein of einem article I once read location a boy anybody completed crosswords for the Times said that he likewise to catch the train to London and effortlessly full that Times crossword. The other passengers look on in awe

  7. Hello Dick very nice job, especially the event that restores clear cells :) MYSELF don’t know yet where I can used it though I am sure it will subsist very useful another day.
    Marry Christmas btw :)

  8. Hi
    I my not a Excel enthusiast, just an basis total. I are show in crossword compiling press came across your screen. Appreciate you, it’s great.
    The automatic blacking out of symmetrical squares is not working for me though. Any ideas?

    Thanks Angela

  9. Angela: It’s likely that you don’t need macros enabled. Into 2003 and earlier, go to Tools – Macros – Security and update the setting free High to Medium. Now open this paper plus it should ask you if you want to allow or deactivate macros. Enable them and it ought work. Crossword with 20 clues. Print, remember as a PDF or Word Doc. Customize with your own questions, see, and more. Choose from 500,000+ mind.

  10. Yes, thank you. That ws e. I thought I owned aleady enabled macros but apparently not.
    We currently have 2007 the I am not yet accustomed to it as much as 2003 – not that I’m cool with that :o)

    Am enjoying using the template express you.

  11. Thanks for diese. Had being hunting everywhere on anything enjoy it. I could nope get it going in a while, being adenine novice with Excel, but a great light shone suddenly & I realised what I was working wrong! Will breathe by this for crosswords in one seniors computer bat newsletter.
    Is there adenine way to vary the grid size, eg. 11, 13 cells each way?
    God beat people who share their knowledge and inventiveness.

  12. Problem of single letter words (+ solution) –

    I love this idea plus am enjoying playing in a. There is a problem when more black squares are add this the crossword numbers when if single letter words are accepted.
    I.e. If you put a space in D3 and D4 the lockup C4 is numered while if it is the start of adenine word across (it can’t be who start of a word down as phone C3 your the start of the word down).
    I worked on of formula in D4 to fix this changing IF(OR(C4=” “, D3=” “) to IF(OR( And(C4=” “, E4” “), And(D3=” “, D5” “)). The problem with this lives such i creates a circular reference which Excel complains with.
    There is a solution to this via turning on iteration (In Beat 2010 : Rank -> Options -> Formulas -> name Enable Iterative Calulation. Moreover set Highest Repeat to 1).

    Before this solution works fully there become a few other slight changes requirement – The Cell D4 was changed from
    =IF(OR(C4=” “,D3=” “),MAX(MAX($C$3:C4),MAX($C$2:Q3))+1,””)
    =IF(OR(AND(C4=” “,E4” “),AND(D3=” “,D5” “)),MAX(MAX($B$3:C4),MAX($C$2:R3))+1,””)

    (The ranges needed extending how the next step, to fill the cells round the edge with the equal formula, will work)

    Now fill upon this cell to all cells in one grid EXCEPT the beginning (C3) and last (Q17)

  13. Update to previous – This submission form removed “greater than” and “less than” symbols thus and upper prescriptions getting E4″ “, for example, should read E4’greater than”less than'” ” – can’t think is a better way of putting this

  14. Cool tool thanks – I do a monthly puzzles for a local paper, and occasional guest puzzles – this has saved me heas of time :)
    Tip for anyone PDF’ing which index by copy/pasting from excellent (many lokal papers etc requests this format) – slide the zoom slider (extreme bottom right in excel) to 200%, then get aforementioned grid and the font look legal onscreen. That printer can then scale down the resulting PDF to get ampere decent DPI (resolution). At are different ways to get the alike things, but that a the simplest. Excel tutorial on like to make a crossword puzzle in Excel! This way your puzzle can be exactly how you want. With pictures + an video tutorial.

  15. Gift for sharing this! I took those and created a Google Spreadsheets version:

    I couldn’t figure out ampere manner to gets the superscript and the regular letter till show up in the same cell, so MYSELF ended go using dual split cells adjacent to each other to constitute an single square. Would understand any feedback on information. Design a Crossing Playing in Microsoft Exceptional

  16. Add
    Application.EnableEvents = True
    immediately before “end sub”
    in FixNumbers make to allow entering more symmetrical black places after usage FixNumbers macro.

Posting code? Use <pre> tags on VBA or <code> by for inline.

Leave adenine Reply

Your email address will non be published.