Xóa Immediate bằng code, sau đó Call 1 sub khác không được?

[cantl]

Chào Các bác,
Em muốn xóa Immediate và call sub khác chạy ngay sau đó.

Nhưng đoạn mã VBA dưới nó không call được Sub zzz().

Các bác chỉ em cách để Call được ạ?

Option Explicit

Sub zzz()
Dim i%, z%
i = 2
z = 4
For i = i To (i + 1) ^ z Step 1
Debug.Print i & " / " & z & " >>> " & (((i - 1) Mod z) + 1)
Next i
End Sub

Sub ClearImmediateWindow()
Application.VBE.Windows("Immediate").SetFocus
Application.SendKeys "^g^a{DEL}", True
Call zzz
Application.SendKeys "{NUMLOCK}", True
Application.SendKeys "{NUMLOCK}", True
Application.SendKeys "{F7}", True
End Sub

 

[ptm0412]

Thế cái gì đang SetFocus?

 

[cantl]

Thế cái gì đang SetFocus?

Có hay không có dòng đấy mà F5 thì đúng ra là nó có Call Sub nhưng nó lại tiếp tục chạy lại SendKeys "^g^a{DEL}". Nên trống trơn.

Kết quả em muốn hiện ra:



nhưng mà F5 với Sub ClearImmediateWindow thì:

Nó có chớp 1 cái, nghĩa là nó đã Call nhưng lại xóa lại hoặc bị lỗi gì tự động xóa lại.

 

[PhanTuHuong]

Nhiều tình huống cửa sổ Immediate đóng thì liệu dòng code có bị lỗi??

 

[ongke0711]

Có hay không có dòng đấy mà F5 thì đúng ra là nó có Call Sub nhưng nó lại tiếp tục chạy lại SendKeys "^g^a{DEL}". Nên trống trơn.

Kết quả em muốn hiện ra:



nhưng mà F5 với Sub ClearImmediateWindow thì:

Nó có chớp 1 cái, nghĩa là nó đã Call nhưng lại xóa lại hoặc bị lỗi gì tự động xóa lại.

Chỉ định chạy tới dòng lệnh nào thôi rồi dừng. Hoặc bấm F8 để chạy từng dòng lệnh.

 

[cantl]

Nhiều tình huống cửa sổ Immediate đóng thì liệu dòng code có bị lỗi??

Em thử đóng (hide) thì chạy nó sẽ hiện của sổ ra lại, không bị lỗi gì cả.

F8

F8 từng dòng lệnh thì không bị chạy lại thao tác xóa bác ạ.

Nhưng F5 thì không được như thế.

Em có thể xóa Call zzz ra khỏi để chạy riêng, nhưng em muốn ghép chung lại như thế và không đúng ý muốn nên muốn hỏi về giải pháp khác.
Mục đích là Clear sạch rồi chạy Sub zzz.

 

[ptm0412]

Mục đích là Clear sạch rồi chạy Sub zzz.

Vậy thì phải nhét clear vào trong zzz chứ?

 

[ongke0711]

Test code thì chịu khó làm thủ công chứ có mất mát thời gian gì nhiều đâu nếu màn hình console nó không hỗ trợ xóa như các IDE khác như VSCode, IntelliJ...
Tôi thì cứ Ctr + All rồi Del thôi.

 

[HeSanbi]

@cantl

Tools VBAFastCode có nút kiểm thử mã, tự động xóa Immediate và chạy thủ tục, bác tham khảo thêm

VBA_FastCode v2.2 - Công cụ học và viết mã VBA một cách nhanh nhất (27/10/2023)

***** CẬP NHẬT MỚI v2.2 ***** -------------------------------------------------------------------------- Add-in được chia sẻ dưới đây, đó là những gì tôi hiểu biết về VBA và đã viết ra nó. Một Add-in Tools chỉnh sửa code VBA rất đơn giản nhưng có thể giúp các bạn học VBA và viết code nhanh...

www.giaiphapexcel.com

Nếu thủ tục đang chọn không có tham số thì gọi trực tiếp
Nếu thủ tục đang chọn là một hàm có các optional, thì sẽ gọi với thủ tục tên tương ứng có đuôi _test.


Ví dụ dưới đây, nếu trỏ văn bản đang trong func1, nhấn nút sẽ kiểm thử func1, nếu trỏ văn bản trong func2, nhấn nút sẽ gọi func2_test

Sub func1()
    Debug.print "func1"
End Sub

Private Sub func2_test()
   func2 1
End Sub
Sub func2(val1)
    Debug.print "func2: " val1
End Sub

 

[cantl]

Vậy thì phải nhét clear vào trong zzz chứ?

Em đã thử và chỉ chạy mỗi Sub zzz vẫn bị xóa sạch.

Test code

Cái này em định ghép vào chung, mà nó không chạy đúng ý nên khó hiểu quá. Chạy từng dòng được mà cả Sub thì không ra.

VBAFastCode

Tớ sẽ tìm thử trong này.