connect Label trong userform với gia trị cell trong excel

[kienduy]

Cac AC oi, giup em voi, em voi tap viet nen khong biet the nao de lien ket label voi gia tri cell trong excel.
Cu the, em muon khi form duoc kich hoat thì Label (được chỉ định) đó phải nhận giá trị của một cell (được chỉ định) trong excel thay thế.
vd: label mặc định của form la Điện thoại. Khi form kích hoạt thì label đó được đổi thành Handphone chẳng hạn .. AC giup em voi nha.

Em đa viet nhung bị lôi và không có kết quả.
Sub BBB()
UserForm1.Show
Label2.Caption = Sheet1.Range("A1").Value
End Sub

 

[ndu96081631]

Cac AC oi, giup em voi, em voi tap viet nen khong biet the nao de lien ket label voi gia tri cell trong excel.
Cu the, em muon khi form duoc kich hoat thì Label (được chỉ định) đó phải nhận giá trị của một cell (được chỉ định) trong excel thay thế.
vd: label mặc định của form la Điện thoại. Khi form kích hoạt thì label đó được đổi thành Handphone chẳng hạn .. AC giup em voi nha.

Em đa viet nhung bị lôi và không có kết quả.
Sub BBB()
UserForm1.Show
Label2.Caption = Sheet1.Range("A1").Value
End Sub

Viết vầy thử xem:

Sub BBB()
  UserForm1.Label2.Caption = Sheet1.Range("A1").Value
  UserForm1.Show
End Sub

 

[VetMini]

Sửa lại:
Sub BBB()
UserForm1.Show
End Sub

Và nhét hai cái này vào Module UserForm1:
Private UserForm_Initialize()
PresetDetailsForm1
End Sub

Sub PresetDetailsForm1()
Me.Label2.Caption = Sheet1.Range("A1").Value
' set thêm cái gì nữa ở đây tuỳ ý
End Set

Và nhét cái này vào module Sheet1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then UserForm1.PresetDetailsForm1
End Sub

 

[kienduy]

Viết vầy thử xem:

Sub BBB()
  UserForm1.Label2.Caption = Sheet1.Range("A1").Value
  UserForm1.Show
End Sub

Da, em làm như vậy mà không ra anh oi.

Bài đã được tự động gộp: 14/5/20

Sửa lại:
Sub BBB()
UserForm1.Show
End Sub

Và nhét hai cái này vào Module UserForm1:
Private UserForm_Initialize()
PresetDetailsForm1
End Sub

Sub PresetDetailsForm1()
Me.Label2.Caption = Sheet1.Range("A1").Value
' set thêm cái gì nữa ở đây tuỳ ý
End Set

Và nhét cái này vào module Sheet1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then UserForm1.PresetDetailsForm1
End Sub

Anh Vietmini oi, em làm như anh hướng dẫn mà không được, anh xem file em gửi có trục trặc gì không nha.
P/S: em sorry vì lần post trước viết không có dấu.

 

[SA_DQ]

Thực hiện theo hướng dẫn của #3

 

[HeSanbi]

Code trong Module:

Sub ShowForm()
  Userform1.Show 0
End Sub

Code trong Userform:

Option Explicit
Private WithEvents App As Excel.Application
Private Sub App_SheetCalculate(ByVal Sh As Object)
  Select Case Sh.Name
  Case "Sheet1": Call SetCaption
  End Select
End Sub
Private Sub SetCaption()
  Me.Label1.Caption = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
End Sub
Private Sub UserForm_Initialize()
  Call SetCaption
  Set App = Excel.Application
End Sub
Private Sub UserForm_Terminate()
  Set App = Nothing
End Sub

 

[ndu96081631]

Da, em làm như vậy mà không ra anh oi.

Bài đã được tự động gộp: 14/5/20

Anh Vietmini oi, em làm như anh hướng dẫn mà không được, anh xem file em gửi có trục trặc gì không nha.
P/S: em sorry vì lần post trước viết không có dấu.

File của bạn trống trơn, bạn có làm gì trong đó đâu mà đòi được với không được?