Consulting

Page 2 of 2 FirstFirst 1 2
Results 21 to 40 of 40

Thread: testing

  1. #21
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location
    test error (quick reply)

  2. #22
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location
    test error (reply to thread)

  3. #23
    Moderator VBAX Guru Aussiebear's Avatar
    Joined
    Dec 2005
    Location
    Queensland
    Posts
    3,819
    Location
    That has got to be the saddest looking donkey I've ever seen
    Remember To Do the Following....
    Use tags when posting code to the thread,
    Mark your thread as Solved if satisfied by using the Thread Tools options.
    If posting the same issue to another forum please show the link

  4. #24
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location

    Tag Test (layout/indentation):

    VBA Tags:
    [VBA]Option Explicit

    Function RangeFound(SearchRange As Range, _
    Optional ByVal FindWhat As String = "*", _
    Optional StartingAfter As Range, _
    Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
    Optional LookAtWholeOrPart As XlLookAt = xlPart, _
    Optional SearchRowCol As XlSearchOrder = xlByRows, _
    Optional SearchUpDn As XlSearchDirection = xlPrevious, _
    Optional bMatchCase As Boolean = False) As Range

    Dim Fake_1 As Variant
    Dim Fake_2(0 To 2) As String


    If StartingAfter Is Nothing Then
    Set StartingAfter = SearchRange(1)
    End If

    Set RangeFound = SearchRange.Find(What:=FindWhat, _
    After:=StartingAfter, _
    LookIn:=LookAtTextOrFormula, _
    LookAt:=LookAtWholeOrPart, _
    SearchOrder:=SearchRowCol, _
    SearchDirection:=SearchUpDn, _
    MatchCase:=bMatchCase)
    End Function[/VBA]

    Code Tags:
    Option Explicit
        
    Function RangeFound(SearchRange As Range, _
                        Optional ByVal FindWhat As String = "*", _
                        Optional StartingAfter As Range, _
                        Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
                        Optional LookAtWholeOrPart As XlLookAt = xlPart, _
                        Optional SearchRowCol As XlSearchOrder = xlByRows, _
                        Optional SearchUpDn As XlSearchDirection = xlPrevious, _
                        Optional bMatchCase As Boolean = False) As Range
        
    Dim Fake_1          As Variant
    Dim Fake_2(0 To 2)  As String
        
        
        If StartingAfter Is Nothing Then
            Set StartingAfter = SearchRange(1)
        End If
        
        Set RangeFound = SearchRange.Find(What:=FindWhat, _
                                          After:=StartingAfter, _
                                          LookIn:=LookAtTextOrFormula, _
                                          LookAt:=LookAtWholeOrPart, _
                                          SearchOrder:=SearchRowCol, _
                                          SearchDirection:=SearchUpDn, _
                                          MatchCase:=bMatchCase)
    End Function
    Code Tags (colorized):
    Option Explicit
        
    Function RangeFound(SearchRange As Range, _
                        Optional ByVal FindWhat As String = "*", _
                        Optional StartingAfter As Range, _
                        Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
                        Optional LookAtWholeOrPart As XlLookAt = xlPart, _
                        Optional SearchRowCol As XlSearchOrder = xlByRows, _
                        Optional SearchUpDn As XlSearchDirection = xlPrevious, _
                        Optional bMatchCase As Boolean = False) As Range
        
    Dim Fake_1          As Variant
    Dim Fake_2(0 To 2)  As String
        
        
        If StartingAfter Is Nothing Then
            Set StartingAfter = SearchRange(1)
        End If
        
        Set RangeFound = SearchRange.Find(What:=FindWhat, _
                                          After:=StartingAfter, _
                                          LookIn:=LookAtTextOrFormula, _
                                          LookAt:=LookAtWholeOrPart, _
                                          SearchOrder:=SearchRowCol, _
                                          SearchDirection:=SearchUpDn, _
                                          MatchCase:=bMatchCase)
    End Function

  5. #25
    VBAX Newbie
    Joined
    May 2012
    Posts
    1
    Location
    The computer power-on self-test (POST) tests the computer to make sure it meets the necessary system requirements and that all hardware is working properly .

  6. #26
    VBAX Newbie
    Joined
    May 2012
    Posts
    1
    Location
    what kind of test post you are talking about

  7. #27
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location

    Sign Test

    test #1

    test #2

    test #3


    test #3 bold and color
    Last edited by GTO; 08-28-2012 at 05:42 PM.

  8. #28
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location
    Test tags 4.2.1

    Public Property Let WinHandle(wh As Long)
      hwndForm = wh
    End Property
      Public Property Get WinHandle() As Long
        WinHandle = hwndForm
      End Property

  9. #29
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location
    test courier (font tags)

    test Courier New

    tes



    s

    Def font...

    Test Courier New (Font Tags) ---> Here is a test (no quotes in the tag's arg)

    back to def font/face...


    Test Courier New (with quotes) ---> Here is another test
    ie - [Font="courier new"]Here is another test[/Font]



    Code Tags w/Font tags...
    Function RangeFound(SearchRange As Range, _
                        Optional ByVal FindWhat As String = "*", _
                        Optional StartingAfter As Range, _
                        Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
                        Optional LookAtWholeOrPart As XlLookAt = xlPart, _
                        Optional SearchRowCol As XlSearchOrder = xlByRows, _
                        Optional SearchUpDn As XlSearchDirection = xlPrevious, _
                        Optional bMatchCase As Boolean = False) As Range
        
        If StartingAfter Is Nothing Then
            Set StartingAfter = SearchRange.Cells(1)
        End If
        
        Set RangeFound = SearchRange.Find(What:=FindWhat, _
                                          After:=StartingAfter, _
                                          LookIn:=LookAtTextOrFormula, _
                                          LookAt:=LookAtWholeOrPart, _
                                          SearchOrder:=SearchRowCol, _
                                          SearchDirection:=SearchUpDn, _
                                          MatchCase:=bMatchCase)
    End Function
    Last edited by GTO; 07-29-2013 at 08:36 PM.

  10. #30
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location
    ...+1

    ....yikes, that was ugly!

  11. #31
    Moderator VBAX Guru Aussiebear's Avatar
    Joined
    Dec 2005
    Location
    Queensland
    Posts
    3,819
    Location
    is this where you warm up your fingers?
    Remember To Do the Following....
    Use tags when posting code to the thread,
    Mark your thread as Solved if satisfied by using the Thread Tools options.
    If posting the same issue to another forum please show the link

  12. #32
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location
    No, mostly just finding out that my head is still as thick as ever. See...

    After reading most of DRJ's and others comments in the Upgrades thread, I got to testing (I think in response to comments of SamT's?). Anyways, as I mentioned, my head remains mostly vacant, as it was taking me forever to figure out a simpleton thing. ([font] tags work fine. But when you keep trying [face] tags that don't work, you are going to keep seeing the same [bleeeep] results... The last one was trying to increase font size a tiny bit. Ooooo Yuck! It were WAY too big.

  13. #33
    Moderator VBAX Guru Aussiebear's Avatar
    Joined
    Dec 2005
    Location
    Queensland
    Posts
    3,819
    Location
    Days Fishing/Month Costs Results
    5/January 1547.00 38
    3/February 971.55 26
    Month Income Expenses
    Jan 24258.00 24257.99
    Feb Out of Business
    Issue at Hand Distracted by Result
    Should have mowed lawn Went fishing Got yelled at by the Bride
    Should have mowed lawn (again) Yep...Fishing First & Final issued by the Bride
    Remember To Do the Following....
    Use tags when posting code to the thread,
    Mark your thread as Solved if satisfied by using the Thread Tools options.
    If posting the same issue to another forum please show the link

  14. #34
    testing post

  15. #35
    Knowledge Base Approver VBAX Guru macropod's Avatar
    Joined
    Jul 2008
    Posts
    3,867
    Location
    Groovetc: Kindly don't do test posts outside the test forum, especially not in other peoples' threads!!!
    Cheers
    Paul Edstein
    [MS MVP - Word]

  16. #36
    Knowledge Base Approver VBAX Guru GTO's Avatar
    Joined
    Sep 2008
    Posts
    3,362
    Location
    Another test of current code tags...

    '-----------------------------------------------------
    ' Sheet Type                    | TypeName    | .Type
    '-----------------------------------------------------
    ' Worksheet                     | Worksheet   | -4167 (&HFFFFEFB9)
    ' Dialog Sheet                  | DialogSheet | Error
    ' 4.0 Macro Sheet               | Worksheet   | 3
    ' 4.0 International Macro Sheet | Worksheet   | 4
    ' Chart                         | Chart       | 3
    '-----------------------------------------------------
    Public Function IsWorksheet(ByVal objSheet As Object) As Boolean
      If TypeName(objSheet) = "Worksheet" Then
        IsWorksheet = (objSheet.Type = &HFFFFEFB9)
      End If
    End Function

  17. #37
    Moderator VBAX Wizard SamT's Avatar
    Joined
    Oct 2006
    Location
    Near Columbia
    Posts
    6,844
    Location
    Was it something I said?
    Please take the time to read the Forum FAQ

  18. #38
    Moderator VBAX Guru Aussiebear's Avatar
    Joined
    Dec 2005
    Location
    Queensland
    Posts
    3,819
    Location
    Quote Originally Posted by SamT View Post
    Was it something I said?
    Nope.... more like what you didn't say.
    Remember To Do the Following....
    Use tags when posting code to the thread,
    Mark your thread as Solved if satisfied by using the Thread Tools options.
    If posting the same issue to another forum please show the link

  19. #39
    Moderator VBAX Wizard SamT's Avatar
    Joined
    Oct 2006
    Location
    Near Columbia
    Posts
    6,844
    Location
    Happy Birthday???

    Mazel tov???
    Please take the time to read the Forum FAQ

  20. #40
    Moderator VBAX Guru Aussiebear's Avatar
    Joined
    Dec 2005
    Location
    Queensland
    Posts
    3,819
    Location
    Quote Originally Posted by SamT View Post
    Mazel tov???
    Did you have to bring this up?
    Remember To Do the Following....
    Use tags when posting code to the thread,
    Mark your thread as Solved if satisfied by using the Thread Tools options.
    If posting the same issue to another forum please show the link

Posting Permissions

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