|
|
#2
12-26-2012, 02:18 AM
|
||||
|
||||
Try:
Code:
Sub q()
Dim vInput As Variant
vInput = InputBox("", "", "9.1,1,3,5,6,2,4,10,7,8")
Dim arr(), a As Long
For a = 0 To UBound(Split(vInput, ","))
ReDim Preserve arr(a)
arr(a) = CInt(Split(vInput, ",")(a)) '' to convert string to integer
MsgBox arr(a) & vbTab & TypeName(arr(a))
Next a
End Sub
arr(a) = CLng(Split(vInput, ",")(a))
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Array argument in macro command | Wries | Excel Programming | 2 | 11-20-2012 01:08 AM |
| How to reserve an array in a public function? | tinfanide | Word VBA | 2 | 02-27-2012 06:51 AM |
 Complex array formula
|
andrei | Excel | 9 | 02-03-2012 03:40 AM |
| How to capture start and ending Ref. Nos. in an array | KIM SOLIS | Excel | 5 | 09-07-2011 07:43 AM |
| Look up an array based on user input | johnsmb | Excel | 2 | 01-07-2011 01:12 PM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode