J-Walk & Associates, Inc.

New Version Of Bible Is Available

About four years ago, 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. Then I added a bunch of stuff, and posted it. A lot of people downloaded it.

Today I spent some time and updated it for Excel 2007 and 2010. I added a few new features, including a Ribbon Interface.

If you'd like to take a look, download it here: King James Bible.

- Reader Comments -

Following are comments in response to this item.
The most recent comment is at the bottom.

1. By Mathias. Comment posted 16 January, 2010 5:25pm

   The title of this post is awesome - it sounds like the mythical lost Gospel of Excel has been found somewhere in the Dead Sea - and this one has a Ribbon!
2. By John Walkenbach. Comment posted 16 January, 2010 5:53pm

   Yeah, Dan Brown has been in touch. He wants to write a novel about it.
3. By chrisham. Comment posted 18 January, 2010 12:13am

   John,
   Wow, thanks so much! For a guy like myself who has a passion for both, God's Word and Excel, I had plans to use my new found expertise in developing a addin much like this. The only feature that I found lacking is a verse selector. Whilst reading a Christian Book, there's a always a lot of Biblical reference provided and navigating to a certain verse on many of the Bible softwares involve a lot of clicks.
   Thanks again.
   
   Chrisham
4. By Jeff Weir. Comment posted 18 January, 2010 1:20am

   Does it come with some kind of awe-inspiring voice if you enable 'Speak on enter'?
   
   Can you add stuff? I'd love another commandment along the lines of "Thou wife shall not make funny faces while you are trying to sulk"
5. By Chandoo. Comment posted 18 January, 2010 2:49am

   Fantastic stuff... the post title alone is enough. And the file is pure genius (and work of god...:D)
   
   And what is the point in searching for the word "death"? I searched for "thou" and the bars are all the way to the right.
   
   @Jeff... ROFL
6. By Rick Rothstein (MVP - Excel). Comment posted 18 January, 2010 7:11pm

   You can add chapter/verse "go to" functionality to John's Bible workbook quite easily. Right click the tab at the bottom of the worksheet named "Workbook Contents" and click on "View Code from the popup menu that appears, then copy/paste the following code into the code window that appears...
   
   Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Dim ChapterLine As String
   If Target.Row > 3 And Target.Value <> "" Then
   Cancel = True
   ChapterLine = InputBox("Which verse do you want to go to" & vbLf & "(Format - Chapter:Line)?")
   If Len(ChapterLine) Then
   With Worksheets(Target.Value)
   .Activate
   On Error Resume Next
   .Columns("A").Find(ChapterLine, LookAt:=xlPart).Activate
   If Err.Number Then
   MsgBox "Sorry, but I cannot find that chapter and verse."
   End If
   End With
   End If
   End If
   End Sub
   
   Now, go back to “Workbook Contents” sheet and right click a book of the bible.
7. By chrisham. Comment posted 19 January, 2010 12:36am

   Man this thing got even better! Thank you so much Rick! One click and Voila! Couldn't get better! But then with Excel and you guys, you just never know!
   
   Very appropriately - God bless you both for your efforts,
   
   Chrisham
8. By Rick Rothstein (MVP - Excel). Comment posted 19 January, 2010 2:03am

   @chrisham
   
   Here is a minor tweak for you. If you use the number pad to enter your numbers, then it's cumbersome to hit the colon key, so this modification lets you to use either the Colon or Plus Key (largest key on the number pad, so it's easy to hit); thus, you can use, for example, 12:34 or 12+34, your choice.
   
   Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Dim ChapterLine As String
   If Target.Row > 3 And Target.Value <> "" Then
   Cancel = True
   ChapterLine = InputBox("Which verse do you want to go to" & vbLf & _
   "(Format - Chapter:Line or Chapter+Line)?")
   If Len(ChapterLine) Then
   With Worksheets(Target.Value)
   .Activate
   On Error Resume Next
   .Columns("A").Find(Replace(ChapterLine, "+", ":"), LookAt:=xlPart).Activate
   If Err.Number Then
   MsgBox "Sorry, but I cannot find that chapter and verse."
   End If
   End With
   End If
   End If
   End Sub
9. By John Walkenbach. Comment posted 19 January, 2010 8:13am

   Good one, Rick. I added your code (slightly modified) to the workbook. Instead of the plus key, I allow the space key to separate chapter and verse. That's just because I never use numbers on the numeric keypad, so both of your options require using Shift.
10. By John Walkenbach. Comment posted 19 January, 2010 8:22am

    By the way, that new code may not work in Excel 2007 if the Euro Tools add-in is installed. That add-in screws up error handling in other projects!
11. By Rick Rothstein (MVP - Excel). Comment posted 19 January, 2010 9:29am

    @John
    
    Just because you aren't a Number Pad person doesn't mean there aren't others who are... why not cater to both? Just change the obvious line of code to this...
    
    .Columns("A").Find(Replace(Replace(ChapterLine, " ", ":"), "+", ":"), LookAt:=xlPart).Activate
    
    and now everyone will be happy.[grin] Oh, and don't forget to change the message in the InputBox function call to this...
    
    "Enter the chapter and verse, separated by a colon, space or plus sign."
12. By chrisham. Comment posted 19 January, 2010 11:40am

    @Rick, thanks again!
    In fact much earlier on, I had adopted the solution that John suggested here, doing a find and replace of all colons in Column A's with a space.
    Gentlemen if you are going to tweaking this file, I might as well ask. Since I am much of keyboard person, I passed Rick's procedure through the SelectionChange Event handler and it works fine.
    Is there anyway I can get to a select Book of the Bible on Workbook Contents page without moving the cursor on the any other cells?
    Chrisham
13. By Rick Rothstein (MVP - Excel). Comment posted 19 January, 2010 11:47am

    @chrisham
    
    I would be glad to try to modify the code (if it involves Ribbon work, then John will have to do that as I haven't learned how to program the Ribbon yet), but I am not clear exactly what functionality you want implemented... can you clarify your last sentence a little more for us?
14. By chrisham. Comment posted 19 January, 2010 12:06pm

    @Rick, Sorry about that! I hope this helps.
    Okay, Since I am more comfortable with keyboard, I have passed your procedure through a selectionchange event handler. Each time I move a cursor to the next cell using the arrow key, I have the event handler triggering your macro.
    Is there anyway I can move from (as an example): Book of Genesis directly to the Book of Mathew on the Workbook Contents page with a macro without having to move the cursor through the adjacent cells.
    Chrisham
15. By Rick Rothstein (MVP - Excel). Comment posted 19 January, 2010 1:05pm

    @Chrisham
    
    This reply will be on two (maybe three) consecutive messages (because John has a 1000 character limit on comments).
    
    Give this a try. Remove your SelectCase event procedure entirely. Replace the current BeforeRightClick event procedure with this instead...
    
    '******************** BEGIN Workbook Contents CODE ********************
    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Set TargetRange = Target
    GoToVerse
    End Sub
    '******************** BEGIN Workbook Contents CODE ********************
    
    See next comment...
16. By Rick Rothstein (MVP - Excel). Comment posted 19 January, 2010 1:29pm

    @Chrisham (...continued)
    
    Add a Module and copy paste the following into it...
    
    '******************** BEGIN MODULE CODE ********************
    Dim TargetRange As Range
    
    Sub GoToVerse()
    Dim ChapterLine As String
    If TargetRange Is Nothing Then Set TargetRange = ActiveCell
    If TargetRange.Row > 3 And TargetRange.Value <> "" Then
    ChapterLine = InputBox("Enter the chapter and verse, separated by a colon, space or plus sign.", "Chapter and Verse for " & TargetRange.text)
    If Len(ChapterLine) Then
    With Worksheets(TargetRange.Value)
    .Activate
    On Error Resume Next
    .Columns("A").Find(Replace(Replace(ChapterLine, " ", ":"), "+", ":"), LookAt:=xlPart).Activate
    
    See next comment...
17. By Rick Rothstein (MVP - Excel). Comment posted 19 January, 2010 1:29pm

    If Err.Number <> 0 Then
    .Range("A1").Select
    MsgBox "Chapter and verse not found.", vbInformation, TargetRange.text & " " & Replace(ChapterLine, " ", ":")
    Else
    .Range(TargetRange, TargetRange.Offset(0, 1)).Select
    End If
    End With
    End If
    End If
    Set TargetRange = Nothing
    End Sub
    '******************** END MODULE CODE ********************
    
    Go to the Macro dialog box (Alt+F8), select GoToVerse, then click Options and give the macro a Shortcut Key of your choice. That's it. Now you can evoke the "go to verse" functionality by either right clicking or arrowing to the bible book and pressing the shortcut key you assigned to the macro.
    
    ***** END OF COMMENT *****
18. By chrisham. Comment posted 19 January, 2010 2:02pm

    @Rick, Perfect! Thanks Mate!
    I must confess, this was supposed to be a dream project for me when I had gained the necessary excel skill to do so. May be in time I will be able to Tweak this with some Parallel Versions?
    
    By the way, my wife doesn't think much of the fact that I have 2 of the most authorative persons in Excel attending to my problem...lol
    Thanks John, Thanks Rick..... It would seem like I was the only beneficiary here of this blogpost.
    Chrisham
19. By Rick Rothstein (MVP - Excel). Comment posted 19 January, 2010 6:05pm

    For the small part that I played in all of this, you are quite welcome... John's Bible workbook is where all the real work was performed. Just one correction though... you only had one of the most authorative persons in Excel attending to your problem and that would be John, of course... there is no way that such a classification could be applied to me. I'm just a programmer who has worked in one form of BASIC and/or VB since 1981; but who has come to Excel only relatively recently (maybe three or four years ago). I've been slowly learning the Excel object model as it has been implemented in VBA and trying to use my programming background to manipulate it. So, as you can see, I am far from being able to be labeled as an authorative figure in Excel... but I do thank you for having attempted to do so.