Sao chép số tổng trên thanh Status Bar

[taolao_tao]

Chào các bạn, cho mình hỏi?
Mình có bảng tính khi mình chọn vùng có chứa dữ lỉệu số, thì kết quả tổng cộng được thể hiện ở thanh Status bar, như vậy mình muốn lấy số tổng đó để đặt vào ô khác bằng cách nào?

Thông thường mình muốn xem số tổng nhanh nhất của các số là mình cứ chọn các số số, tức nhiên là trên thành Status Bar của Excel (thanh phía dưới) có thể hiện số tổng của các ô. Mình muốn lấy kết quả đó dán vào ô khác.

 

[ndu96081631]

Chào các bạn, cho mình hỏi?
Mình có bảng tính khi mình chọn vùng có chứa dữ lỉệu số, thì kết quả tổng cộng được thể hiện ở thanh Status bar, như vậy mình muốn lấy số tổng đó để đặt vào ô khác bằng cách nào?

Thì viết code, đại khái như sau:
- Bạn quét chọn 1 khối cell rồi bấm nút
- Code sẽ tính tổng của các cell đang chọn
- Và đương nhiên chẳng liên quan gì đến Status bar cả
Ví dụ minh họa:

Sub Test()
  On Error Resume Next
  MsgBox WorksheetFunction.Sum(Selection)
End Sub

 

[Hai Lúa Miền Tây]

Thông thường mình muốn xem số tổng nhanh nhất của các số là mình cứ chọn các số số, tức nhiên là trên thành Status Bar của Excel (thanh phía dưới) có thể hiện số tổng của các ô. Mình muốn lấy kết quả đó dán vào ô khác.

Bạn dùng code này nhé
Ví dụ vùng dữ liệu của bạn là A1 đến A1000, lấy kết quả vào B1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Not Intersect(Range("A1:A1000"), Target) Is Nothing Then
      [b1].Value = WorksheetFunction.Sum(Selection)
    End If
 End Sub

 

[ndu96081631]

Bạn dùng code này nhé
Ví dụ vùng dữ liệu của bạn là A1 đến A1000, lấy kết quả vào B1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Not Intersect(Range("A1:A1000"), Target) Is Nothing Then
      [b1].Value = WorksheetFunction.Sum(Selection)
    End If
 End Sub

Intersect hình như chưa phát huy tác dụng ---> Theo như trong file, có lẽ ý đồ của bạn là: Chỉ khi chọn vùng nằm tại cột A thì nó mới hiện TỔNG
Thế nhưng tôi chọn "leo sang" cột B nó vẩn tính
Xem lại lần nữa nhé

 

[tutientrung]

Thông thường mình muốn xem số tổng nhanh nhất của các số là mình cứ chọn các số số, tức nhiên là trên thành Status Bar của Excel (thanh phía dưới) có thể hiện số tổng của các ô. Mình muốn lấy kết quả đó dán vào ô khác.

Có cách giải quyết rồi.Bạn dùng Add-in Andrew's Utilities(tìm trong GPE trong phần các Add-in) trong phần data utilities mục 16 có dòng Copy sum of selection to Clipboard ,nhấn vô thế là xong .muốn paste đi đâu cũng được ,paste vào trương trình nào cũng được .Còn muốn xem code thì dùng soft remove pas đi xem vô tư luôn. Rất nhiều các ứng dụng mà bạn có thể chưa biết .OK

 

[Hai Lúa Miền Tây]

Intersect hình như chưa phát huy tác dụng ---> Theo như trong file, có lẽ ý đồ của bạn là: Chỉ khi chọn vùng nằm tại cột A thì nó mới hiện TỔNG
Thế nhưng tôi chọn "leo sang" cột B nó vẩn tính
Xem lại lần nữa nhé

Em xin sửa lại như sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    [b1].Value = WorksheetFunction.Sum(Intersect(Range("A1:A1000"), Target))
End Sub

 

[ptm0412]

kết quả tổng cộng được thể hiện ở thanh Status bar, như vậy mình muốn lấy số tổng đó để đặt vào ô khác

1. nếu muốn tính tổng dữ liệu trong 1 cột, tô chọn vùng dữ liệu cần tính tổng, nhấn nút Sum trên thanh công cụ, ô tổng sẽ được tính ngay vào ô kề dưới serie dữ liệu

2. Nếu muốn tính tổng dữ liệu trên hàng ngang, tô chọn vùng dữ liệu cần tính tổng, nhấn nut sum, ô tổng sẽ được tính vào ô liền kề bên phải.

3. Nếu tô chọn nhiều hơn 1 cột và nhấn nút sum, Excel sẽ tính tổng từng cột vào các ô trên dòng liền kề bên dưới.

4. Nếu muốn tính tổng tại 1 ô tự chọn, tô khối vùng tính tổng, 1 vùng hoặc nhiều vùng tùy ý, Ctrl + chọn thêm ô trống muốn tính tổng (ở đâu cũng được),, nhấn Ctrl +T

Xem hình: tổng các ô màu vàng đang được chọn sẽ tính vào ô C11

Kết quả:

Xem thêm file, code Ctrl T là:

Sub SumSelection()
ActiveCell.Value = Application.Sum(Selection)
End Sub

Ghi chú thêm:
Nếu ô tổng đang có số và muốn tính lại, thêm câu lệnh:

Activecell.ClearContents

vào trên dòng lệnh Sum