Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Are you looking for something like:
arr1 1 2 arr2 a b c The array names in one column and the elements in the column to the right. If yes: Option Explicit Sub testme01() Dim arr1 As Variant Dim arr2 As Variant Dim NamesArr As Variant Dim RealArr As Variant Dim iCtr As Long Dim jCtr As Long Dim DestCell As Range arr1 = Array(1, 2, 3) arr2 = Array("a", "b", "c") 'make sure both of these have the same number of elements! NamesArr = Array("arr1", "arr2") RealArr = Array(arr1, arr2) Set DestCell = ActiveCell For iCtr = LBound(NamesArr) To UBound(NamesArr) DestCell.Value = NamesArr(iCtr) 'move over for the first element of the array Set DestCell = DestCell.Offset(0, 1) For jCtr = LBound(RealArr(iCtr)) To UBound(RealArr(iCtr)) DestCell.Value = RealArr(iCtr)(jCtr) 'get ready for the next element Set DestCell = DestCell.Offset(1, 0) Next jCtr 'come back to original column for next array Set DestCell = DestCell.Offset(-1, -1) Next iCtr End Sub I'm not sure if NamesArr contained the names of the arrays or the actual arrays. But in any case, I don't think you're going to use the string as a variable. If you did: Dim NamesArr as Variant NamesArr = array("arr1","arr2") Then when you're in the loop, this line: For Each element In Array(namesarr(S)) is essentially this: For each element in array("arr1") and then For each element in array("arr2") In either case, you're looping through an array with just one element -- "arr1" the first time and "arr2" the second time. Al wrote: Hey all I have 2 arrays called arr1 and arr2 (string arrays) arr1 contains the values 1, 2, 3 arr2 contains the values a, b, c I have a third array, namesarr (also String), which contains the names of the first 2 arrays I am trying to have the following output on my excell sheet arr1 1 2 3 arr2 a b c Here is the code I am using: For S = 0 To UBound(namesarr) ActiveCell.Value = namesarr(S) For Each element In Array(namesarr(S)) ActiveCell.Offset(1, 0).Select ActiveCell.Value = element Next element Next S here is what I get: arr1 arr2 The contents of each of my arrays don't get printed. I am sure that I am referencing them incorrectly, but I can't figure it out. any help appreciated. Thanks Al -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Referenceing worksheets in excell 2003 | Excel Discussion (Misc queries) | |||
indirect function referenceing changing file name | Excel Worksheet Functions | |||
cross referenceing data in excel | Excel Discussion (Misc queries) | |||
Excel 2003 - referenceing the active worksheet page in vlookup | Excel Worksheet Functions | |||
Array Question | Excel Programming |