Hỏi về VBA trong ActiveX Control (1 người xem)

[tueyennhi]

Em đang tìm hiểu về Private Sub CommandButton1_Click(). Em có một số thắc mắc sau anh chị giải đáp giúp em nhé:

Theo em được biết thì với đối tượng trong ActiveX control thì không có cách nào để gán một macro bất kỳ vào nó. Như vậy that bất tiện bởi vì em đang làm việc với rất nhiều sheets tương đồng (cùng sử dung một code vba), không lẽ ta phải viết code trên từng sheet thì mới sử dung được CommandButton1_Click().

 

[giaiphap]

Bạn xem cái này đây.
http://www.giaiphapexcel.com/forum/showthread.php?37075-Dùng-Class-Module-để-tạo-sự-kiện-người-dùng

 

[ndu96081631]

Em đang tìm hiểu về Private Sub CommandButton1_Click(). Em có một số thắc mắc sau anh chị giải đáp giúp em nhé:

Theo em được biết thì với đối tượng trong ActiveX control thì không có cách nào để gán một macro bất kỳ vào nó. Như vậy that bất tiện bởi vì em đang làm việc với rất nhiều sheets tương đồng (cùng sử dung một code vba), không lẽ ta phải viết code trên từng sheet thì mới sử dung được CommandButton1_Click().

Trường hợp tất cả các CommandButton đều dùng chung 1 sub, vậy bạn nên thay CommandButton bằng Button (Form Controls) sẽ hay hơn. Tất cả việc bạn cần làm chỉ là click chuột phải vào Button rồi Assign Macro đến sub là xong

 

[tueyennhi]

Trường hợp tất cả các CommandButton đều dùng chung 1 sub, vậy bạn nên thay CommandButton bằng Button (Form Controls) sẽ hay hơn. Tất cả việc bạn cần làm chỉ là click chuột phải vào Button rồi Assign Macro đến sub là xong

Vậy em cần phải làm như nào để sub đó chỉ dùng được cho file đó, khác file khác sẽ không thể dùng được vì em thấy từ file khác mà bấm Alt+F8 sẽ ra danh sách toàn bộ Sub của file đó. Em muốn dùng AvtiveX Control là vì thế ạ.

 

[ndu96081631]

Vậy em cần phải làm như nào để sub đó chỉ dùng được cho file đó, khác file khác sẽ không thể dùng được vì em thấy từ file khác mà bấm Alt+F8 sẽ ra danh sách toàn bộ Sub của file đó. Em muốn dùng AvtiveX Control là vì thế ạ.

Dễ mà bạn!
Bạn cứ vẽ các buttons (Form Controls) rồi Assign Macro các buttons ấy với sub nào đó. Sau khi xong việc, bạn vào cửa sổ VBA và viết thêm dòng Option Private Module lên đầu code. Vậy là xong!
Option Private Module sẽ khiến cho các tên sub "biến mất" khi bạn nhấn Alt + F8
Ngoài ra còn hàng đống cách khác nữa....

 

[tueyennhi]

Dễ mà bạn!
Bạn cứ vẽ các buttons (Form Controls) rồi Assign Macro các buttons ấy với sub nào đó. Sau khi xong việc, bạn vào cửa sổ VBA và viết thêm dòng Option Private Module lên đầu code. Vậy là xong!
Option Private Module sẽ khiến cho các tên sub "biến mất" khi bạn nhấn Alt + F8
Ngoài ra còn hàng đống cách khác nữa....

Cảm ơn thầy nhiều ạ!