chỉ chuột hoặc click chuột vào vùng mà RefEdit1 đã chọn thì hiện from lên

[huongtinh1929]

Các anh cho em hỏi có cách nào khi chỉ chuột hoặc click chuột vào vùng mà RefEdit1 đã chọn thì hiện from lên được không ạ.
Giống như khi em kích đúp chuột vào cột B trong sheet IN thì From hiện lên vậy
Nếu chọn vùng được từ RefEdit1 thì tốt quá. Như vậy thì ở bất kỳ sheet nào chỉ cần chọn vùng ta cũng gọi được From lên đuoc

 

[huongtinh1929]

Mong mộ người chỉ giúp

 

[chucuoi92]

Mong mộ người chỉ giúp

Cái gì đây: "Mong mộ người chỉ giúp".

Chọn vùng xong rồi thì double click vào một ô nào đó trong vùng vừa chọn xem sao.

 

[huongtinh1929]

Em đánh nhầm ạ

 

[huongtinh1929]

rất cảm ơn anh Chucuoi92 đúng như ý em ạ. nhưng em xem core không hiểu làm sao lại goi được From FrDMHH lên. Nếu ta muốn gọi From khác thi có được không anh

 

[huongtinh1929]

Cái gì đây: "Mong mộ người chỉ giúp".

Chọn vùng xong rồi thì double click vào một ô nào đó trong vùng vừa chọn xem sao.

em xin hỏi anh thêm một thắc mắc nữa mà tim ca tuần rồi không ra. Mong anh chỉ giúp:
em có một danh sách listbox trên From. em kích chọn 1 hoặc 2 dòng trên listbox, xong em muốn ghi số liệu các dòng đã chọn đó ra vị trí cells đang chọn thì làm như thế nào vậy anh.

 

[chucuoi92]

rất cảm ơn anh Chucuoi92 đúng như ý em ạ. nhưng em xem core không hiểu làm sao lại goi được From FrDMHH lên. Nếu ta muốn gọi From khác thi có được không anh

Bạn xem code ở trong thisWorkbook nhé,
nếu muốn gọi thêm Form khác nữa thì thêm điều kiện vào thôi.

 

[huongtinh1929]

Cái gì đây: "Mong mộ người chỉ giúp".

Chọn vùng xong rồi thì double click vào một ô nào đó trong vùng vừa chọn xem sao.

em xin hỏi anh thêm một thắc mắc nữa mà tim ca tuần rồi không ra. Mong anh chỉ giúp:
em có một danh sách listbox trên From. em kích chọn 1 hoặc 2 dòng trên listbox, xong em muốn ghi số liệu các dòng đã chọn đó ra vị trí cells đang chọn thì làm như thế nào vậy anh.

 

[befaint]

chọn 1 hoặc 2 dòng trên listbox, xong em muốn ghi số liệu các dòng

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        j=j+1
        Cll.Offset(j,0) = ListBox1.List(i)
    End If
Next i