Làm sao để Button di chuyển tương ứng với dòng của active cell (2 người xem)

[MinhKhai]

Như tiêu đề đã nêu cùng mô tả trong file đính kèm, em muốn di chuyển button theo cột tương ứng với dòng của trỏ chuột nhưng không biết cách làm.
Trước đây có 1 file đã làm được theo cách này nhưng em không nhớ cách làm
Mong mọi người giúp đỡ

 

[Quang_Hải]

Như tiêu đề đã nêu cùng mô tả trong file đính kèm, em muốn di chuyển button theo cột tương ứng với dòng của trỏ chuột nhưng không biết cách làm.
Trước đây có 1 file đã làm được theo cách này nhưng em không nhớ cách làm
Mong mọi người giúp đỡ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E4:E1000]) Is Nothing Then
   If Target.Count = 1 Then
      With CommandButton1
         .Top = ActiveCell.Top
         .Left = ActiveCell.Left
         .Height = ActiveCell.Height + 1
         .Width = ActiveCell.Width
      End With
   End If
End If
End Sub

 

[MinhKhai]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E4:E1000]) Is Nothing Then
   If Target.Count = 1 Then
      With CommandButton1
         .Top = ActiveCell.Top
         .Left = ActiveCell.Left
         .Height = ActiveCell.Height   1
         .Width = ActiveCell.Width
      End With
   End If
End If
End Sub

Cảm ơn bác đã giúp đỡ. Code của bác dùng tốt lắm.
Code của bác là con trỏ chuột nằm ở cột E (>$E4) thì nút lệnh mới nhảy về. Em cũng thử chỉnh code mà không được để sao cho con trỏ chuột không cần đúng cột E thì nút vẫn chạy dọc cột E (cùng dòng)
Mong bác giúp đỡ tiếp

 

[ndu96081631]

Cảm ơn bác đã giúp đỡ. Code của bác dùng tốt lắm.
Code của bác là con trỏ chuột nằm ở cột E (>$E4) thì nút lệnh mới nhảy về. Em cũng thử chỉnh code mà không được để sao cho con trỏ chuột không cần đúng cột E thì nút vẫn chạy dọc cột E (cùng dòng)
Mong bác giúp đỡ tiếp

Ý bạn là vầy chăng:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count = 1 Then
    With CommandButton1
      .Top = Target.Top
      [COLOR=#ff0000].Left = Range("E:E").Left[/COLOR]
      .Height = Target.Height
      [COLOR=#ff0000].Width = Range("E:E").Width[/COLOR]
    End With
  End If
End Sub

Chỉ quan tâm đến vị trí Left và kích thước Width thôi
-----------------------
Tuy nhiên tôi nghĩ phải có giới hạn nào đó cho code chứ? Chẳng hạn đặt chuột từ dòng nào đến dòng nào thì sẽ chạy code, ngoài giới hạn ấy thì.. nghỉ
(code trên ta đặt chuột ở đâu cũng chạy tuốt)

 

[MinhKhai]

Ý bạn là vầy chăng:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count = 1 Then
    With CommandButton1
      .Top = Target.Top
      [COLOR=#ff0000].Left = Range("E:E").Left[/COLOR]
      .Height = Target.Height
      [COLOR=#ff0000].Width = Range("E:E").Width[/COLOR]
    End With
  End If
End Sub

Chỉ quan tâm đến vị trí Left và kích thước Width thôi
-----------------------
Tuy nhiên tôi nghĩ phải có giới hạn nào đó cho code chứ? Chẳng hạn đặt chuột từ dòng nào đến dòng nào thì sẽ chạy code, ngoài giới hạn ấy thì.. nghỉ
(code trên ta đặt chuột ở đâu cũng chạy tuốt)

Cảm ơn bác ndu96081631.
Code của bác đúng ý em và suy nghĩ của bác về giới hạn cũng đúng ý em. Về giới hạn như bác nói em cũng sẽ giới hạn trong vùng kẻ bảng như trong file đính kèm. Tuy nhiên em không hỏi hết để có chỗ tí toáy, chứ có hết đáp án thì tí toáy sao được...