Khai báo biến DL = Range("A1:A5") được, nhưng chuyển sang dạng DL=[A1:A5] không được

[Dauthivan]

Em đang tìm hiểu một số đối tượng, thay đổi cách dùng của chúng trong các trường hợp khác nhau,

Em thử Code này:

Sub hoangdien()
Dim DL(), i As Long
DL = Range("A1:A5")
For i = 1 To 5
If DL(i, 1) > 0 Then
DL(i, 1) = DL(i, 1)
Else: DL(i, 1) = 0
End If
Next
Range("A7:A11") = DL
End Sub

chạy ra thấy được, nhưng khai báo dưới dạng khác "cho gọn", bằng cách thay cụm DL = Range("A1:A5") bằng cụm DL=[A1:A5] lại báo lỗi?

Bởi em tìm hiểu, đọc lý thuyết thấy 2 cụm này là như nhau. Ví dụ [A1:A3].Select giống Range("A1:A3").Select

 

[ndu96081631]

Em đang tìm hiểu một số đối tượng, thay đổi cách dùng của chúng trong các trường hợp khác nhau,

Em thử Code này:

Sub hoangdien()
Dim DL(), i As Long
DL = Range("A1:A5")
For i = 1 To 5
If DL(i, 1) > 0 Then
DL(i, 1) = DL(i, 1)
Else: DL(i, 1) = 0
End If
Next
Range("A7:A11") = DL
End Sub

chạy ra thấy được, nhưng khai báo dưới dạng khác "cho gọn", bằng cách thay cụm DL = Range("A1:A5") bằng cụm DL=[A1:A5] lại báo lỗi?

Bởi em tìm hiểu, đọc lý thuyết thấy 2 cụm này là như nhau. Ví dụ [A1:A3].Select giống Range("A1:A3").Select

Sửa vầy là được DL=[A1:A5].Value
Đôi lúc cũng phải viết cho rõ ràng ---> Lấp lửng thế ai biết muốn nói cái gì với DL

 

[nmhung49]

Em đang tìm hiểu một số đối tượng, thay đổi cách dùng của chúng trong các trường hợp khác nhau,

Em thử Code này:

Sub hoangdien()
Dim DL(), i As Long
DL = Range("A1:A5")
For i = 1 To 5
If DL(i, 1) > 0 Then
DL(i, 1) = DL(i, 1)
Else: DL(i, 1) = 0
End If
Next
Range("A7:A11") = DL
End Sub

chạy ra thấy được, nhưng khai báo dưới dạng khác "cho gọn", bằng cách thay cụm DL = Range("A1:A5") bằng cụm DL=[A1:A5] lại báo lỗi?

Bởi em tìm hiểu, đọc lý thuyết thấy 2 cụm này là như nhau. Ví dụ [A1:A3].Select giống Range("A1:A3").Select

Đúng 2 cái đó như nhau, nhưng các anh chị trên diễn đàn cũng có khuyên bạn đừng lạm dụng cái đó quá mức nên viết tường tận thì sẽ không sao. Bạn sửa lại thành [A1:A5].value thì OK