Collections Collections Collections

LeiItUp
over 8 years ago

So I've created a collected based off the selected items   and I have it showing only unique values which displays the collection  in a MsgBox.  How do I get it to count how many of each item it counted and displayed that next to it in the MsgBox.

For Each itm In colCol1

Txt = Txt  & itm & vbNewLine
Next itm

msgBox Txt

Example:

20 Hats

15 Shirts

5 Scarves

Parents
No Data
Reply
  • 0 over 8 years ago

    I tried a method like this one time and failed....so I decided to assign each count to a textbox on a form.

    Dim sr As ShapeRange

     

    Private Sub cmdCount_Click()

    Set sr = ActiveSelectionRange

    txtboxHats = sr.Count

    txtboxShirts = sr.Count

    txtboxScarves = sr.Count

    End Sub

     

    'Maybe something like this could work for you?

Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.