Di chuyển Form đến Activecell

[thuyyeu99]

Nhờ các anh chị hướng dẫn em cách di chuyển Form đến Activecell giống như Form tìm kiếm trong Excel.
Cám ơn các anh chị quan tâm

 

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

Nhờ các anh chị hướng dẫn em cách di chuyển Form đến Activecell giống như Form tìm kiếm trong Excel.
Cám ơn các anh chị quan tâm

Bạn dùng code này thử:

Sub DiChuyen()
     With Me
        .StartUpPosition = 0
        .Top = ActiveCell.Top
        .Left = ActiveCell.Left
    End With
End Sub

 

[thuyyeu99]

Dạ ý em nói là cái cạnh của UF sẽ nằm gần cạnh của Cel chứ không phải đề lên ạh, nếu Cell nằm gần cuối phái bên phải của màn hình thì cạnh dưới của Form sẽ nằm phía trên hay bên trái của cell

 

[thuyyeu99]

nó như file em đính kèm nhưng mà là move chứ không phải show và chế độ Showmodal của Form là False

 

[ndu96081631]

Nhờ các anh chị hướng dẫn em cách di chuyển Form đến Activecell giống như Form tìm kiếm trong Excel.
Cám ơn các anh chị quan tâm

Cái này tưởng dể ăn... mà đâu có phải vậy
Xem tại đây:
http://my.opera.com/levanduyet/blog/2008/03/09/hien-form-tai-vi-tri-theo-yeu-cau
Cứ tưởng Me.Top = ActiveCell.Top là xong, ai dè nó đi tới tận đâu

 

[ndu96081631]

nó như file em đính kèm nhưng mà là move chứ không phải show và chế độ Showmodal của Form là False

Ah... Nếu bạn có sẳn file thế thì sửa lại tí là xong ngay mà
Thử file mới này xem thế nào nhé