Bible Workbook

File this under “The last thing you’d expect from John Walkenbach.” It’s the Bible in an Excel workbook.

I found a text file with the complete King James Version of the Bible. I wrote a few macros and dumped it all into an Excel workbook. Each book is on a separate worksheet, and each verse is in a separate cell.

It has a handy hyperlink table of contents so you can jump to any book. I also wrote some summary formulas to calculate the number of characters in each book, and the average number of characters per verse. Then I added a word count feature: Enter a word and it displays the number of occurrences in each book. Finally, I set up a User Form that displays a random verse.

You can download it here. It’s a 1.8 Mb zip file, and it expands to a 6.1Mb Excel workbook. Even if you have no interest in the content, you may discover a few useful techniques. You’ll need to enable macros to use the random verse feature.

Posted in Uncategorized

17 thoughts on “Bible Workbook

  1. Guaranteed to be the first bible from an atheist spreadsheet author! I can’t wait for your Powerpoint version of The Book of Mormon, John.

  2. I had a professor in college by the name of Dr. David Dailey. He is a computer science professor at Slippery Rock University. He used to do random stuff like this ALL THE TIME. Infact we had assignments where the task was to “find a bunch of random data like a dictionary or bible and do something cool with it”.

    I think you two would be really great friends if you knew each other. He was one of my favorite professors and you are one of my favorite authors, so it all makes sense.

  3. I had no idea that the Bible had so much Excel content. Here are some word counts:

    cell: 70
    rows: 95
    columns: 0
    sheet: 4
    scroll: 2
    icon: 7
    range: 297
    borders: 43
    print: 5
    windows: 30

  4. Very good!!
    I think, the function “Count of a text string”
    {=SUM(LEN(UPPER(INDIRECT(“‘”&C5&”‘!B2:B”&D5)))-………}
    It doesn’t work for the first row B1.
    Yes?
    Ioannis, Athens

  5. This is actually pretty cool. When I have some time I have to make a Red Letter version.

  6. Hi there,

    I was wondering … could you “convert”
    {=SUM(LEN(UPPER(INDIRECT(“‘”&C5&”‘!B1:B”&D5)))-………}
    into an array-formula that counts only the visible rows?

    Sort of:
    {=SUBTOTAL(9;(LEN(UPPER(INDIRECT(“‘”&C5&”‘!B2:B”&D5)))-………}
    Which does not do it of course …

    Anyone?
    Best Regards Sige


Posting code? Use <pre> tags for VBA and <code> tags for inline.

Leave a Reply

Your email address will not be published. Required fields are marked *