Nhờ các bác tư vấn về macro tiến độ (1 người xem)

[4vuong4tron]

Nhờ các bác tư vấn xử lý các trường hợp như hình, bác Maika và bác Bebo giúp e với
(Trong phai gửi kèm đã tích hợp sẵn macro có 2 lựa chọn: lựa chọn 1 là căn chữ đỏ vào giữa, lựa chọn 2 là chữ đỏ ẩn, chữ đỏ là ô chứa công thức)
Kết quả sau khi chạy macro:
ở trường hợp 1 như hình mình thay đổi ngày kết thúc (từ 30 thành 50) chữ đỏ ko tự chỉnh, còn nếu thay đổi ngày bắt đầu <20 chữ màu đỏ sẽ mất, trước khi đổi ngày phải chuyển về 2, đổi ngày, rồi chuyển về 1(mất thêm thao tác)
ở trường hợp 3 nếu xoá cột mã (A16) chữ đỏ ko mất đi, phải chuyển về lựa chọn 2 rồi xoá mới được (mất thêm thao tác)
Cần giúp: theo như yêu cầu hình chụp
Lưu ý: ở trường hợp 2 ngày bắt đầu, kết thúc e muốn xoá luôn để vào lại (trong hình e quyên xoá ô A13 là móng cấp phối đá dăm)

 

[bebo021999]

Ủa, thấy đọc file update rồi mà không thấy hồi âm, tưởng xong rồi chứ!

{Hỏi về macro làm tiến độ}

Nhờ ae tư vấn tạo macro ứng dụng để lập tiến độ (macro 1 và macro 2) macro 1: biến hình 1 thành hình 2 macro 2: biến hình 2 về hình 1 như lúc đầu Hình 1(chữ đỏ nằm ở ngày 11 và 21) và hình 2 (chữ đỏ nằm giữa ngày 11-39 và 21-49) ghi chú: ở cột TT chạy từ 1 đến N

www.giaiphapexcel.com

 

[4vuong4tron]

Ủa, thấy đọc file update rồi mà không thấy hồi âm, tưởng xong rồi chứ!

{Hỏi về macro làm tiến độ}

Nhờ ae tư vấn tạo macro ứng dụng để lập tiến độ (macro 1 và macro 2) macro 1: biến hình 1 thành hình 2 macro 2: biến hình 2 về hình 1 như lúc đầu Hình 1(chữ đỏ nằm ở ngày 11 và 21) và hình 2 (chữ đỏ nằm giữa ngày 11-39 và 21-49) ghi chú: ở cột TT chạy từ 1 đến N

www.giaiphapexcel.com

vẫn chưa ổn lắm bác à vì có vài trường hợp e chưa lường hết, nhờ bác giúp em với
ko biết em nên đăng vào mục nào bác nhỉ, bác cho em xin cái đường dẫn chuyên mục cần đăng để em đăng lại với

 

[BuiQuangThuan]

vẫn chưa ổn lắm bác à, nhờ bác giúp em với, ko biết em nên đăng vào mục nào bác nhỉ, bác cho em xin cái đường dẫn chuyên mục cần đăng để em đăng lại với

Nếu nó cùng 1 vấn đề thì có thể hỏi luôn ở topic bên kia cũng được. Còn nó là vấn đề mới thì lập chủ đề mới như này cũng chẳng sao.
Nhưng cái tên tiêu đề kia có vẻ là phạm quy rồi.

 

[4vuong4tron]

Nếu nó cùng 1 vấn đề thì có thể hỏi luôn ở topic bên kia cũng được. Còn nó là vấn đề mới thì lập chủ đề mới như này cũng chẳng sao.
Nhưng cái tên tiêu đề kia có vẻ là phạm quy rồi.

vẫn là chủ đề cũ nhưng có phát sinh thêm, thấy mấy cái đều phạm quy bị khoá cả nên ko biết đăng vào đâu, hoang mang quá, đang còn nhiều vấn đề cần giải quyết

 

[Maika8008]

vẫn là chủ đề cũ nhưng có phát sinh thêm, thấy mấy cái đều phạm quy bị khoá cả nên ko biết đăng vào đâu, hoang mang quá, đang còn nhiều vấn đề cần giải quyết

Đăng ở đây là được rồi. Tiêu đề hơi chung chung nhưng chắc không phạm quy đâu. Còn nội dung cần giải quyết thì tính sau

 

[bebo021999]

vẫn chưa ổn lắm bác à vì có vài trường hợp e chưa lường hết, nhờ bác giúp em với
ko biết em nên đăng vào mục nào bác nhỉ, bác cho em xin cái đường dẫn chuyên mục cần đăng để em đăng lại với

Vậy post lại file của mình ở đây, mô tả rõ chưa ổn chỗ nào?

 

[4vuong4tron]

Vậy post lại file của mình ở đây, mô tả rõ chưa ổn chỗ nào?

Vậy post lại file của mình ở đây, mô tả rõ chưa ổn chỗ nào?

E xin trình bày câu chuyện thế này:
1. Phai đầu tiên của bác bebo đã ok. Nhưng sau đó e có hỏi bác bebo thêm mấy trường hợp như (ấn 1 sẽ hiện chữ màu đỏ, ấn 2 chữ màu đỏ sẽ ko hiện và trả về công thức như lúc đầu) chưa thấy bác hồi âm (sau này lại thấy bác giúp e sửa lại như bài 2)
2. Sau đó e có post bài khác và có đưa đoạn cod ban đầu lên, yêu cầu cũng khác hơn, có bác maika bổ sung thêm giúp e đoạn cod. Dựa vào hướng dẫn của bác maika em sửa lại macro và chạy thử
3. E thấy cần phải bổ sung thêm cho hoàn thiện hơn nên e có nhờ 2 bác giúp như em đã trình bày ở trên
vì e nhờ 2 bác là 2 yêu cầu khác nhau nên thành ra câu chuyện khó hiểu
Đoạn cod ban đầu của bác bebo (có phai của bác kèm theo)
................................
If ip = 1 Then
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
End If
.......................................
Đoạn cod theo hướng dẫn của bác maika thay đoạn cod trên (có phai của bác kèm theo)
If ip = 1 Then
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
.Resize(1, ngay).Font.Color = vbRed
Else
.Copy .Resize(1, ngay)
Range("CD" & cell.Row & ":FO" & cell.Row).Font.Color = .Interior.Color
End If

 

[bebo021999]

Wow.
Bắt đầu rối bời rồi đây.
Đẻ đứa con mà nhìn mãi không biết con Lý trưởng hay Quan huyện nữa.

 

[Maika8008]

E xin trình bày câu chuyện thế này:
1. Phai đầu tiên của bác bebo đã ok. Nhưng sau đó e có hỏi bác bebo thêm mấy trường hợp như (ấn 1 sẽ hiện chữ màu đỏ, ấn 2 chữ màu đỏ sẽ ko hiện và trả về công thức như lúc đầu) chưa thấy bác hồi âm (sau này lại thấy bác giúp e sửa lại như bài 2)
2. Sau đó e có post bài khác và có đưa đoạn cod ban đầu lên, yêu cầu cũng khác hơn, có bác maika bổ sung thêm giúp e đoạn cod. Dựa vào hướng dẫn của bác maika em sửa lại macro và chạy thử
3. E thấy cần phải bổ sung thêm cho hoàn thiện hơn nên e có nhờ 2 bác giúp như em đã trình bày ở trên
vì e nhờ 2 bác là 2 yêu cầu khác nhau nên thành ra câu chuyện khó hiểu
Đoạn cod ban đầu của bác bebo (có phai của bác kèm theo)
................................
If ip = 1 Then
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
End If
.......................................
Đoạn cod theo hướng dẫn của bác maika thay đoạn cod trên (có phai của bác kèm theo)
If ip = 1 Then
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
.Resize(1, ngay).Font.Color = vbRed
Else
.Copy .Resize(1, ngay)
Range("CD" & cell.Row & ":FO" & cell.Row).Font.Color = .Interior.Color
End If

Bạn xem file thử có phải như yêu cầu không?

 

[4vuong4tron]

Bạn xem file thử có phải như yêu cầu không?

Vẫn ko được bác à
E có quay lại video nhờ bác xem hộ

Liên kết: https://youtu.be/Xq1vPO7KllI
Ý em là: Nếu tất cả các công tác đang ở chế độ lựa chọn 1 hoặc 2 đều sẽ thoả mãn điều kiện
a. Khi ta thay đổi ngày bắt đầu hoặc ngày kết thúc chữ đỏ sẽ tự căn chỉnh lại (nếu ở lựa chọn 1 còn ở lựa chọn 2 luôn đúng)
b. Còn khi ta xoá 1 công tác (cột mã màu đỏ chẳng hạn) nào đó thì hàng đó sẽ tự động xoá ngày bắt đầu, ngày kết thúc và đưa về lựa chọn 2 (tức là bỏ liên kết và ô chữ đỏ sẽ không thấy) (nếu ô hiện tại đang ở cả 2 lựa chọn 1 và 2)

 

[Maika8008]

Vẫn ko được bác à
E có quay lại video nhờ bác xem hộ

Liên kết: https://youtu.be/Xq1vPO7KllI
Ý em là: Nếu tất cả các công tác đang ở chế độ lựa chọn 1 hoặc 2 đều sẽ thoả mãn điều kiện
a. Khi ta thay đổi ngày bắt đầu hoặc ngày kết thúc chữ đỏ sẽ tự căn chỉnh lại (nếu ở lựa chọn 1 còn ở lựa chọn 2 luôn đúng)
b. Còn khi ta xoá 1 công tác (cột mã màu đỏ chẳng hạn) nào đó thì hàng đó sẽ tự động xoá ngày bắt đầu, ngày kết thúc và đưa về lựa chọn 2 (tức là bỏ liên kết và ô chữ đỏ sẽ không thấy) (nếu ô hiện tại đang ở cả 2 lựa chọn 1 và 2)

Thử lại có đúng ý chưa nhé.

 

[4vuong4tron]

Thử lại có đúng ý chưa n

Thử lại có đúng ý chưa nhé.

Ok rồi bác nhưng nhờ bác sủa lại hộ em 1 tý:
khi macro đang hiện thị ở chế độ 2, ta thay đổi ngày bắt đầu hoặc ngày kết thúc thì nó vẫn hiện thị chế độ 2 (phai trên đang ở chế độ 1)

 

[vova2209]

Gửi bác tham khảo file tiến độ thi công em hay dùng!

 

[4vuong4tron]

Gửi bác tham khảo file tiến độ thi công em hay dùng!

Cảm ơn bạn, mình cũng muốn làm 1 cái xem sao, về cơ bản cũng giống của bạn nhưng mình muốn dùng macro
mà phai của bạn load lâu thật, bạn theo dõi bài mình, khi nào hoàn thiện góp ý mình với

 

[vova2209]

Cảm ơn bạn, mình cũng muốn làm 1 cái xem sao, về cơ bản cũng giống của bạn nhưng mình muốn dùng macro
mà phai của bạn load lâu thật

máy mình bật phát lên, phát 1 phát 1, máy bạn chắc dính virus macro nên khởi động chậm rồi

 

[Maika8008]

Ok rồi bác nhưng nhờ bác sủa lại hộ em 1 tý:
khi macro đang hiện thị ở chế độ 2, ta thay đổi ngày bắt đầu hoặc ngày kết thúc thì nó vẫn hiện thị chế độ 2 (phai trên đang ở chế độ 1)

Chắc là ổn rồi đấy.

 

[4vuong4tron]

Chắc là ổn rồi đấy.

Tuyệt vời quá, cảm ơn bác nhiều nhé!
Bác có thể bổ sung thêm 1 trường hợp đặc biệt này hộ em với (e gửi phai thực hành dưới đó bác)
- Khi thay đổi ngay bắt đầu và kết thúc vị trí ô hiện tại ở ngày kết thúc mã đang chọn (trong phai đang ở cột FO)
-Khi chọn 1 và 2 thì sẽ bỏ qua các hàng có mã tô đậm hoặc viết hoa (A10, A19) tức là hàng đó luôn luôn ở lựa chọn 2 và đường kẻ đen hàng 11 và hàng 20 chuyển sang màu xanh

 

[Maika8008]

Tuyệt vời quá, cảm ơn bác nhiều nhé!
Bác có thể bổ sung thêm 1 trường hợp đặc biệt này hộ em với (e gửi phai thực hành dưới đó bác)
- Khi thay đổi ngay bắt đầu và kết thúc vị trí ô hiện tại ở ngày kết thúc mã đang chọn (trong phai đang ở cột FO)
-Khi chọn 1 và 2 thì sẽ bỏ qua các hàng có mã tô đậm hoặc viết hoa (A10, A19) tức là hàng đó luôn luôn ở lựa chọn 2


View attachment 286902

Có vẻ yêu cầu phát sinh vô tận ha.

 

[BuiQuangThuan]

Có vẻ yêu cầu phát sinh vô tận ha.

Cái này quen này. còn vấn đề phát sinh là còn yêu cầu anh ạ

 

[Hoàng Tuấn 868]

Có vẻ yêu cầu phát sinh vô tận ha.

Mình nhớ giống vụ bác sĩ gia đình trước đây, cứ mỗi câu khen tuyệt vời xong là lại thêm một chuỗi câu nhờ, anh Maika8008 phải nói bạn chủ động nghiên cứu và tự làm đi, thời gian tới nhà có việc bận chưa biết khi nào xong mới thoát.

 

[Maika8008]

@4vuong4tron
Chắc hết phát sinh rồi

 

[PhanTuHuong]

Tôi thấy Excel hỗ trợ làm bảng tiến độ thuận lợi với kiến thức tốt, đòi hỏi càng cao càng khó thực hiện. Còn không bạn cần sử dụng công cụ mạnh hơn là Microsoft Project.

 

[VetMini]

Tôi thấy Excel hỗ trợ làm bảng tiến độ thuận lợi với kiến thức tốt, đòi hỏi càng cao càng khó thực hiện. Còn không bạn cần sử dụng công cụ mạnh hơn là Microsoft Project.

Bảng tiến độ của Excel cũng như của MS Project đều đòi hỏi phải học và rèn luyện kinh nghiệm. Không có hỗ trợ trực tiếp và đầy đủ như VBA trên Excel - thông qua GPE.

 

[4vuong4tron]

@4vuong4tron
Chắc hết phát sinh rồi

có lẽ hết rồi bác à, nhờ bác giúp e lần cuối với

 

[Maika8008]

có lẽ hết rồi bác à, nhờ bác giúp e lần cuối với

Không hiểu ý bạn lắm. Tất cả trong file của #22 rồi.

 

[4vuong4tron]

em quyên xem phai đính kèm bác à, nhưng vẫn chưa được bác à
- Khi chuyển chữ đậm sang chữ thường vẫn bị lỗi và màu xanh phải chuyển thành màu đen
bác xem theo đường link dưới em với

Liên kết: https://youtu.be/YxITdIYvE_U

 

[Maika8008]

em quyên xem phai đính kèm bác à, nhưng vẫn chưa được bác à
- Khi chuyển chữ đậm sang chữ thường vẫn bị lỗi và màu xanh phải chuyển thành màu đen
bác xem theo đường link dưới em với

Liên kết: https://youtu.be/YxITdIYvE_U

Bạn yêu cầu chữ đậm thì bỏ qua. Chừ các hạng mục đó chuyển thành chữ thường là sao?

 

[Maika8008]

em quyên xem phai đính kèm bác à, nhưng vẫn chưa được bác à
- Khi chuyển chữ đậm sang chữ thường vẫn bị lỗi và màu xanh phải chuyển thành màu đen
với

@4vuong4tron : Đã sửa lại code. Test file!

 

[4vuong4tron]

@4vuong4tron : Đã sửa lại code. Test file!

E test thử rồi vẫn chưa được bác à
Bất luận thế nào khi ta chạy macro ở 1 hoặc 2 thì: cứ chữ đậm thì kẻ xanh, chữ thường thì kẻ đen, chữ HOA thì kẻ tím
Nhờ bác test kỹ hộ em với: bác cứ chuyển đổi qua lại các chữ (HOA, đậm, thường) rồi ấn macro ở cả hai lựa chọn (1 và 2)

 

[Maika8008]

E test thử rồi vẫn chưa được bác à
Bất luận thế nào khi ta chạy macro ở 1 hoặc 2 thì: cứ chữ đậm thì kẻ xanh, chữ thường thì kẻ đen, chữ HOA thì kẻ tím
Nhờ bác test kỹ hộ em với: bác cứ chuyển đổi qua lại các chữ (HOA, đậm, thường) rồi ấn macro ở cả hai lựa chọn (1 và 2)

Làm thực ra không khó nhưng khó ở chỗ bạn không có chủ kiến ngay từ đầu, lúc thế này lúc thế khác. Ngay trong bài này cũng đã có video báo lỗi rồi bỏ, nói sang chuyện khác.

Đậm, chữ hoa đâu thể cứ muốn là thay đổi. Đó chẳng qua là do dòng ấy đại diện cho cấp bậc của tiến độ. Tự nhiên bỏ đậm chỗ hạng mục 1, 2 rồi bảo thay đổi định dạng có điều kiện dòng đó thành đen. Bạn cứ tùy tiện như thế rồi bảo người code phải chạy theo bạn nhưng đâu có hiểu chuyện sửa code là bứt dây động rừng, nhiều lúc sửa còn mệt hơn viết lại từ đầu.

Bạn xem lại cách làm của mình đi rồi ta tiếp tục, chứ vẫn thế thì tôi nghỉ.

 

[VetMini]

...
Bạn xem lại cách làm của mình đi rồi ta tiếp tục, chứ vẫn thế thì tôi nghỉ.

Bạn theo đến giờ này thì đã đáng phục lăm rồi. Nhưng cũng có thể do bạn thiêu kinh nghiệm trên GPE.
Thực ra, đọc một hai bài đầu thì đã doán được trứng tu hú đẻ vào ổ chim sâu. Lúc đầu thì trứng tu hú in hệt trừng sáo. Nuôi lơn một vài tuần rồi sẽ thấy cảnh vợ chồng chim sâu hì hục tha mối về cho đứa con lớn gấp ba mình.
Mà nói cho cungfn thì cũng khó trách tu hú. Nếu khiing đẻ trứng in hệt ổ chủ thì đã bị loại từ đầu.

 

[4vuong4tron]

Làm thực ra không khó nhưng khó ở chỗ bạn không có chủ kiến ngay từ đầu, lúc thế này lúc thế khác. Ngay trong bài này cũng đã có video báo lỗi rồi bỏ, nói sang chuyện khác.

Đậm, chữ hoa đâu thể cứ muốn là thay đổi. Đó chẳng qua là do dòng ấy đại diện cho cấp bậc của tiến độ. Tự nhiên bỏ đậm chỗ hạng mục 1, 2 rồi bảo thay đổi định dạng có điều kiện dòng đó thành đen. Bạn cứ tùy tiện như thế rồi bảo người code phải chạy theo bạn nhưng đâu có hiểu chuyện sửa code là bứt dây động rừng, nhiều lúc sửa còn mệt hơn viết lại từ đầu.

Bạn xem lại cách làm của mình đi rồi ta tiếp tục, chứ vẫn thế thì tôi nghỉ.

Em test đi test lại vẫn bị lỗi mà bác, bác xem thử giúp em lần này

Liên kết: https://youtu.be/oug5AEX1V-Q

Liên kết: https://youtu.be/CWm3QTrZBTg

 

[4vuong4tron]

@4vuong4tron : Đã sửa lại code. Test file!

Bác thương thì thương cho trót, nhờ bác chỉ giúp em ý nghĩa những đoạn bôi đậm với:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Target.Row > 9 And (Target.Column = 80 Or Target.Column = 81) Then
If Cells(Target.Row, 80) <> "" And Cells(Target.Row, 81) <> "" Then
For Each cel In Range("CD" & Target.Row & ":FO" & Target.Row)
If cel.MergeCells Then
TuDong 2, Target.Row (dòng này có ý nghĩa gì?)
TuDong 1, Target.Row (dòng này có ý nghĩa gì?)
Exit For
End If
Next
Range("CC" & Target.Row).Select
End If
ElseIf Target.Row > 9 And Target.Column = 1 Then
If Target.Cells(1) = "" Then TuDong 3, Target.Row (dòng này có ý nghĩa gì?)
End If
End Sub
.........................................................................................................................................................
Sub TuDong(ip As Long, rw As Long) (rw ở đây có ý nghĩa gì, chạy từ ô nào đến ô nào)
Dim lr&, j&, cell As Range, celb As Range, bd, ngay
Application.ScreenUpdating = False
Set cell = Range("CB" & rw & ":CB" & rw)
bd = cell + IIf(cell Mod 2 = 0, 1, 0)
ngay = (cell.Offset(, -1).Value - 1) / 2
If ip = 2 Then

TH1: For Each celb In Range("CD" & rw & ":FO" & rw)
If celb.MergeCells Then
Application.DisplayAlerts = False
Selection.UnMerge
Application.EnableEvents = False
celb.Offset(0, -1).Copy celb.Resize(1, Range("FO" & rw).Column - celb.Offset(0, -1).Column)
Application.EnableEvents = True
Range("CC" & rw).Select
Exit For
End If
Next
ElseIf ip = 1 Then
For Each celb In Range("CD8:FO8")
If celb = bd Then
With Cells(cell.Row, celb.Column)
Application.DisplayAlerts = False
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
.Resize(1, ngay).Font.Color = vbRed
Range("CC" & rw).Select
End With
Exit For
End If
Next
ElseIf ip = 3 Then (trường hợp ip=3 là trường hợp nào?)
Application.EnableEvents = False
Range("CB" & rw & ":CC" & rw + 2).ClearContents
GoTo TH1
End If
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[Maika8008]

Bác thương thì thương cho trót, nhờ bác chỉ giúp em ý nghĩa những đoạn bôi đậm với:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Target.Row > 9 And (Target.Column = 80 Or Target.Column = 81) Then
If Cells(Target.Row, 80) <> "" And Cells(Target.Row, 81) <> "" Then
For Each cel In Range("CD" & Target.Row & ":FO" & Target.Row)
If cel.MergeCells Then
TuDong 2, Target.Row (dòng này có ý nghĩa gì?)
TuDong 1, Target.Row (dòng này có ý nghĩa gì?)
Exit For
End If
Next
Range("CC" & Target.Row).Select
End If
ElseIf Target.Row > 9 And Target.Column = 1 Then
If Target.Cells(1) = "" Then TuDong 3, Target.Row (dòng này có ý nghĩa gì?)
End If
End Sub
.........................................................................................................................................................
Sub TuDong(ip As Long, rw As Long) (rw ở đây có ý nghĩa gì, chạy từ ô nào đến ô nào)
Dim lr&, j&, cell As Range, celb As Range, bd, ngay
Application.ScreenUpdating = False
Set cell = Range("CB" & rw & ":CB" & rw)
bd = cell + IIf(cell Mod 2 = 0, 1, 0)
ngay = (cell.Offset(, -1).Value - 1) / 2
If ip = 2 Then

TH1: For Each celb In Range("CD" & rw & ":FO" & rw)
If celb.MergeCells Then
Application.DisplayAlerts = False
Selection.UnMerge
Application.EnableEvents = False
celb.Offset(0, -1).Copy celb.Resize(1, Range("FO" & rw).Column - celb.Offset(0, -1).Column)
Application.EnableEvents = True
Range("CC" & rw).Select
Exit For
End If
Next
ElseIf ip = 1 Then
For Each celb In Range("CD8:FO8")
If celb = bd Then
With Cells(cell.Row, celb.Column)
Application.DisplayAlerts = False
.Resize(1, ngay).merge
.Resize(1, ngay).HorizontalAlignment = xlCenter
.Resize(1, ngay).Font.Color = vbRed
Range("CC" & rw).Select
End With
Exit For
End If
Next
ElseIf ip = 3 Then (trường hợp ip=3 là trường hợp nào?)
Application.EnableEvents = False
Range("CB" & rw & ":CC" & rw + 2).ClearContents
GoTo TH1
End If
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Bấm F9 vào 1 dòng nào đó để tạo điểm ngắt. Khi code chạy đến đó, bấm F8 chạy từng bước để biết từng dòng code làm gì.

Còn với thớt của bạn tôi không theo nữa.