hoclaptrinh
Thành viên hoạt động
- Tham gia
- 28/8/14
- Bài viết
- 151
- Được thích
- 6
số là hôm trước em có nhờ trên diễn đàn mấy anh viết cho đoạn code như thế này
nhưng em không hiểu giờ nhờ mấy cao thủ giải thích để em hiều và ngâm cứu hihi
Public Sub NOTCAO()
Dim d As Long, r As Long, c As Long, tl As Long, tr As Long
Dim Sd, Ptu, TGL(), TGR(), KQ()
With Sheet1
.Range(Cells(1, 10), Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Clear
For d = 1 To .Range(
nhưng em không hiểu giờ nhờ mấy cao thủ giải thích để em hiều và ngâm cứu hihi
Public Sub NOTCAO()
Dim d As Long, r As Long, c As Long, tl As Long, tr As Long
Dim Sd, Ptu, TGL(), TGR(), KQ()
With Sheet1
.Range(Cells(1, 10), Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Clear
For d = 1 To .Range(
Lần chỉnh sửa cuối:
