Results 1 to 2 of 2

Thread: MIN MAX

  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    MIN MAX

    This code order a items of array...
    During the code run is possiblke to inteceprt MIN and MAX value from array and store in var_nim and var_max?

    Sub ORDER_ITEMS(TempArr)

    Dim J As Long
    Dim tmp As String

    For I = LBound(TempArr) To UBound(TempArr) - 1
    For J = I + 1 To UBound(TempArr)
    If TempArr(I) > TempArr(J) Then
    tmp = TempArr(I)
    TempArr(I) = TempArr(J)
    TempArr(J) = tmp
    End If
    Next J
    Next I

    End Sub

  2. #2
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts

    Re: Fill calendar component with my date (2000)

    As far as I know, you don't have this much control over the calander object.

    I think you will have to create your own userform with objects that appear to be a calander and highlight only certain cells and only accept certain cells to be pressd. A starting point for the basic design and functionality could be VBA Express : Excel - Userform Calendar Control. You could modify the code to have the desired functions.

    I would imagine it would looping through the objects inactivating and coloring the dates not in the list and activating an recoloring the ones in the list.

    Steve

Posting Permissions

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