- Tham gia
- 11/10/06
- Bài viết
- 68
- Được thích
- 21
Các bạn ơi !
Mình có biết và hiểu về VBA nhưng theo kiểu "học vẹt". Mới đầu thích tình cờ biết về marco và sau đó mình record những marco mẫu rồi tìm hiểu, nhiều thành quen và hiểu "na ná". Sau đó mình tìm mua sách về VBA rồi đọc và cũng thu lươnmj nhiều kiến thức. Nhưng từ khi biết diễn đàn, mình nhận ra rằng mình "Không hiểu bản chất lập trình VBA EXCEL". Sự tiếp nhận kiến thức về VAB EXCEL của mình là 1 "con vẹt".
Ví dụ về "Sự không hiểu của mình".Giả sử có 1 Marco như sau :
----------------------------------
Sub DeleteRowsThatLookEmptyinColA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim rng As Range, ix As Long
Set rng = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For ix = rng.Count To 1 Step -1
If Trim(Replace(rng.Item(ix).Text, _
Chr(160), Chr(32))) = "" Then
rng.Item(ix).EntireRow.Delete
End If
Next
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
-------------------------------------
Mình không biết các ngôn từ như "ScreenUpdating" hay "Calculation" hay
"xlCalculationManual 'pre XL97 xlManual" vv..vv..vv. là như thế nào.
Mình hi vọng hiểu được cái sự "Không hiểu" của mình qua ví dụ trên
Bây giờ mình muốn "nắm bắt" được nó thì mình phải tìm hiểu ra sao, các bạn có tài liệu nào thì giới thiệu giúp mình để mình có thể dần dần làm chủ và trực tiếp "Viết các marco" chứ không theo kiểu Record như trước.
Mình có biết và hiểu về VBA nhưng theo kiểu "học vẹt". Mới đầu thích tình cờ biết về marco và sau đó mình record những marco mẫu rồi tìm hiểu, nhiều thành quen và hiểu "na ná". Sau đó mình tìm mua sách về VBA rồi đọc và cũng thu lươnmj nhiều kiến thức. Nhưng từ khi biết diễn đàn, mình nhận ra rằng mình "Không hiểu bản chất lập trình VBA EXCEL". Sự tiếp nhận kiến thức về VAB EXCEL của mình là 1 "con vẹt".
Ví dụ về "Sự không hiểu của mình".Giả sử có 1 Marco như sau :
----------------------------------
Sub DeleteRowsThatLookEmptyinColA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim rng As Range, ix As Long
Set rng = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For ix = rng.Count To 1 Step -1
If Trim(Replace(rng.Item(ix).Text, _
Chr(160), Chr(32))) = "" Then
rng.Item(ix).EntireRow.Delete
End If
Next
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
-------------------------------------
Mình không biết các ngôn từ như "ScreenUpdating" hay "Calculation" hay
"xlCalculationManual 'pre XL97 xlManual" vv..vv..vv. là như thế nào.
Mình hi vọng hiểu được cái sự "Không hiểu" của mình qua ví dụ trên
Bây giờ mình muốn "nắm bắt" được nó thì mình phải tìm hiểu ra sao, các bạn có tài liệu nào thì giới thiệu giúp mình để mình có thể dần dần làm chủ và trực tiếp "Viết các marco" chứ không theo kiểu Record như trước.