lấy nội dung từ textbox này sang textbox kia (8 người xem)

[authority]

em chào các anh ạ
các anh giúp e vấn đề này với ạ
1.em có 2 textbox là textbox1 và textbox1
và 1 funtion ví dụ là

Function Tra(ByVal Fa, ByVal Tyle, ByVal LimSoThanh)

End Function

vậy thì làm sao khi mình nhập giá trị vào textbox1 thì textbox2 tự động dùng funtion tra để điền giá trị vào textbox2
2.các anh chi cho em cách dùng funtion với ạ
em cảm ơn các anh ạ

 

[ndu96081631]

em chào các anh ạ
các anh giúp e vấn đề này với ạ
1.em có 2 textbox là textbox1 và textbox1
và 1 funtion ví dụ là

Function Tra(ByVal Fa, ByVal Tyle, ByVal LimSoThanh)

End Function

vậy thì làm sao khi mình nhập giá trị vào textbox1 thì textbox2 tự động dùng funtion tra để điền giá trị vào textbox2
2.các anh chi cho em cách dùng funtion với ạ
em cảm ơn các anh ạ

Thì dùng sự kiện Change của TextBox1 chuyển số liệu tính toán sang TextBox2 thôi
Ví dụ:

Private Sub TextBox1_Change()
  Dim Fa, Tyle, LimSoThanh
  Fa = Gì gì đó
  Tyle = Gì gì đó
  LimSoThanh = Gì gì đó
  Me.TextBox2.Text = Tra(Fa, Tyle, LimSoThanh)
End Sub

 

[authority]

Thì dùng sự kiện Change của TextBox1 chuyển số liệu tính toán sang TextBox2 thôi
Ví dụ:

Private Sub TextBox1_Change()
  Dim Fa, Tyle, LimSoThanh
  Fa = Gì gì đó
  Tyle = Gì gì đó
  LimSoThanh = Gì gì đó
  Me.TextBox2.Text = Tra(Fa, Tyle, LimSoThanh)
End Sub

em cảm ơn thầy ạ
trước giờ không biết cứ gọi anh
mong thầy thông cảm ạ
mà vẫn không được thầy ạ
thầy giúp em file đính kèm với ạ

 

[ndu96081631]

em cảm ơn thầy ạ
mà vẫn không được thầy ạ
thầy giúp em file đính kèm với ạ

Thế bạn muốn làm điều gì trong Form này? Giải thích rõ ràng chứ

trước giờ không biết cứ gọi anh
mong thầy thông cảm ạ

Bạn gọi bằng gì cũng được
(đừng gọi MÀY hoặc THẰNG là mừng rồi)
Ẹc... Ẹc...

 

[authority]

Thế bạn muốn làm điều gì trong Form này? Giải thích rõ ràng chứ

Bạn gọi bằng gì cũng được
(đừng gọi MÀY hoặc THẰNG là mừng rồi)
Ẹc... Ẹc...

Trong Form khi mình nhập giá trị vào texbox chọn VD 2 phi 16 .... thì trong textbox Fa chọn sẽ dùng Funtion Tra để tìm ra Fa của giá trị mình đã nhập ở texbox chọn ạ
em cảm ơn thầy đã giúp ạ

 

[ndu96081631]

Trong Form khi mình nhập giá trị vào texbox chọn VD 2 phi 16 .... thì trong textbox Fa chọn sẽ dùng Funtion Tra để tìm ra Fa của giá trị mình đã nhập ở texbox chọn ạ
em cảm ơn thầy đã giúp ạ

Hàm Tra(Fa, Tyle, LimSoThanh) có 3 đối số, vậy TextBox chọn là đối số nào? Còn lại 2 đối số nữa lấy từ đâu?

 

[authority]

Hàm Tra(Fa, Tyle, LimSoThanh) có 3 đối số, vậy TextBox chọn là đối số nào? Còn lại 2 đối số nữa lấy từ đâu?

dạ là đối số Fa ạ
còn 2 đối số khác dùng cho cái khác nữa ạ
mà thầy cho em hỏi phụ thêm tý nữa ạ
sao Combobox trong VB có cho mình nhập LIST mà trong VBA của Excel lại không có nhập đc ạ(mình chỉ nhập đc 1 giá trị thôi ạ)

 

[authority]

Hàm Tra(Fa, Tyle, LimSoThanh) có 3 đối số, vậy TextBox chọn là đối số nào? Còn lại 2 đối số nữa lấy từ đâu?

em chào thầy ạ
giờ nếu như em không dùng hàm nữa mà làm thế này thì mình phải làm thế nào thầy nhỉ
thầy giúp em với ạ
trong ô B2,B3 là giá trị em ví dụ
vậy khi mình nhập giá trị vào textbox chon thì trong text box Fachon sẽ có kết quả như ô C2
vậy làm sao trong Textbox Fachon mình có th ể thêm công thức như ô C2 vào đc ạ

 

[ndu96081631]

em chào thầy ạ
giờ nếu như em không dùng hàm nữa mà làm thế này thì mình phải làm thế nào thầy nhỉ
thầy giúp em với ạ
trong ô B2,B3 là giá trị em ví dụ
vậy khi mình nhập giá trị vào textbox chon thì trong text box Fachon sẽ có kết quả như ô C2
vậy làm sao trong Textbox Fachon mình có th ể thêm công thức như ô C2 vào đc ạ

Bạn cho thêm ít nhất 10 dòng dữ liệu nữa đi (có những giá trị có độ dài trên 10 ký tự)
Chứ dữ liệu chỉ có 1 cell tôi chẳng đoán được gì cả

 

[authority]

Bạn cho thêm ít nhất 10 dòng dữ liệu nữa đi (có những giá trị có độ dài trên 10 ký tự)
Chứ dữ liệu chỉ có 1 cell tôi chẳng đoán được gì cả

dữ liệu ô B2 phải không thầy
ví dụ 2F16+2f20+2f25+2f30+2f32 (vì trong ô B2 dùng font khác nên nó hiển thị thế này ạ.chứ nhập vào ô B2 sẽ hiển thị rõ hơn thầy ạ)
em cảm ơn thầy

 

[ndu96081631]

dữ liệu ô B2 phải không thầy
ví dụ 2F16+2f20+2f25+2f30+2f32 (vì trong ô B2 dùng font khác nên nó hiển thị thế này ạ.chứ nhập vào ô B2 sẽ hiển thị rõ hơn thầy ạ)
em cảm ơn thầy

Hiểu rồi!
Dùng code này xem:

Private Pi As Double
Private Sub UserForm_Initialize()
  Pi = 4 * Atn(1)
End Sub

Private Sub chon_Change()
  Dim tmp As String, i As Long, dTotal As Double
  Dim Arr, aItem
  On Error Resume Next
  tmp = LCase(Me.chon.Text)
  Arr = Split(tmp, "+")
  For i = LBound(Arr) To UBound(Arr)
    If InStr(1, Arr(i), "f", vbTextCompare) Then
      aItem = Split(Arr(i), "f")
      dTotal = dTotal + Round(aItem(0) * Pi * (aItem(1) / 10) ^ 2 / 4, 2)
    End If
  Next
  Me.FaChon.Text = dTotal
End Sub