Thực hiện tính toán Trên Form

[msc0506]

Mình có 1 form Nhập liệu mà yêu cầu tính toán trước khi Cập nhận số liệu vào sheet (+,-,*,/) từ các textbox bạn nào biết chỉ giúp mình nhé

Cảm ơn trước nhé

 

[tigertiger]

Mình có 1 form Nhập liệu mà yêu cầu tính toán trước khi Cập nhận số liệu vào sheet (+,-,*,/) từ các textbox bạn nào biết chỉ giúp mình nhé

Cảm ơn trước nhé

oh, thế là sao nhỉ

VD:
* có phải là mún trên textbox nhập là 2*3/(2+8) thì sau đó kq nhập cho biến (variable) tương ứng là giá trị của biểu thức trên (0.5) ah?

hay là

** ngay trên form có 2 textbox: textbox1 gõ biểu thức 2*3/(2+8) còn textbox2 hiện KQ 0.5 nhỉ?


vậy * hay ** nhỉ???
??

 

[msc0506]

cảm ơn

vưng cảm ơn bạn
Vdu là thế này

textbox1,textbox2,textbox3
Tôi cần tính là Kết quả = (textbox1*textbox2)+textbox3 lưu lại biến Kết quả để công dồn tiếp trong ngày khi đóng Form thì thoát biến này mà ko biết làm sao bạn giúp mình nhé !

Cảm ơn tigertiger

 

[yeudoi]

Cai này thì bạn đưa giá trị vào lưu ở cell thôi cần gì VD:

range("A1").value = (TextBox1*TextBox2)+TextBox3

 

[msc0506]

Không phải

là mình sẽ dủng hàm đọc Sô - chữ dich biên ketqua và sẽ công dồn trên form chỉ khi đóng form thì mới xóa biến này mình dùng thêm form thì kết quả lại ko đc

cảm ơn

 

[minhlev]

Bạn đặt biến như sau:
bien= ((textbox1 * textbox2) + textbox3 * 1) * 1
Tốt nhất là bạn gửi file lên để mọi người có thể hình dung được yêu cầu của bạn.

 

[msc0506]

Biến cộng

Công không được

Đây bạn ạ ko biết lỗi chỗ nào bạn giúp mình nhé
sub tiep()
'Dim congdon As Integer
' If Me.textbox1 > 0 Then
' congdon = (me.textbox2*textbox3) + (Me.textbox1 * 1)
' Me.Cong = biencong
' End If
end sub

và
Private Sub CmdRa_Click()
Set congdon = Nothing
home.show
end sub

cảm ơn nhiều

 

[tigertiger]

Công không được

Đây bạn ạ ko biết lỗi chỗ nào bạn giúp mình nhé
sub tiep()
'Dim congdon As Integer
' If Me.textbox1 > 0 Then
' congdon = (me.textbox2*textbox3) + (Me.textbox1 * 1)
' Me.Cong = biencong
' End If
end sub

và
Private Sub CmdRa_Click()
Set congdon = Nothing
home.show
end sub

cảm ơn nhiều

Xem nhanh có mấy ý kiến thế này:

+ oh, nội dung Sub tiep() bạn khóa hết rùi còn gì,
+ thêm nữa biến congdon bạn khai báo trong Sub tiep() thì làm sao liên hệ được cho Sub CmdRa_Click() đây --> bạn nên khai báo biến này là public bạn ah
thế nhé, thay đổi mấy điểm trên xem sao

.

 

[minhlev]

Bạn ơi ngoài cái mà bác tigertiger nói ra, còn đoạn code tính Me.Cong bị nhầm. Code đúng là

Me.Cong = congdon

 

[msc0506]

Rồi mình sửa mà cũng ko đc

Public sub tiep()
Dim congdon As Integer
If Me.textbox1 > 0 Then
congdon = (me.textbox2*textbox3) + (Me.textbox1 * 1)
Me.Cong = congdon
End If
end sub

 

[langduca]

Bạn xem file đính kèm nhé.

 

[cadafi]

Rồi mình sửa mà cũng ko đc

Public sub tiep()
Dim congdon As Integer
  If Me.textbox1 > 0 Then
  congdon = (me.textbox2*textbox3) + [B](Me.textbox1 * 1) ===> Không biết nhân 1 để làm gì vậy ta??[/B]
  Me.Cong = congdon
  End If

end sub

Nhiều khi bạn nhập liệu mà quên điều này: nếu ô texbox bị rỗng (có nghĩa là null) thì công thức của bạn bị báo lỗi là cái chắc, cho dù có nhân 1 hay nhân 2 cũng vậy. Thêm vào đó kiểu nhập vào của bạn không phải là kiểu số thì sao?? Cũng báo lỗi là cái chắc.

File của bạn langduca nếu có một ô textbox bị rỗng (null) thì có cũng báo lỗi, như vậy lỗi không phải do công thức sai, mà lỗi do bạn chưa bẫy lúc người nhập liệu chưa nhập số vào các ô textbox.

Mình lấy lại file của bạn langduca và sửa lại code một chút. Các bạn xem file đính kèm.

 

[ongtrungducmx25]

cái hay thật có thể làm ra form thử lại phép tính điểm trung bình cộng của học sinh không nhỉ! các pác xem giúp giùm em ở cột kết quả em muốn nó hiện ra kết quả là một chữ số thập phân, và tạo ra CommandButton(xóa dữ liệu) , điền vào cell hiện hành, >>, <<.