Từ form 1 dùng nút lệnh hiện form 2 đồng thời đóng form 1

[minhcong.tckt]

em đã thiết kế form 1 chính, sau đó em đã dùng nút lệnh hiện form 2
Private Sub CommandButton1_Click()
UserForm3.Show
End Sub

Giờ em muốn thêm vào đó code để dóng form 1

 

[nghiaphuc]

em đã thiết kế form 1 chính, sau đó em đã dùng nút lệnh hiện form 2
Private Sub CommandButton1_Click()
UserForm3.Show
End Sub

Giờ em muốn thêm vào đó code để dóng form 1

Code sẽ là như vầy (tất nhiên code này là của UserForm1):

UserForm2.Show
Unload Me

 

[ndu96081631]

em đã thiết kế form 1 chính, sau đó em đã dùng nút lệnh hiện form 2
Private Sub CommandButton1_Click()
UserForm3.Show
End Sub

Giờ em muốn thêm vào đó code để dóng form 1

Thay vì phải dùng nhiều Form rồi chuyển qua chuyển lại, tôi nghĩ bạn nên dùng MultiPage sẽ hay hơn
- Thứ nhất: tiết kiệm tài nguyên
- Thứ hai: Dễ điều khiển
- Thứ ba: hiệu ứng vẫn tương tự như dùng nhiều form nhưng việc chuyển qua lại sẽ "mượt" hơn
Xem file

 

[minhcong.tckt]

Em làm đúng như anh nói mà ko thấy nó đóng lại nhỉ??

 

[minhcong.tckt]

Tiện đây anh "ndu96081631" sửa code cho em có thể tra từ điển khi chọn OptionButton2_Click với
Code này chỉ tra từ điển cho OptionButton1Click
Hơi ngoài lề 1 chút

Option Explicit
Dim sArray
Private Sub CommandButton1_Click()
UserForm3.Show
Unload Me
End Sub
Private Sub TB_Change()
  Dim Arr, FindStr As String
  On Error Resume Next
  FindStr = TB.Text
  Arr = Filter2DArray(sArray, 2, "*" & FindStr & "*", False)
  If Not IsArray(Arr) Then LB.Clear: Exit Sub
  LB.List() = IIf(Trim(FindStr) = "", sArray, Arr)
  LB.Selected(0) = True
End Sub
Private Sub UserForm_Initialize()
  sArray = Sheets("DMKHNCC").Range("DMKH1").Value
  LB.List() = sArray
  LB.Selected(0) = True
End Sub
Private Sub Chon_Click()
  ActiveCell.Value = LB.Text
  Unload Me
End Sub
Private Sub LB_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Chon_Click
End Sub
Private Sub Thoat_Click()
 Unload Me
End Sub
Private Sub OptionButton1_Click()
  LB.List() = Sheets("DMKHNCC").Range("DMKH1").Value
End Sub
Private Sub OptionButton2_Click()
  LB.List() = Sheets("DMHH").Range("DM_CT").Value
End Sub

 

[ndu96081631]

Tiện đây anh "ndu96081631" sửa code cho em có thể tra từ điển khi chọn OptionButton2_Click với
Code này chỉ tra từ điển cho OptionButton1Click
Hơi ngoài lề 1 chút

- Thứ nhất: bạn hỏi "ngoài lề" là phạm quy, vì không ăn nhập gì với chủ đề của topic này
- Thứ hai: Code phức tạp, không có file, tôi biết gì mà sửa?
Vậy bạn nên mở 1 topic mới để hỏi nhé (nhưng phải có file cụ thể)

 

[minhcong.tckt]

- Thứ nhất: bạn hỏi "ngoài lề" là phạm quy, vì không ăn nhập gì với chủ đề của topic này
- Thứ hai: Code phức tạp, không có file, tôi biết gì mà sửa?
Vậy bạn nên mở 1 topic mới để hỏi nhé (nhưng phải có file cụ thể)

Anh qua Topic này giúp đỡ em với

http://www.giaiphapexcel.com/forum/...-thiện-code-điền-mã-khách&p=379318#post379318

 

[anhthanhlong]

vẫn tương tự như dùng nhiều form nhưng việc chuyển qua lại sẽ "mượt" h

em đã thiết kế form 1 chính, sau đó em đã dùng nút lệnh hiện form 2
Private Sub CommandButton1_Click()
UserForm3.Show
End Sub

Giờ em muốn thêm vào đó code để dóng form 1

Private Sub CommandButton1_Click()
me.hide
UserForm3.Show
End Sub