+ Reply to Thread
Results 1 to 4 of 4

Outputting the contents of an array

  1. #1
    Registered User
    Join Date
    10-13-2004
    Posts
    26

    Question Outputting the contents of an array

    Hi folks, I've searched up and down these forums, maybe I'm not using the right keywords, but I can't find an answer. I have a dynamic array, TNum(), that gets filled with anywhere from 1 to 6 numbers depending on the item name entered. The problem is, I want to make a message box that will output whatever numbers are in the array, separated by commas. I tried a fixed array, but when the array had less than 6 numbers, it'd return an out of bounds error, as I expected.

    I know my code is wrong (aside from the fact that it doesn't do what I want), but I feel I'm on the right track. I think all I need is a way to create the entire string first and then put it into the msgbox. I can't figure it out though. Pleeeaaase help meeee...

    Please Login or Register  to view this content.

  2. #2
    Registered User
    Join Date
    07-25-2005
    Posts
    62
    Try something like

    Dim strNums As String

    strNums = CStr(TNum(1))

    For i = 2 to j ' assuming j is the number of elements in the array

    strNums = strNums & ", " & CStr(TNum(i))

    Next i

    MsgBox(strNums)

    'CStr converts the number to a string

  3. #3
    Registered User
    Join Date
    10-13-2004
    Posts
    26
    IT WORKS! IT WORKS! THANK YOU THANK YOU THANK YOU! lol I really do appreciate it, I've been banging my head into a wall for weeks trying to figure it out myself!

  4. #4
    Tim Williams
    Guest

    Re: Outputting the contents of an array

    Msgbox Join(TNum,",")

    Tim


    "carg1" <carg1.1sumeh_1122501977.4881@excelforum-nospam.com> wrote in
    message news:carg1.1sumeh_1122501977.4881@excelforum-nospam.com...
    >
    > Hi folks, I've searched up and down these forums, maybe I'm not
    > using
    > the right keywords, but I can't find an answer. I have a dynamic
    > array, TNum(), that gets filled with anywhere from 1 to 6 numbers
    > depending on the item name entered. The problem is, I want to make
    > a
    > message box that will output whatever numbers are in the array,
    > separated by commas. I tried a fixed array, but when the array had
    > less than 6 numbers, it'd return an out of bounds error, as I
    > expected.
    >
    >
    > I know my code is wrong (aside from the fact that it doesn't do what
    > I
    > want), but I feel I'm on the right track. I think all I need is a
    > way
    > to create the entire string first and then put it into the msgbox.
    > I
    > can't figure it out though. Pleeeaaase help meeee...
    >
    >
    > Code:
    > --------------------
    > Iput = InputBox("Please enter item:")
    > Set FoundCell = Cells.Find(what:=Iput, LookIn:=xlFormulas,
    > lookat:=xlWhole, _
    > searchorder:=xlByRows)
    > FoundRow = FoundCell.Row
    >
    > For i = 2 To 7
    >
    > If Worksheets(1).Cells(FoundRow, i).Value <> "" Then
    > j = j + 1
    >
    > ReDim Preserve TNum(1 To j)
    > TNum(j) = Worksheets(1).Cells(FoundRow, i).Value
    >
    > End If
    >
    > Next i
    >
    > For l = 1 To UBound(TNum())
    > Term2 = Format(TNum(j), "####\.##\.##\.##") & ", " & _
    > Format(TNum(j), "####\.##\.##\.##") & ", " & _
    > Format(TNum(j), "####\.##\.##\.##") & ", " & _
    > Format(TNum(j), "####\.##\.##\.##") & ", " & _
    > Format(TNum(j), "####\.##\.##\.##") & ", " & _
    > Format(TNum(j), "####\.##\.##\.##")
    > --------------------
    >
    >
    > --
    > carg1
    > ------------------------------------------------------------------------
    > carg1's Profile:
    > http://www.excelforum.com/member.php...o&userid=15271
    > View this thread:
    > http://www.excelforum.com/showthread...hreadid=390757
    >




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1