Dim và Set

[feelingyes]

Các anh chị cho em hỏi
Dim và Set khác nhau ở chỗ nào?
Có phải là Dim cho các thuộc tính, còn Set cho các Object?

Ví dụ

Sub Bignumber()
Dim rowNumber As Integer, colNumber As Integer, currCell As Range
RowNum = Active.Row
Colnum = Active.Column
Set currCell = ActiveSheet.Cells(RowNum, Colnum)
Do While currCell.Value <> ""
If IsNumeric(currCell.Value) Then
If currCell.Value >= 1000 Then
currCell.Font.Color = VBAColor("magenta")
End If
End If
RowNum = RowNum + 1
Set currCell = ActiceSheet.Cells(RowNum, Colnum)
Loop
End Sub

Trong ví dụ trên em chạy không được (thủ tục dùng vòng lặp Do loop khi gặp một ô trắng), không biết sai ở chỗ nào?

Anh chị giúp em với

 

[tigertiger]

He... he... Đúng là làm khó mình thiệt... Giả lập dử liệu có khó gì chứ, cứ bắt mình phải post file lên... Hic..
Các bạn tải file về nhanh nhé, ngày mai tôi sẽ xóa nó đi... Hết tài nguyên rồi
ANH TUẤN

trùi ah, phân biệt 2 cái đó đâu khác nhau nhiều đâu atuan

ban fe... nói là làm thử rùi mà

 

[Mr Okebab]

Thực ra 4,5 giây hay 1 giây cũng là thua, vì OkeBab nói code chỉ nặng khi chạy còn CF hễ thay đổi số liệu là chạy.

Chạy Sub thì lâu hơn rồi, chỉ nhanh hơn khi không chạy chỉ bởi vì là nó . . không chạy.

Cảm ơn các bác!
Thân!