Làm sao hiện kết quả từ 1 ô lên Text box khi Form đã show (2 người xem)

[congnguyen88]

Mình muốn là Click vào nút bấm thì UserForm1.Show và Textbox1 = range("a1")

Code này không chạy mong mọi người giúp mình

Sub nutbam()
UserForm1.Show
TextBox1 = Range("a1").Value
End Sub

 

[Quang_Hải]

Mình muốn là Click vào nút bấm thì UserForm1.Show và Textbox1 = range("a1")

Code này không chạy mong mọi người giúp mình

Sub nutbam()
UserForm1.Show
TextBox1 = Range("a1").Value
End Sub

Code này phải đặt trong sự kiện Initialize của form

UserForm1.TextBox1 = Range("a1").Value

 

[ndu96081631]

Mình muốn là Click vào nút bấm thì UserForm1.Show và Textbox1 = range("a1")

Code này không chạy mong mọi người giúp mình

Sub nutbam()
UserForm1.Show
TextBox1 = Range("a1").Value
End Sub

Sửa thành vầy sẽ được:

Sub nutbam()
  UserForm1.TextBox1 = Range("a1").Value
  UserForm1.Show
End Sub

 

[congnguyen88]

Sửa thành vầy sẽ được:

Sub nutbam()
  UserForm1.TextBox1 = Range("a1").Value
  UserForm1.Show
End Sub

Ok cảm ơn anh nhiều em làm được rồi. em còn cái này thắc mắc mong anh giúp em luôn.

Sub nutbam()
UserForm1.Label1 = Range("a1").Value
UserForm1.Show
End Sub


Private Sub Label1_Click()
Me.Label1 = Format(Format(Me.Label1, "0.0"), "#,##0")
End Sub


Em muốn khi UserForm1.Show hiện lên thì UserForm1.Label1 = Range("a1").Value nhưng Label phải định dạng phân cách hàng nghàn vì ô A1 dùng để nhập số tiền . Code trên được rồi nhưng phải Click vào Label mới định dạng phân cách hàng nghàn. Mong anh giúp em. Xin cảm ơn

 

[ndu96081631]

Ok cảm ơn anh nhiều em làm được rồi. em còn cái này thắc mắc mong anh giúp em luôn.

Sub nutbam()
UserForm1.Label1 = Range("a1").Value
UserForm1.Show
End Sub


Private Sub Label1_Click()
Me.Label1 = Format(Format(Me.Label1, "0.0"), "#,##0")
End Sub


Em muốn khi UserForm1.Show hiện lên thì UserForm1.Label1 = Range("a1").Value nhưng Label phải định dạng phân cách hàng nghàn vì ô A1 dùng để nhập số tiền . Code trên được rồi nhưng phải Click vào Label mới định dạng phân cách hàng nghàn. Mong anh giúp em. Xin cảm ơn

Thì bạn cho dòng màu đỏ vào Sub nutbam đi, chú ý sửa chữ Me thành UserForm1

 

[congnguyen88]

Thì bạn cho dòng màu đỏ vào Sub nutbam đi, chú ý sửa chữ Me thành UserForm1

Thank anh nha, em làm được rồi

Sub nutbam()
UserForm1.Label1 = Range("a1").Value
UserForm1.Label1 = Format(Format(UserForm1.Label1, "0.0"), "#,##0")
UserForm1.Show
End Sub

 

[sealand]

Thank anh nha, em làm được rồi

Sub nutbam()
UserForm1.Label1 = Range("a1").Value
UserForm1.Label1 = Format(Format(UserForm1.Label1, "0.0"), "#,##0")
UserForm1.Show
End Sub

Nếu bạn cho rằng Code này đúng với yêu cầu của bạn thì bạn phải sửa tiêu đề Topic đi vì nó hoàn toàn trái ngược nhau

Làm sao hiện kết quả từ 1 ô lên Text box khi Form đã show

Và thực sự Form đã show thì Code này sẽ là vô lý