Viết code cho các điều khiển

[daocuongnbk]

Tôi muốn làm một chương trình tính điểm nhỏ, gọn bằng VBA cho công tác chủ nhiệm và cũng muốn học hỏi thêm về code, nên các Bạn giúp Mình nhé. Tôi đã làm sẳn 1 UserForm1 gồm 3 commandButton và 1 ComboBox
1. Làm sao cố định được UserForm1 ở Sheet trang chủ mỗi khi khởi động file excel và cũng như khi thực hiên các sheet khác và đóng lại thì UserForm1 sẽ trở về sheet trang chủ
2. Khi click vào dấu tam giác của ComboBox thì có nhiều lựa chọn như Toán, Lý, Hóa, Sinh và khi click vào môn nào thì sheet môn đó xuất hiện
3. Khi click vào CommandButton TBHKI, TBHKII,TBCN thì xuất hiện các sheet tương ứng TBHKI, TBHKII, TBCN
Nhò các Bạn giúp đỡ nhé

 

[khoavu87]

Tôi muốn làm một chương trình tính điểm nhỏ, gọn bằng VBA cho công tác chủ nhiệm và cũng muốn học hỏi thêm về code, nên các Bạn giúp Mình nhé. Tôi đã làm sẳn 1 UserForm1 gồm 3 commandButton và 1 ComboBox
1. Làm sao cố định được UserForm1 ở Sheet trang chủ mỗi khi khởi động file excel và cũng như khi thực hiên các sheet khác và đóng lại thì UserForm1 sẽ trở về sheet trang chủ
2. Khi click vào dấu tam giác của ComboBox thì có nhiều lựa chọn như Toán, Lý, Hóa, Sinh và khi click vào môn nào thì sheet môn đó xuất hiện
3. Khi click vào CommandButton TBHKI, TBHKII,TBCN thì xuất hiện các sheet tương ứng TBHKI, TBHKII, TBCN
Nhò các Bạn giúp đỡ nhé

Bạn này có vẻ tiết kiệm lời cảm ơn nhỉ? gửi mấy bài rồi mà chưa nhấn nút thank nào cả?
Yêu cầu của bạn đây.

 

[nmhung49]

Bạn tham khảo xem coi có đúng ý không

 

[Hoàng Trọng Nghĩa]

Code trong Form:

Private Sub UserForm_Initialize()
  Dim MyArr
  MyArr = Array("Toán", "Lý", "Hóa", "Sinh")
  ComboBox1.List() = MyArr
End Sub

Private Sub ComboBox1_Change()
  Sheets(ComboBox1.Value).Select: Unload Me
End Sub

Private Sub CommandButton1_Click()
  Sheets(CommandButton1.Caption).Select: Unload Me
End Sub


Private Sub CommandButton2_Click()
  Sheets(CommandButton2.Caption).Select: Unload Me
End Sub


Private Sub CommandButton3_Click()
  Sheets(CommandButton3.Caption).Select: Unload Me
End Sub

Code trong Sheet "Trang Chu":

Private Sub Worksheet_Activate()
  UserForm1.Show
End Sub

Bạn tham khảo xem coi có đúng ý không

Chà, dạo này có tiến bộ nha! Very Good!

 

[daocuongnbk]

Rất cám ơn các Bạn đã giúp đỡ. Nhưng khi click ComboBox chọn môn hoặc click vào commandButton TBHKI thì đưa đến sheet cần tìm nhưng vẫn còn UserForm1 nên không thể thực hiện trên sheet đó dược, còn khi đóng UserForm1 thì thực hiện được trên sheet đó, nhưng không biết cách trở lại UserForm1 đó.

 

[Hoàng Trọng Nghĩa]

Còn một cách Add List nữa nè:

Private Sub UserForm_Initialize()
  ComboBox1.List() = Evaluate("Source")
End Sub

Với Source là một name:

={"Toán","Lý","Hóa","Sinh"}

Rất cám ơn các Bạn đã giúp đỡ. Nhưng khi click ComboBox chọn môn hoặc click vào commandButton TBHKI thì đưa đến sheet cần tìm nhưng vẫn còn UserForm1 nên không thể thực hiện trên sheet đó dược, còn khi đóng UserForm1 thì thực hiện được trên sheet đó, nhưng không biết cách trở lại UserForm1 đó.

Thì làm trên mỗi sheet 1 nút lệnh để gọi Form đó!