Office / VBA

人的梦想，是不会结束的 ---- 马歇尔·D·帝奇

VBA Pass Array in function

使用软件： Microsoft Office 2000+

来源：MSDN http://support.microsoft.com/kb/213798

Sub Pass_array()

Dim myarray As Variant

myarray = Range("a1:a10").Value

receive_array myarray

End Sub

Sub receive_array(thisarray)

For i = 1 To UBound(thisarray)

MsgBox thisarray(i, 1)

End Sub

VBA Array to Range or Range to Array

使用软件： Microsoft Office 2000+

来源：MSDN http://support.microsoft.com/kb/213798

Array to Range

Sub Sheet_Fill_Array()

Dim myarray As Variant

myarray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

Range("a1:a10").Value = Application.WorksheetFunction.Transpose(myarray)

End Sub

Range to Array

Sub From_sheet_make_array()

Dim myarray As Variant

myarray = Range("a1:a10").Value

End Sub

Sony Tablet S adb mode

Sony Tablet S (Android 3.2) play music from SD Card