Xin cách tính tổng cho một TextBox

[thanhtam348]

Chào các bạn và anh chị.
Tôi có một link name gồm 6 cột đưa vào ListBox trong form, giờ tôi muốn tạo một TextBox để tính tổng trong ListBox ở cột thứ sáu, vậy nhờ anh chị và các bạn cho tôi một code để làm điều đó. Cám ơn anh chị và các bạn.

 

[sealand]

Nếu là 1 list box thì việc cộng 1 cột cũng đơn giản thôi .Cú pháp:
For i=0 to Me.ListBox1.Listcount-1
me.Textbox1=Val(TextBox1)+val(ListBox1.list(i).columns(5)
Next

Nhưng đây là việc làm vô nghĩa vì số này là số không đổi. Mà nếu có đổi thì tại sao không cộng từ lúc nạp
Bạn tham khảo ví dụ sau (Lưu ý lần sau hỏi bài có ví dụ câu trả lời sẽ gần hơn). Bạn mở form rồi dịch chuyển trên List 1

 

[ndu96081631]

Chào các bạn và anh chị.
Tôi có một link name gồm 6 cột đưa vào ListBox trong form, giờ tôi muốn tạo một TextBox để tính tổng trong ListBox ở cột thứ sáu, vậy nhờ anh chị và các bạn cho tôi một code để làm điều đó. Cám ơn anh chị và các bạn.

Bạn nói rằng ListBox này lấy dữ liệu từ 1 name? Thế thì cứ dựa vào name này mà tính thôi
Ví dụ thế này:
- Bạn có 1 name tên là LIST, tham chiếu đến 1 vùng gồm 6 cột
- Name này đã được nạp vào ListBox
- Để tính tổng cột 6 (cột cuối) ta dùng code thế này:

Private Sub UserForm_Initialize()
  With Range("List")
    Me.TextBox1 = WorksheetFunction.Sum(.Resize(, 1).Offset(, .Columns.Count - 1))
  End With
End Sub

 

[thanhtam348]

Cám ơn anh sealand, anh ndu96081631 và các bạn, (nay biết 2 anh lớn tuổi cho tôi đổi cách gọi).
GPE nầy giúp đở tôi nhiều mà chưa lần gặp. Xin chào thân mến

 

[sealand]

Bạn nói rằng ListBox này lấy dữ liệu từ 1 name? Thế thì cứ dựa vào name này mà tính thôi
Ví dụ thế này:
- Bạn có 1 name tên là LIST, tham chiếu đến 1 vùng gồm 6 cột
- Name này đã được nạp vào ListBox
- Để tính tổng cột 6 (cột cuối) ta dùng code thế này:

Private Sub UserForm_Initialize()
  With Range("List")
    Me.TextBox1 = WorksheetFunction.Sum(.Resize(, 1).Offset(, .Columns.Count - 1))
  End With
End Sub

Mình thấy nếu dùng đơn giản hơn 1 chút cũng vẫn "ngon" mà:

Sub thu()
Textbox1= WorksheetFunction.Sum(Range("LIST").Columns(6))
End Sub

 

[ndu96081631]

Mình thấy nếu dùng đơn giản hơn 1 chút cũng vẫn "ngon" mà:

Sub thu()
Textbox1= WorksheetFunction.Sum(Range("LIST").Columns(6))
End Sub

Đương nhiên cách này gọn nhất rồi (cho trường hợp tính ở cột 6)
Ý em thì lại hơi khác 1 chút ---> Em chỉ tính cột cuối mà không cần biết nó là cột thứ mấy
Một mai "vật đổi sao dời" thì code của anh luôn tính ở cột 6, còn code của em luôn tính ở cột cuối
Vậy tác giả tùy ý mà dùng nhé
Ẹc... Ẹc...