Giúp hiện form

[challenge98]

Mình muốn hiện form lấy dữ liệu đang viết nhưng bị lỗi không chạy được mọi người sửa giúp mình với. mọi người xem file đính kèm nhé

 

[ndu96081631]

Mình muốn hiện form lấy dữ liệu đang viết nhưng bị lỗi không chạy được mọi người sửa giúp mình với. mọi người xem file đính kèm nhé

Bạn viết code sai hết rồi:
1> Trong Module:

Public TextVal As String

2> Trong Form

Private Sub UserForm_Initialize()
  TextBox1.Text = TextVal
End Sub

3> Trong sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("D5:D32"), Target) Is Nothing Then
    TextVal = Target.Value
    UserForm1.Show
  End If
End Sub

Có điều... chẳng biết bạn làm thế để làm cái gì???

 

[challenge98]

Cảm ơn bạn mình làm học hỏi nâng cao trình độ tý thui hihi