Xin hỏi về code để mở Form khi chọn 1 cell

[tam8678]

Xin hỏi về code để mở UserForm khi chọn 1 cell

Tôi có 1 UserForm, tôi muốn khi select vào 1 cell (vd: cell A1) thì sẽ hiện UserForm này, thì code sẽ được viết như thế nào, rất mong các anh, em trên GPE hướng dẫn.
Cám ơn.

 

[logica]

Bạn thử đặt sự kiên selection change rồi chèn thử code này xem:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 1) And (Target.Row = 1) Then
UserForm1.Show
End If
End Sub

 

[ptlong04x1]

Có củ chuối đây :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo thoat
    If Target.Address = "$A$1" Then
        [a2].Select
        Frm.Show
    End If
thoat:
End Sub

 

[cadafi]

Tôi có 1 UserForm, tôi muốn khi select vào 1 cell (vd: cell A1) thì sẽ hiện UserForm này, thì code sẽ được viết như thế nào.....

Bạn thử code này xem sao:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target,[A1]) Is Nothing Then UserForm1.Show
End Sub

 

[tam8678]

Hỏi thêm

Bạn thử code này xem sao:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target,[A1]) Is Nothing Then UserForm1.Show
End Sub

---
Các bạn có thể giúp thêm như sau: UserForm khi mở thì nằm bên dưới và liền kề với cell A1
Cám ơn.

 

[Hai Lúa Miền Tây]

---
Các bạn có thể giúp thêm như sau: UserForm khi mở thì nằm bên dưới và liền kề với cell A1
Cám ơn.

Cái này đã có nói trên diễn đàn rồi, Bạn tham khảo file này của Thầy Tuấn nhé.

 

[concogia]

---
Các bạn có thể giúp thêm như sau: UserForm khi mở thì nằm bên dưới và liền kề với cell A1
Cám ơn.

Bạn chỉnh trong form nhé
Thân

 

[ndu96081631]

Bạn chỉnh trong form nhé
Thân

Hình như bạn concogia chỉnh Left và Top trong UserForm Properties ---> Các bạn nếu không có yêu cầu quá cao thì nên dùng cách này vì nó đơn giản nhất

 

[concogia]

Hình như bạn concogia chỉnh Left và Top trong UserForm Properties ---> Các bạn nếu không có yêu cầu quá cao thì nên dùng cách này vì nó đơn giản nhất

Đúng vậy bác NDU ạ, vì yêu cầu của tác giả có thế thôi, còn thú thật đọc bài của thầy Tuấn chưa hiểu hết đã muốn "tèo" rồi
Thân

 

[tam8678]

Bạn thử code này xem sao:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target,[A1]) Is Nothing Then UserForm1.Show
End Sub

---
Xin được hỏi thêm, chọn A1 thì show form, khi chuyển trỏ vào cell bất kỳ khác thì đóng form này lại thì code được viết như thế nào ?
Mong được anh em hướng dẫn.
Cám ơn.

 

[logica]

---
Xin được hỏi thêm, chọn A1 thì show form, khi chuyển trỏ vào cell bất kỳ khác thì đóng form này lại thì code được viết như thế nào ?
Mong được anh em hướng dẫn.
Cám ơn.

Làm sao để di chuyển được con trỏ khi form đang show? Hay là ý bạn muốn là click đại "ngoài trời" thì form sẽ tự tắt?

 

[tam8678]

Làm sao để di chuyển được con trỏ khi form đang show? Hay là ý bạn muốn là click đại "ngoài trời" thì form sẽ tự tắt?

---

Nhân đọc bài viết của bạn huuthang_bd về calendar, khi click vào A1 thì hiện calendar, sau khi chọn ngày trong calendar vào A1 xong, chọn cell bất kỳ"ngoài trời" thì đóng calendar lại. Nguyên nhân hỏi là như thế (không biết nên phải hỏi ).
Kèm File huuthang_bd

 

[Hai Lúa Miền Tây]

Làm sao để di chuyển được con trỏ khi form đang show? Hay là ý bạn muốn là click đại "ngoài trời" thì form sẽ tự tắt?

Hoàn toàn có thể được bạn à, dùng code sau nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If (Target.Column = 1) And (Target.Row = 1) Then
UserForm1.Show vbModeless
Else
UserForm1.Hide
End If
End Sub

 

[ndu96081631]

Hoàn toàn có thể được bạn à, dùng code sau nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If (Target.Column = 1) And (Target.Row = 1) Then
UserForm1.Show vbModeless
Else
UserForm1.Hide
End If
End Sub

Control trên Worksheet và UserForm có cách xử lý khác nhau
- Với Control trên sheet, khi muốn ẩn ta sẽ Visible = False
- Với UserForm ta nên Unload khi không còn sử dụng
Chổ này: UserForm1.Hide
Nên Unload chứ đừng nên Hide
(Unload và Hide khác nhau hoàn toàn)

 

[Hai Lúa Miền Tây]

Chổ này: UserForm1.Hide
Nên Unload chứ đừng nên Hide
(Unload và Hide khác nhau hoàn toàn)

Vâng em cũng biết cái này.
Hide là chỉ ẩn đó, sau đó hiện lại nó y chang.
Unload là thoát luôn.
Trường hợp này em cho vào Unload me luôn nó không chịu, chắc có lẽ phải thêm dòng nào nữa đó mà em chưa nghĩ ra

 

[logica]

Vâng em cũng biết cái này.
Hide là chỉ ẩn đó, sau đó hiện lại nó y chang.
Unload là thoát luôn.
Trường hợp này em cho vào Unload me luôn nó không chịu, chắc có lẽ phải thêm dòng nào nữa đó mà em chưa nghĩ ra

Theo tôi nghĩ do Show form với điều khiển vbModeless nên nó không hiểu Me là cái form nữa!

 

[tam8678]

Control trên Worksheet và UserForm có cách xử lý khác nhau
- Với Control trên sheet, khi muốn ẩn ta sẽ Visible = False
- Với UserForm ta nên Unload khi không còn sử dụng
Chổ này: UserForm1.Hide
Nên Unload chứ đừng nên Hide
(Unload và Hide khác nhau hoàn toàn)

---
Anh thay UserForm1.Hide =UserForm1. Unload như thế này không biết có đúng Không, nó báo lỗi chú ơi (tô vàng: Unload). Xem giúp nhé.

 

[ndu96081631]

Vâng em cũng biết cái này.
Hide là chỉ ẩn đó, sau đó hiện lại nó y chang.
Unload là thoát luôn.
Trường hợp này em cho vào Unload me luôn nó không chịu, chắc có lẽ phải thêm dòng nào nữa đó mà em chưa nghĩ ra

Unload UserForm1 thử xem
Sao mà ME được ---> Có phải bạn đang viết code trong UserForm đâu ---> Viết trong sự kiện Selection_Change thì ME chính là ActiveSheet đấy

 

[logica]

---
Anh thay UserForm1.Hide =UserForm1. Unload như thế này không biết có đúng Không, nó báo lỗi chú ơi (tô vàng: Unload). Xem giúp nhé.

Mình phải thay là unload userform1 mới đúng chứ! Tại bạn làm sai cú pháp nên nó tô vàng là phải rồi!

 

[tam8678]

Unload UserForm1 thử xem
Sao mà ME được ---> Có phải bạn đang viết code trong UserForm đâu ---> Viết trong sự kiện Selection_Change thì ME chính là ActiveSheet đấy

---
Được rồi, viết lại như thế này không biết có được không?, nhờ chú xem giúp:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4")) Is Nothing Then
UserForm2.Show vbModeless
Else
Unload UserForm2
End If