Page 1 of 2 12 LastLast
Results 1 to 15 of 17

Thread: Christmas

  1. #1
    5 Star Lounger
    Join Date
    Jan 2004
    Location
    Praha
    Posts
    988
    Thanks
    56
    Thanked 105 Times in 90 Posts

    Christmas

    My brief attempt at Seasons Greetings is attached although I'm sure that the professionals here can do better . . .
    Attached Files Attached Files

  2. The Following User Says Thank You to MartinM For This Useful Post:

    motivated (2013-12-28)

  3. #2
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,635
    Thanks
    115
    Thanked 650 Times in 592 Posts
    Martin,

    I am sure that what ever you have done must be really cool, however, the Auto-Open did not run and you have your VB project locked down. Looking at just a black screen, I manually ran the macro, got a message that it was not responding and then it just closed

    Maud

  4. #3
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,635
    Thanks
    115
    Thanked 650 Times in 592 Posts
    Tried it again but had to again manually run the auto_open and it worked. Same to you!

  5. #4
    5 Star Lounger
    Join Date
    Jan 2004
    Location
    Praha
    Posts
    988
    Thanks
    56
    Thanked 105 Times in 90 Posts
    Probably because it is an Excel 2003 file

  6. #5
    New Lounger
    Join Date
    Aug 2010
    Location
    New Zealand
    Posts
    13
    Thanks
    11
    Thanked 1 Time in 1 Post
    Very cool, im still on 2003. Does it auto delete? Merry xmas to all the great helpers on this site and a happy new year.

  7. #6
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,434
    Thanks
    372
    Thanked 1,457 Times in 1,326 Posts
    Martin,

    I moved your thread because it is not a Windows Secrets column.

    Merry Christmas to you!
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

  8. #7
    5 Star Lounger
    Join Date
    Jan 2004
    Location
    Praha
    Posts
    988
    Thanks
    56
    Thanked 105 Times in 90 Posts
    And the same to you. RG

    I was rather hoping you might unleash your considerable skills on a better version . . . . just a bit of seasonal fun.

  9. #8
    Silver Lounger t8ntlikly's Avatar
    Join Date
    Dec 2001
    Location
    Chandler, AZ
    Posts
    2,162
    Thanks
    46
    Thanked 13 Times in 11 Posts
    Very Cool I just opened it no problem in Excel 2010
    Thanks John
    Teamwork is essential; it gives the enemy other people to shoot at. (Murphy's War Laws #39)

  10. #9
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,434
    Thanks
    372
    Thanked 1,457 Times in 1,326 Posts
    Martin,

    No need...you did a great job!

    BTW: Those of you opening in Excel 2010 directly from the web you may need to save it to a "Trusted Location" before it will run based on your Office security settings.

    HTH
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

  11. #10
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,635
    Thanks
    115
    Thanked 650 Times in 592 Posts
    Martin,

    I would have liked to have seen the way that you coded the pauses between the letters. There are many ways to do it but your technique was very fluent. Would you mind pasting the code? Its a shame it did not remain in the Spreadsheet forum.

    Maud

  12. #11
    5 Star Lounger
    Join Date
    Jan 2004
    Location
    Praha
    Posts
    988
    Thanks
    56
    Thanked 105 Times in 90 Posts
    I completely didn't understand why an Excel example was removed form the Excel forum - the explanation made no sense at all (and was ungrammatical) "I moved your thread because it is not a Windows Secrets column."

    Anyway, here's the code - it is crude, just jotted down in a few spare minutes . . .

    PS I didn't use Application.Quit in case anyone had something else open in Excel and not saved !

    Code:
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    
    Sub Auto_Open()
    Dim Rows As Integer
    Dim Columns As Integer
    Dim Counter As Integer
    Dim Greeting As String
    Dim n As Integer
    
    
    Greeting = "MERRY CHRISTMAS     AND A     HAPPY  NEW YEAR"
    
    Counter = 1
    For Rows = 2 To 6 Step 2
        For Columns = 2 To 16
            Cells(Rows, Columns).Value = Mid(Greeting, Counter, 1)
            Counter = Counter + 1
            Sleep 120
        Next Columns
    Next Rows
    
    Sleep 1000
    
    For n = 1 To 25
        For Rows = 2 To 6
            For Columns = 2 To 16
                ActiveSheet.Cells(Rows, Columns).Select
                ActiveCell.Interior.ColorIndex = 1 + Int(Rnd * 56)
                ActiveCell.Font.ColorIndex = 1 + Int(Rnd * 56)
            Next Columns
        Next Rows
    Next n
    
    For n = 1 To 400
        Rows = 2 + Int(Rnd * 5)
        Columns = 2 + Int(Rnd * 15)
        ActiveSheet.Cells(Rows, Columns).Select
        ActiveCell.Interior.ColorIndex = 1
        Selection.Font.ColorIndex = 0
        Sleep 1
        Next n
        
    Range("B2:P6").Select
    Selection.Interior.ColorIndex = 1
    Selection.Font.ColorIndex = 44
    Selection.ClearContents
    Range("A1").Select
    
    ActiveWorkbook.Close False
    
    End Sub

  13. The Following 2 Users Say Thank You to MartinM For This Useful Post:

    Maudibe (2013-12-27),motivated (2013-12-28)

  14. #12
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,434
    Thanks
    372
    Thanked 1,457 Times in 1,326 Posts
    Martin,

    You had mistakenly posted the original to the Windows Secrets Columns forum that's why I moved it. It was never in Spreadsheets. I just assumed it was meant as a Holiday Greeting thus the move to Scuttlebutt (non technical stuff).
    wsc.JPG
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

  15. #13
    5 Star Lounger
    Join Date
    Jan 2004
    Location
    Praha
    Posts
    988
    Thanks
    56
    Thanked 105 Times in 90 Posts
    Thanks RG. It is odd, as I have never been near the Windows Secrets Columns forum !

    Anyway I am not meant to be "computing" today but as we are completely cut off by floods - here I am !

    Cheers

    Martin

  16. #14
    Lounger
    Join Date
    May 2011
    Posts
    44
    Thanks
    2
    Thanked 3 Times in 3 Posts
    Quote Originally Posted by RetiredGeek View Post
    Martin,

    You had mistakenly posted the original to the Windows Secrets Columns forum that's why I moved it. It was never in Spreadsheets. I just assumed it was meant as a Holiday Greeting thus the move to Scuttlebutt (non technical stuff).
    wsc.JPG
    Actually, the thread has been in Spreadsheets:
    pic.jpg

  17. #15
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,434
    Thanks
    372
    Thanked 1,457 Times in 1,326 Posts
    Very Interesting!

    If you look at when the two posts were started it was exactly 5 hours difference 19:43 in "Windows Secrets Columns" and 14:43 in "Spreadsheets".
    I don't know who did the original move but it looks like they inadvertently moved to "Windows Secrets Columns" and unfortunately I have no way of telling who that was or if the BB software hit a glitch (that 5 hour difference is suspicious). As you can see by post #6 I moved it at 19:44. Sorry this whole thing happened though and Martin I can move it back to Spreadsheets just let me know your preference.
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

Page 1 of 2 12 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •