Tạo form với 1 nút tính tổng 1 cột ???

[ducky2301]

Em muốn tạo 1 Form, trên đó có 1 Label dùng để hiển thị giá trị và 1 Nút dùng để khi bấm vào, nó sẽ tính tổng 1 cột trong sheet và giá trị tổng đó sẽ hiện lên trong Label. Em không biết lệnh tính Tổng của VB.
Các thầy giúp em với nha

 

[Ếch Xanh]

Bạn cứ tạo cái Form ra đi, sau đó nhập số liệu lên sheet, rồi bạn yêu cầu như thế nào đó rồi gửi cái File lên, sẽ được hướng dẫn!

 

[ducky2301]

Thầy xem giúp em với nha.

 

[hanhpptc]

Thầy xem giúp em với nha.

Bạn chỉnh code trong form: Label1 = Range("C3") thay bằng:Label1 = Range("C3") - Application.WorksheetFunction.Sum(Range("D617")) là được

 

[ndu96081631]

Thầy xem giúp em với nha.

Code của bạn là:

Label1 = Range("C3")

Sửa thành vầy thử xem

Label1 = WorksheetFunction.Sum(Range("D:D")) - Range("C3")

 

[huuthang_bd]

Thầy xem giúp em với nha.

Bạn dùng Code này cho nút TOTAL
Private Sub CommandButton1_Click()

Label1 = FormatNumber(Sheet1.[C3] - Application.WorksheetFunction.Sum(Sheet1.[D6:D17]), 0)
End Sub

 

[ducky2301]

Vậy là mình muốn sử dụng hàm nào của Excel trong VB thì mình dùng chữ WorksheetFunction. rồi tới tên hàm đó hả thầy ? Với lại nếu như phần Sum(Range("D")) em sửa thành là Sum(D617) được không thầy ? hay bắt buột phải dùng Range("") ???

Àh, em muốn khi nó hiện giá trị lên trong Label1 thì nó hiện theo kiểu là 1.000.000 chứ nó chỉ hiện là 1000000 không àh , em muốn nó canh giữa cái Label em vẽ được không, nó toàn hiện ở trên top không àh.

 

[ndu96081631]

Vậy là mình muốn sử dụng hàm nào của Excel trong VB thì mình dùng chữ WorksheetFunction. rồi tới tên hàm đó hả thầy ? Với lại nếu như phần Sum(Range("D")) em sửa thành là Sum(D617) được không thầy ? hay bắt buột phải dùng Range("") ???

Àh, em muốn khi nó hiện giá trị lên trong Label1 thì nó hiện theo kiểu là 1.000.000 chứ nó chỉ hiện là 1000000 không àh , em muốn nó canh giữa cái Label em vẽ được không, nó toàn hiện ở trên top không àh.

Viết Sum(D617) là sai, phải có dấu nháy ở 2 đầu D617 như vầy Sum("D617") mới được--> Đó là quy định
Có 1 cách khác khá đơn giản thế này:
- Giả sử phải gõ công thức tại 1 cell nào đó, có phải bạn sẽ gõ =SUM(D617)-C3, đúng không?
- Vậy bạn cứ copy nguyên con công thức trên cho vào code thế này:

Private Sub CommandButton1_Click()
  Label1 = Evaluate("[COLOR=#ff0000][B]SUM(D6:D17)-C3[/B][/COLOR]")
End Sub

Cái chổ màu đỏ chính là "nguyên con" công thức mà ta đã gõ trên bảng tính đây (chỉ lồng thêm thằng Evaluate)
Còn muốn Format phân cách ngàn thì vầy:

Private Sub CommandButton1_Click()
  Label1 = Format(Evaluate("[COLOR=#ff0000][B]SUM(D6:D17)-C3[/B][/COLOR]"),"#,##0")
End Sub

(dấu phẩy hay chấm là tùy vào quy định của máy bạn nha)
Canh giữa cho Lable, vào mục TextAlign, chọn 2 - fmTextAlignCenter
Lưu ý: Cái vụ canh giữa này chỉ có tác dụng theo chiều ngang, không có tác dụng cho chiều dọc. Vậy nên để canh giữa chính xác, bạn phải kết hợp chỉnh Font Size và kích thước cho Label nữa thì nhìn mới đẹp

 

[ducky2301]

Em hiểu rồi, cám ơn Thầy và mọi người nhiều