Anh test thử code này xem sao:
Sub test()
Dim Myarr As Variant, myRng As Range
Set myRng = Sheet1.[A1:A100]
Myarr = Application.WorksheetFunction.Transpose(myRng)
MsgBox Myarr(4)
MsgBox IsArray(Myarr)
End Sub
Sub Test()
Dim MyArray As Variant
MyArray = Range("A1:A100")
MsgBox IsArray(MyArray)
End SubCám ơn nhiều, nhưng mìn muốn có câu để khai biến vào VBA thì làm tiếp cái gì!
Dạ được, nhưng anh thử đưa 1 giá trị nào đó của mảng MyArray ra messagebox thử xem!
Thì câu này đã gán rồi đó anh:
Myarr = Application.WorksheetFunction.Transpose(myRng)Ẹc... Ẹc... May quá.. có chuẩn bị trước
Sub Test()
Dim MyArray As Variant
MyArray = Range("A1:A10").Value
MsgBox MyArray(3, 1)
MsgBox IsArray(MyArray)
End SubVí dụ:
Sub test()
Dim Myarr As Variant, myRng As Range
Set myRng = Sheet1.[A1:A10]
Myarr = Application.WorksheetFunction.Transpose(myRng)
Range("B1:B10") = Myarr
End SubSub test()
Dim Myarr As Variant
Myarr = Sheet1.Range("A1:A100").value
End Sub
Nếu biết trước mảng này có bao nhiêu phần tử thì anh khai báo như sau (trong ví dụ anh đưa ra là 3 phần tử), đại khái:
Dim myArr(3) as Variant
myArr(1)="Sun"
myArr(2)="Mon"
myArr(3)="Tue"Sub test()
Dim Myarr As Variant
Myarr = Array("Sun", "Mon", "Tue")
End SubCó cài này tôi vẫn chưa biết làm thế nào!
Chắc là phải ăn gian:
For i = 1 to 10
MyText = MyText & MyArr(i, 1) & ", "
Next
MsgBox Left(MyText, Len(MyText) - 2)Nếu ta chưa biết mảng có bao nhiêu phần tử thì ta dùng hàm Ubound(MyArr) để xác định.
Dim MyArr as Variant
.............................
Dim MyText as string
For i = 0 to Ubound(MyArr)
MyText = MyText & "-" MyArr(i)
Next i
MyText = Left(MyText,Len(MyText)-1)
Msgbox MyText
Theo em thì bác nên nhập tất cả vào 1 ô, các ký tự ngăn cách nhau bởi 1 ký tự nào đó, rồi Split nó ra là ok thôi. Còn cái vụ ghép vào, nếu là mảng 1 chiều thì có thể dùng Join mà ko cần phải dùng vòng lặp For.
Ồ, cái vụ Join này hay quá! Cảm ơn rollover79 nhiều nha!
Dim MyArr as Variant
.............................
Dim MyText as string
Msgbox Join(MyArr,"-")
Sub getStrArr()
Dim r As Range, c As Range, s As String
Set r = Selection
If r.Cells.Count = 1 Then Exit Sub
For Each c In r
s = s & Chr(34) & c & Chr(34) & ","
Next
Debug.Print "Array(" & Left(s, Len(s) - [COLOR=red]1[/COLOR]) & ")"
End Sub
