A Speedometer in Excel

Here is a speedometer in Excel 2003. It’s an old file and the charting wasn’t done in the most economic fashion. I used too many series while I could have consolidated a lot of the dial curves. It is still a good example of animation and displaying custom numbers on a chart. There are two VBA macros involved, one for changing the speed value and the other for randomly changing the parameters of the display.

Recommending this site to your friends would be highly appreciated.   Thanks for your support! 

14 Responses to “A Speedometer in Excel”

  1. [...] artykuł na: A Speedometer in Excel | Excel Unusual a-good-example, and-the, animation, charting, dial, economic-fashion-, good-example, most, [...]

  2. Francisco says:

    Hi, George
    How can I make a constant loop?

    For example, set speed meter go to a steady and/or different speeds for
    unlimited time. Like set the speed go from 20 m/h to 78 m/h and then repeat the same cycle. And the only way to stop would be by pressing the stop bottom

    • george says:

      Francisco, Just use one of the loops from the “Dynamic Macros”. Change the “n” if you need to and the maximum value it goes to. The macro will paste it on a cell in the page and you might need to do some “scaling” operation to bring it between your limits (upper/lower speed). George

      • francisco says:

        Hi George
        I will try that tonight
        I hope you understand my question.
        I want my graph to repeat itself until I want to
        Stop it.

        I am trying to make a Loop that repeats itself
        For example, I set the speed meter to go from 20 to
        80 m/hr. The loop will make the graph design to
        Do that. Once I create a steady repeating loop
        The graph will show repeadely itself until I stop it.
        I hope you understand question

  3. Bogdan Marinescu says:

    Hi George,

    Unbelievable things! I did not believed that is possible to do something like this in excel …

    What do you thing about “bare code image (UPC, EAN, CODE 39, etc)” , without using VBA?

    I’m using a Macro (pasted bellow and found on the internet), together with a special font in order to generate bare code imagine in excel and access.

    Congratulations,
    From Bucharest, Romania :-)
    Bogdan

    Public Function ean13$(chaine$)
    Dim i%, checksum%, first%, CodeBarre$, tableA As Boolean
    ean13$ = “”
    If Len(chaine$) = 12 Then
    For i% = 1 To 12
    If Asc(Mid$(chaine$, i%, 1)) 57 Then
    i% = 0
    Exit For
    End If
    Next
    If i% = 13 Then
    For i% = 2 To 12 Step 2
    checksum% = checksum% + Val(Mid$(chaine$, i%, 1))
    Next
    checksum% = checksum% * 3
    For i% = 1 To 11 Step 2
    checksum% = checksum% + Val(Mid$(chaine$, i%, 1))
    Next
    chaine$ = chaine$ & (10 – checksum% Mod 10) Mod 10
    CodeBarre$ = Left$(chaine$, 1) & Chr$(65 + Val(Mid$(chaine$, 2, 1)))
    first% = Val(Left$(chaine$, 1))
    For i% = 3 To 7
    tableA = False
    Select Case i%
    Case 3
    Select Case first%
    Case 0 To 3
    tableA = True
    End Select
    Case 4
    Select Case first%
    Case 0, 4, 7, 8
    tableA = True
    End Select
    Case 5
    Select Case first%
    Case 0, 1, 4, 5, 9
    tableA = True
    End Select
    Case 6
    Select Case first%
    Case 0, 2, 5, 6, 7
    tableA = True
    End Select
    Case 7
    Select Case first%
    Case 0, 3, 6, 8, 9
    tableA = True
    End Select
    End Select
    If tableA Then
    CodeBarre$ = CodeBarre$ & Chr$(65 + Val(Mid$(chaine$, i%, 1)))
    Else
    CodeBarre$ = CodeBarre$ & Chr$(75 + Val(Mid$(chaine$, i%, 1)))
    End If
    Next
    CodeBarre$ = CodeBarre$ & “*”
    For i% = 8 To 13
    CodeBarre$ = CodeBarre$ & Chr$(97 + Val(Mid$(chaine$, i%, 1)))
    Next
    CodeBarre$ = CodeBarre$ & “+”
    ean13$ = CodeBarre$
    End If
    End If
    End Function

    • george says:

      Salut Bogdane! Multam pentru comentariu. Eu nu am lucrat cu bar-coduri insa cred ca sint la moda. Trebuie sa citesc despre ele.
      Si eu tot asa lucrez, iau o farima de pe internet si o dezvolt de 100 de ori insa imi place sa folosesc foarte putin VBA din motive de viteza.
      Cum mai e in Bucuresti? Eu am facut electronica acolo. Numai bine, George

  4. Sundar says:

    Amazing,I got an extraordinary thing from here

  5. george says:

    Thanks, Sundar!

  6. Erederic says:

    Great…

    It’s such a great site! Great post, I just bookmarked it on Digg….

  7. [...] is a video preview of an older Excel model of a [...]

  8. Larry says:

    Why the excel book is slow?

  9. sailesh says:

    hi George,

    This is great.

    How can I change the range to 0-100 instead of 0-140?

    Sailesh

    • george says:

      Sailesh, Click in the numbers and see where the series takes the data from then delete the last digits (120, 140 etc). Also make sure you play with the angle between the numbers. Good luck, George

  10. venkatesh says:

    Hi George, this is really very god animated chart.I never seen this kind of chart in my experience.How can we do this speedometer.Please explain me.

RSS feed for comments on this post. And trackBack URL.

Leave a Reply