Code for sum of multi text box?

[Tường_Vi]

Giả sử ta có n text box (trong text box là số và khác rỗng)
nếu tính tổng n text box dùng vòng lặp thì ta viết code như nào ạh

Muội mới học nên chưa biết làm thế nào, hic hic

 

[sealand]

Trong Visual Basic có cho phép đặt tên đối tượng theo mảng rất thuận lợi cho sử lý dữ liệu trên Form. Trong VBA không làm được như vậy nên theo thiển ý của mình có thể làm như sau:
Trên Form sẽ còn có nhiều textbox không thuộc nhóm cộng vậy nên không dùng thuộc tính loại Control được mà ta lợi dụng tên đối tượng để sử lý. Ta lưu ý các Textbox trên Form thường được đặt thêm tiền tố để phân loại đối tượng ví dụ: Txt...., Cmb....Riêng các Textbox sẽ cộng trên Form ta đặt tiền tố là Ts.... chẳng hạn. Ta có tên các Textbox dạng Ts_Luong, Ts_phucap, Ts_chucvu v.v...
Code Cộng ta viết như sau sẽ gọn gàng và dễ sử lý:

Option Explicit

Private Sub cong()
Dim Ctr As Control
Dim Tong
For Each Ctr In Me.Controls
If Left(Ctr.Name, 3) = "Ts_" Then Tong = Tong + Val(Ctr)
Next
MsgBox Tong
End Sub

Vậy là bạn không cần biết bao nhiêu ô phải cộng nữa, nếu cần cộng Textbox nào thì cứ thêm cho nó tiền tố quy ước vào tên là được.
Xin nói lại chút, đây chỉ là thiển ý của mình tham gia với bạn chứ chưa thấy tài liệu nào đánh giá cả. Chắc sẽ còn biện pháp hợp lý hơn.

 

[ndu96081631]

Trên Form sẽ còn có nhiều textbox không thuộc nhóm cộng vậy nên không dùng thuộc tính loại Control được mà ta lợi dụng tên đối tượng để sử lý. Ta lưu ý các Textbox trên Form thường được đặt thêm tiền tố để phân loại đối tượng ví dụ: Txt...., Cmb....Riêng các Textbox sẽ cộng trên Form ta đặt tiền tố là Ts.... chẳng hạn. Ta có tên các Textbox dạng Ts_Luong, Ts_phucap, Ts_chucvu v.v...
.

Có thể dùng Tag Property để "đánh dấu", em thấy cũng là 1 cách hay đấy anh à (không cần quan tâm đến Name, đặt tên gì tùy thích)
If Ctr.Tag = "gì gì đó" Then

 

[sealand]

Có thể dùng Tag Property để "đánh dấu", em thấy cũng là 1 cách hay đấy anh à (không cần quan tâm đến Name, đặt tên gì tùy thích)
If Ctr.Tag = "gì gì đó" Then

Đúng rồi, trên GPE mình nhớ là đã có người dùng cách này, hình như Bác Sa thì phải. Nói chung cái hạn chế là nó cứ phải soát 1 lượt. Mình còn 1 cách không phải làm theo hướng này, Ndu nghĩ xem.
Đợi muộn cùng Post bài xem chúng ta có giống nhau không nhé

 

[sealand]

Như mình đã nói còn 1 cách chỉ đích danh Control tên là xxxx làm động tác thay vì lật tất cả nếu gặp cha nào có tên là xxx thì thục hiện. Như vậy tốc đọ sẽ nhanh rất nhiều khi số lượng điều khiển lớn. Dưới đây là code cộng trong file ví dụ mỗi lần cộng 8 textbox

Sub Cong()
Dim i, Tong
For i = 1 To 8
Tong = Tong + Val(Me.Controls("dc" & i))
Next
S1 = Format(Tong, "#,##0")
End Sub

 

[Tường_Vi]

To: Anh Sea Land
Tạm thời em đã hiểu đoạn code của Anh, hy vọng em sẽ ứng dụng được nó

Cám ơn Anh