Form thay đổi khi ShowModal = False (1 người xem)

[ThaiDieuAnh]

Em có Form như file đính kèm. Em muốn sau khi Propeties ShowModal = False và di chuyển cell trên cột B thì giá trị trong Textbox1 sẽ thay đổi theo ô đó, mong các anh chị giúp đỡ, em xin cảm ơn!

 

[ndu96081631]

Em có Form như file đính kèm. Em muốn sau khi Propeties ShowModal = False và di chuyển cell trên cột B thì giá trị trong Textbox1 sẽ thay đổi theo ô đó, mong các anh chị giúp đỡ, em xin cảm ơn!

Chèn thêm 1 module với code:

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Function IsFormLoaded(ByVal frmCaption As String) As Boolean
  IsFormLoaded = FindWindow("ThunderDFrame", frmCaption) > 0
End Function

Sửa code sự kiện BeforeRightClick trong file thành:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If IsFormLoaded("UserForm1") Then
    If Not Intersect(Range("B4:B" & [B65500].End(xlUp).Row), Target) Is Nothing Then
      If Target.Count = 1 Then
        If IsDate(Target.Value)  Then
          UserForm1.TextBox1 = Target.Value
          Cancel = True
        End If
      End If
    End If
  End If
End Sub

 

[ThaiDieuAnh]

Chèn thêm 1 module với code:

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Function IsFormLoaded(ByVal frmCaption As String) As Boolean
  IsFormLoaded = FindWindow("ThunderDFrame", frmCaption) > 0
End Function

Sửa code sự kiện BeforeRightClick trong file thành:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If IsFormLoaded("UserForm1") Then
    If Not Intersect(Range("B4:B" & [B65500].End(xlUp).Row), Target) Is Nothing Then
      If Target.Count = 1 Then
        If IsDate(Target.Value)  Then
          UserForm1.TextBox1 = Target.Value
          Cancel = True
        End If
      End If
    End If
  End If
End Sub

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Chỗ này không được anh ạ, dù em đã bỏ PtrSafe, em dùng Officel 2007
Nếu mở bằng excel 2016 thì được anh ạ, nhưng khi di chuyển trên cells thì Textbox vẫn không nhận giá trị của cell

 

[ndu96081631]

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Chỗ này không được anh ạ, dù em đã bỏ PtrSafe, em dùng Officel 2007

Giờ mà vẫn còn có người xài 2007 sao ta?
Thôi thì dùng cái cũ:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 

[ThaiDieuAnh]

Giờ mà vẫn còn có người xài 2007 sao ta?
Thôi thì dùng cái cũ:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Khi di chuyển trên cells thì Textbox không nhận giá trị của cell và sự kiện BeforeRightClick không chạy anh ạ!

 

[ndu96081631]

Khi di chuyển trên cells thì Textbox không nhận giá trị của cell và sự kiện BeforeRightClick không chạy anh ạ!

Bạn phải bấm showform trước chứ

 

[ndu96081631]

Ah! Hay là bạn muốn click phải chuột thì form tự show và điền giá trị?
Nếu là thế thì sửa code sự kiện thành vầy:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("B4:B" & [B65500].End(xlUp).Row), Target) Is Nothing Then
    If Target.Count = 1 Then
      If IsDate(Target.Value) = True Then
        If IsFormLoaded("UserForm1") = False Then UserForm1.Show
        UserForm1.TextBox1 = Target.Value
        Cancel = True
      End If
    End If
  End If
End Sub

 

[ThaiDieuAnh]

Ah! Hay là bạn muốn click phải chuột thì form tự show và điền giá trị?
Nếu là thế thì sửa code sự kiện thành vầy:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("B4:B" & [B65500].End(xlUp).Row), Target) Is Nothing Then
    If Target.Count = 1 Then
      If IsDate(Target.Value) = True Then
        If IsFormLoaded("UserForm1") = False Then UserForm1.Show
        UserForm1.TextBox1 = Target.Value
        Cancel = True
      End If
    End If
  End If
End Sub

Vâng, cảm ơn anh nhiều ạ, chúc anh sức khỏe