ngoctrongdat
Thành viên mới
- Tham gia
- 31/8/08
- Bài viết
- 45
- Được thích
- 13
Tôi được ndu viết giùm một đoạn code cho việc lọc dữ liệu học sinh giỏi, học sinh tiên tiến như sau:
Tuy nhiên kiến thức về macro của bản thân còn hạn chế nên rất cần các bạn giúp đỡ giải thích giùm một số nội dung trong đoạn code trên:
-Con số 12 trong dòng lệnh: ".SpecialCells(12).Copy " có ý nghĩa gì?
-Ý nghĩa của dòng lệnh: .CurrentRegion.Resize(, 1).SpecialCells(2, 1).Value = Evaluate("ROW(R:R)")
và Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("TB") & """,2)")
Và nói chung là nếu bác nào có điều kiện dịch toàn bộ đoạn code đó sang tiếng việt (giải thích) ý nghĩa đầy đủ của nó thì càng tốt
Mã:
Option Explicit
Sub Trichloc()
Dim i As Long
Application.ScreenUpdating = False
Sheets("hsg").[A6:G1000].Clear
Sheets("HSTT").[A6:G1000].Clear
With Sheets("lop").[A6].CurrentRegion
For i = 1 To 2
.AutoFilter 4, Choose(i, "G", "K"): .AutoFilter 5, "T"
.SpecialCells(12).Copy
With Sheets(Choose(i, "hsg", "HSTT")).[A6]
.PasteSpecial
If .CurrentRegion.Rows.Count > 1 Then
.CurrentRegion.Resize(, 1).SpecialCells(2, 1).Value = Evaluate("ROW(R:R)")
End If
End With
Next i
End With
Sheets("lop").AutoFilterMode = False
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("TB") & """,2)")
Application.ScreenUpdating = True
End Sub-Con số 12 trong dòng lệnh: ".SpecialCells(12).Copy " có ý nghĩa gì?
-Ý nghĩa của dòng lệnh: .CurrentRegion.Resize(, 1).SpecialCells(2, 1).Value = Evaluate("ROW(R:R)")
và Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("TB") & """,2)")
Và nói chung là nếu bác nào có điều kiện dịch toàn bộ đoạn code đó sang tiếng việt (giải thích) ý nghĩa đầy đủ của nó thì càng tốt
Chỉnh sửa lần cuối bởi điều hành viên:
