Tại sao User define menu làm double task

[SoiBien]

Mình gửi kèm file này, trong file, mình tạo ra sub menu cell cua Excel, mỗi submenu call một sub TROIOI, nhưng khi mình thử menu, no' lại call sub TROIOI ĐẾN 2 LẦN, các bạn xem và giúp mình nhé.
Mình sử dụng Excel 2K, nếu XP không bị như vậy thì các bạn cũng cho mình biết nhé.

Cám ơn các bạn.

 

[SoiBien]

không được gán biến trên dòng lệnh OnAction ???

Mình nhận thấy, nếu khi gán OnAction cho SubMenu, nếu ko gán worksheet(i).name trực tiếp cho nó, mà ta tạo thêm một sub

Sub troioi3()
troioi ("sheet2")
End Sub

rồi gán

 .OnAction = "troioi3"

thì sẽ không bị như vậy.

Các bạn có thể giải thích giùm mình không?
Cám ơn.

 

[SoiBien]

Mình đã tìm được giải pháp, cám ơn các bạn quan tâm đến topic này.

 

[Mr Okebab]

Mình đã tìm được giải pháp, cám ơn các bạn quan tâm đến topic này.

Sao vậy bác ??? Chủ đề này bác tự lập ra, tự bác hỏi, tự bác trả lời ????

Nếu có thể được thì có thể cho tụi em biết nguyên nhân tại sao?? giải pháp là gì ??? Vì đã mất công theo dõi topic này rồi.

Thân!

 

[SoiBien]

Sao vậy bác ??? Chủ đề này bác tự lập ra, tự bác hỏi, tự bác trả lời ????

Nếu có thể được thì có thể cho tụi em biết nguyên nhân tại sao?? giải pháp là gì ??? Vì đã mất công theo dõi topic này rồi.

Thân!

Hìhì, thì hỏi vẫn hỏi, còn tìm tự tìm tòi thì vẫn phải làm chứ.

Mình không biết chính xác tại sao nó bị như vậy nhưng code cũ của mình là :

.OnAction = "troioi(""" & Worksheets(i).Name & """)"

và, như đã post ở phần nhận xét, mình tìm cách thay đổi cách gán biến, có rất nhiều cách khác nhau, nhưng chung quy lại thì hình như là mình thiếu một cái Single quote " ' "
Vậy mình phải thêm nó vô, như thế này:

.OnAction = "'troioi (""" & Worksheets(i).Name & """)'"

thế thôi, còn tại sao trường hợp trên nó cũng truyền biến qua, cũng gọi thủ tục, mà làm sai thì cũng chẳng hiểu (Bạn có để ý sau khi gọi thủ tục TROIOI đó, chương trình chỉ thực thi có mỗi cái lệnh gán trị cho cell không? cái sheets.activate sau đó thì nó không thực thi????) ai có cao kiến gì thì post lên cho mọi người biết với.