Giúp em đổi màu nút commandButton và tạo listBox lấy dữ liệu từ sheet: (2 người xem)

[trungtamcnc]

Các bác cho em hỏi 2 vấn đề ạ
(1) Em có 1 dãy nút commandButton (thực hiện 1 số việc) nằm trong useForm. Làm sao khi mình nháy chuột chọn nút nào thì nút đó đổi màu khác.
(2) Em muốn tạo 1 hộp listBox trong useForm, lấy dữ liệu một trong các ô A1 đến D1 chẳng hạn, mà khó quá.
Mong các bác chịu khó giúp em nha!

 

[khoavu87]

Các bác cho em hỏi 2 vấn đề ạ
(1) Em có 1 dãy nút commandButton (thực hiện 1 số việc) nằm trong useForm. Làm sao khi mình nháy chuột chọn nút nào thì nút đó đổi màu khác.
(2) Em muốn tạo 1 hộp listBox trong useForm, lấy dữ liệu một trong các ô A1 đến D1 chẳng hạn, mà khó quá.
Mong các bác chịu khó giúp em nha!

Câu (1) Bạn dùng sự kiện _Click của button. Khi tác động vào sẽ đổi màu

Private Sub CommandButton1_Click()
Me.CommandButton1.BackColor = vbRed
End Sub

Câu (2) bạn để ý trong mục properties của Lisbox có mục Rowsource

 

[trungtamcnc]

Câu (1) Bạn dùng sự kiện _Click của button. Khi tác động vào sẽ đổi màu

Câu (2) bạn để ý trong mục properties của Lisbox có mục Rowsource

Cảm ơn bạn khoavu87 đã trả lời. Về vấn đề (1) thì có đổi màu nhưng khi chọn nút khác lại không mất màu. Mình có những 21 nút kia. Vấn đề (2) thì mình cũng biết chỗ đó, nếu lựa chọn dữ liệu theo cột thì được nhưng theo hàng thì không đẹp, cứ phải đẩy thanh cuốn.

 

[ndu96081631]

Cảm ơn bạn khoavu87 đã trả lời. Về vấn đề (1) thì có đổi màu nhưng khi chọn nút khác lại không mất màu. Mình có những 21 nút kia. Vấn đề (2) thì mình cũng biết chỗ đó, nếu lựa chọn dữ liệu theo cột thì được nhưng theo hàng thì không đẹp, cứ phải đẩy thanh cuốn.

Mệt nhất là hỏi mà không có file đính kèm, ai biết đường nào mà lần
Trả lời xong lại.. NHƯNG MÀ, THÌ RẰNG.. tùm lum

 

[trungtamcnc]

Mệt nhất là hỏi mà không có file đính kèm, ai biết đường nào mà lần
Trả lời xong lại.. NHƯNG MÀ, THÌ RẰNG.. tùm lum

Em gửi lên đây ạ. Nếu bác có sáng tác thêm thì giúp em cái nhé! VD: Nháy nút báo cáo là biết ngay phòng nào chưa nhập; Nếu chọn listBox là môn Toán thì con trỏ về môn Toán. Cảm ơn các bác đã quan tâm.

Mời các bác mổ xẻ file, có gì góp ý thêm cho em với.
http://www.mediafire.com/view/?6gnts1ym8fky2hz

 

[nghiaphuc]

Em gửi lên đây ạ. Nếu bác có sáng tác thêm thì giúp em cái nhé! VD: Nháy nút báo cáo là biết ngay phòng nào chưa nhập; Nếu chọn listBox là môn Toán thì con trỏ về môn Toán. Cảm ơn các bác đã quan tâm.

Gửi lên đây là gửi lên đâu vậy bạn? Hãy nhấn nút Đổi sang khung lớn, bạn sẽ thấy nút lệnh đính kèm tập tin ở trên thanh công cụ soạn thảo.

 

[khoavu87]

Em gửi lên đây ạ. Nếu bác có sáng tác thêm thì giúp em cái nhé! VD: Nháy nút báo cáo là biết ngay phòng nào chưa nhập; Nếu chọn listBox là môn Toán thì con trỏ về môn Toán. Cảm ơn các bác đã quan tâm.

Mời các bác mổ xẻ file, có gì góp ý thêm cho em với.
http://www.mediafire.com/view/?6gnts1ym8fky2hz

nếu để em làm với form này em không làm như Anh. Đôi điều góp ý chút.
Nếu em làm em sẽ tạo một commbox ( cho additem từ 1 ->21) sau đó dùng sự kiện change của combox để lựa chọn điều kiện lọc) và bỏ hết 21 cái buton đó đi.

 

[Hoàng Trọng Nghĩa]

Các bác cho em hỏi 2 vấn đề ạ
(1) Em có 1 dãy nút commandButton (thực hiện 1 số việc) nằm trong useForm. Làm sao khi mình nháy chuột chọn nút nào thì nút đó đổi màu khác.

Vấn đề đổi màu nút lệnh, bạn xem tại đây:

1) http://www.giaiphapexcel.com/forum/...nh-khi-chuột-rê-ngang-qua&p=461001#post461001

2) http://www.giaiphapexcel.com/forum/...nh-khi-chuột-rê-ngang-qua&p=460655#post460655

 

[trungtamcnc]

nếu để em làm với form này em không làm như Anh. Đôi điều góp ý chút.
Nếu em làm em sẽ tạo một commbox ( cho additem từ 1 ->21) sau đó dùng sự kiện change của combox để lựa chọn điều kiện lọc) và bỏ hết 21 cái buton đó đi.

Trong trường hợp này mình không làm lọc (cũng khó) vì lọc có ngay trên bảng excel rồi. 1 buổi sáng em nhập hết chừng đó con điểm đấy. Mong anh em hỗ trợ.

 

[khoavu87]

Trong trường hợp này mình không làm lọc (cũng khó) vì lọc có ngay trên bảng excel rồi. 1 buổi sáng em nhập hết chừng đó con điểm đấy. Mong anh em hỗ trợ.

Hiểu sai ý mình, ý là không làm nhiều buton trên form như thế( có đến 21 button), Ý mình là liệu có thể thay những button đó chỉ thành một Combox lựa chọn, khi lựa chọn nó sẽ lọc như của bạn luôn, và chỉ 1 dòng code? Ok Không?

 

[trungtamcnc]

Hiểu sai ý mình, ý là không làm nhiều buton trên form như thế( có đến 21 button), Ý mình là liệu có thể thay những button đó chỉ thành một Combox lựa chọn, khi lựa chọn nó sẽ lọc như của bạn luôn, và chỉ 1 dòng code? Ok Không?

Bạn làm cụ thể mình với! Mình còn yếu lắm! Thank.

 

[khoavu87]

Bạn làm cụ thể mình với! Mình còn yếu lắm! Thank.

Thử dùng form đó vẽ một combox có tên là combox1 sau đó dùng đoạn code này xem sao?
Private Sub UserForm_Initialize()
For i = 1 To 21
Me.ComboBox1.AddItem i
Next i
End Sub
Private Sub ComboBox1_Change()
ActiveSheet.Range("$A$1:$R$509").AutoFilter Field:=4, Criteria1:=Me.ComboBox1.ListIndex + 1
End Sub
' Mình vẫn dùng code lọc dữ liệu của tác giả đó nhé

 

[trungtamcnc]

Nếu có nhiều useForm thì làm sao để xếp thứ tự xuất hiện được bác khoavu87?

 

[khoavu87]

Nếu có nhiều useForm thì làm sao để xếp thứ tự xuất hiện được bác khoavu87?

Chưa hiểu ý hỏi của tác giả lắm!Có thể nói rõ hơn được không ạ?

 

[trungtamcnc]

Chưa hiểu ý hỏi của tác giả lắm!Có thể nói rõ hơn được không ạ?

Thì mình vẽ vời thêm ấy mà! Đầu tiên hiện ra useForm chào hỏi, đóng cái đó lại thì xuất hiện useForm phần làm việc. Bác được học hay tự học mà giỏi vậy.

 

[khoavu87]

Thì mình vẽ vời thêm ấy mà! Đầu tiên hiện ra useForm chào hỏi, đóng cái đó lại thì xuất hiện useForm phần làm việc. Bác được học hay tự học mà giỏi vậy.

Caí này vọc chơi chơi chút là ra ấy mà, Em được học đấy, được học trên diễn đàn GPE, còn không giám nhận giỏi đâu.

 

[trungtamcnc]

Caí này vọc chơi chơi chút là ra ấy mà, Em được học đấy, được học trên diễn đàn GPE, còn không giám nhận giỏi đâu.

A e thương cho chót khoavu87nhé!Những gì bạn hướng dẫn mình đã sử dụng, đóng gói thành add_ins. Nhưng chưa biết làm sao cho khi chạy nó tạo được Menu trên thanh công cụ. Để xuất bản cho mấy anh cùng nhập điểm như mình ấy mà. Thank.

 

[khoavu87]

A e thương cho chót khoavu87nhé!Những gì bạn hướng dẫn mình đã sử dụng, đóng gói thành add_ins. Nhưng chưa biết làm sao cho khi chạy nó tạo được Menu trên thanh công cụ. Để xuất bản cho mấy anh cùng nhập điểm như mình ấy mà. Thank.

Có thể làm thế này:

Sub menu()
Dim cb As CommandBar
Dim cpop As CommandBarPopup
Set cb = Application.CommandBars("worksheet menu bar")
' *menu lunpro*:
Set cpop = cb.Controls.Add(Type:=msoControlPopup, temporary:=True)
cpop.Caption = "Menu gì đó" 'hiện dòng chữ trên thanh công cụ
cpop.OnAction = "GOISUB" 'Thủ tục gọi sub để thực thi mã lệnh nào đó của mình.
End Sub
Sub GOISUB()
MsgBox ("afsasfasf") 'Viết gì code để thực thi mã lệnh
End Sub

Private Sub Workbook_Open() ' Thủ tục tạo menu ngay sau khi được mở file (copy đoạn code này vào mục thisworkbook
Call menu
End Sub

Thử nghiên cứu xem nhé, ở trên diễn đàn rất nhiều người sẽ giúp bạn, nhưng đều thêm từ thương cho chót nhé, nghe kỳ lắm!

 

[trungtamcnc]

Nhờ a e giúp tiếp với. Mình vẫn dùng file nhập điểm ở trên. Tạo ra một userForm trong đó chứa 21phòngx8môn các nút để khi chạy useForm thì có ngay kết quả phòng nào chưa có điểm, các nút ứng với phòng đã nhập sẽ đổi màu chẳng hạn. Mình cảm ơn khoavu87 rất nhiều. Giúp mình sáng tỏ nhiều vấn đề.