Làm ơn viết giúp chương trình tính số dương và âm theo từng hàng

[timeltdco]

Mình định viết một đoạn chương trình dùng để theo hàng như sau: và lặp lại theo các cột...

-1 -3 -4 4 5 6 -5 6 -7-7-8 3 2 3....

giờ mình muốn viết một đoạn mã để cho ra kết quả như sau sang một sheet khac

-1 -3 -4 4 5 6 -5 6 -7-7-8 3 2 3....

-8 15 -5 6 -22 8 ... nghĩa là ghép các số dương và số âm lại ... bác nào giúp mình với

Cám ơn các cao thủ nhiều...

 

[tulaphl]

Kết hợp hàm CONCATENATE và hàm sum

 

[timeltdco]

CONCATENATE mình tưởng là ghép string cơ mà... dùng ở đây làm gỉ nhỉ?

 

[huuthang_bd]

CONCATENATE mình tưởng là ghép string cơ mà... dùng ở đây làm gỉ nhỉ?

Không biết dữ liệu của bạn thế nào. Tất cả các số trong 1 ô hay cùng năm trên một dòng nhưng mỗi ô một số. Bạn nên có file dữ liệu.

 

[timeltdco]

Mình viết thử nhưng bi cái lỗi run time error '1004'... và chưa giải quyết được vấn đề với cột cuối cùng.... và trường hợp gặp các ô trống giữa hàng ...

Bác nào xem giúp và sửa hộ với ... thk nhiều...

Mình tính trên sheet1 và copy sang sheet2 nhé...

 

[SA_DQ]

Mình chưa đọc được file của bạn (!)

Nên đành viết mới một hàm mãng người dùng, như sau:

Option Explicit:                                      Option Base 1
Function TongNhom(Rng As Range)
 Dim CellsCount As Byte, Zz As Byte, Stt As Byte
 Dim Sum_ As Double:                         Dim Clls As Range
 
 CellsCount = Rng.Cells.Count
 ReDim MDL(1, CellsCount)
 For Each Clls In Rng
   Zz = Zz + 1
   If Zz = 1 Then
      Sum_ = Clls.Value
   Else
      If (Sum_ < 0 And Clls.Value < 0) Or (Sum_ > 0 And Clls.Value > 0) Then
         Sum_ = Sum_ + Clls.Value
      ElseIf (Sum_ < 0 And Clls.Value > 0) Or (Sum_ > 0 And Clls.Value < 0) Then
         Stt = Stt + 1
         MDL(1, Stt) = Sum_:                 Sum_ = Clls.Value
      End If
   End If
 Next Clls
   MDL(1, Stt + 1) = Sum_:                   TongNhom = MDL
End Function

Hàm hiện kết quả như ví dụ dưới đây:

A|B|C|D|E|F|G|H|I|J|K|L|M|N|
-1|-3|-4|4|5|6|-5|6|-7|-7||-3|2|3|
|.||.||.||.||.||.|||
-8 | 15 | -5 | 6 | -17 | 5 | 0 | 0 | 0 | 0 ||
|.||.||.||.||.||.|||

Tại 'A3:J3' ta nhập cú pháp: =TongNhom(A1:N1)
Là hàm mãng nên cũng phải kết thúc bằng tổ hợp 3 fím thân thương đó nha.

 

[timeltdco]

Xin lỗi, mình viết bằng excel 2007 nên lấy đuôi là xlsm... mình đổi lại thành xls rồi... chạy thử giúp mình với nhé... Cảm ơn nhiều...