Tính tổng một dãy số_hiện thị kết quả ở dạng formula? (1 người xem)

[doi_trai_co_don]

Nhờ giùm công thức

Không bít có Post đúng chỗ không? Nhưng cần cứ phải hỏi thui.
Tui có việc nhờ các Bro (File đính kèm), không bít dùng Code hay Formula đây, rất mong mọi người giúp đỡ. Thannk nhìu

 

[tsf]

Không bít có Post đúng chỗ không? Nhưng cần cứ phải hỏi thui.
Tui có việc nhờ các Bro (File đính kèm), không bít dùng Code hay Formula đây, rất mong mọi người giúp đỡ. Thannk nhìu

Bạn ơi, đâu có thấy file đính kèm đâu. Bạn upload lại xem.

 

[tht]

Gởi bạn đoạn code "mì ăn liền" xài thử. Vì là "mì ăn liền" nên chắc không phải là giải pháp hay thuật giải tối ưu, nhưng ... ăn được!

Các pác chỉ giáo thêm!

Tôi chỉ mới tham gia nên không biết cách gởi file đã làm lên cho bạn. Thông cảm giùm nhé.

Chúc bạn có một ngày Chủ Nhật vui vẻ.


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Str As String
If ActiveCell.Column = 2 Then
Range("B2").Select
Do Until ActiveCell = ""
If Str <> "" Then
Str = Str & "+" & ActiveCell.Text
Else
Str = ActiveCell.Text
End If
Selection.Offset(1, 0).Range("A1").Select
Loop
End If
Range("D2").Value = Str
End Sub

 

[doi_trai_co_don]

Lời cảm ơn

Cảm ơn các bạn đã trả lời cho tui. Code của bạn tht tui không chạy được xin chỉ giáo nha. Vấn đề VBA tui không hỉu lắm.

 

[TranThanhPhong]

Cảm ơn các bạn đã trả lời cho tui. Code của bạn tht tui không chạy được xin chỉ giáo nha. Vấn đề VBA tui không hỉu lắm.

Chào bạn,

Mình viết thành 1 hàm để bạn dễ dùng. Xem trong file đính kèm. (Nhấn ALT+F11 để xem hàm)

TP.

 

[SA_DQ]

Thêm 1 cái nữa để bạn khỏi đơn côi!

[b]Private Sub Worksheet_Change(ByVal Target As Range)[/b]
 On Error GoTo errChange
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
    If Not Intersect(Target, Range("b:B")) Is Nothing Then
        Dim StrC As String, Rng As Range, Rng0 As Range
        Dim iJ As Long
        iJ = Target.Row
        Set Rng0 = Range("B2:B" & CStr(iJ))
    End If
    For Each Rng In Rng0
        StrC = StrC & "+" & Rng.Value
    Next Rng
    Set Rng0 = Nothing
    Range("D2").Value = Mid(StrC, 2)
errChange:              End[b]
End Sub[/b]

 

[tht]

Không hiểu sao tôi "Tải file từ máy" -> Chọn file -> "Thêm file", nữa chừng thì ... "cannot display the webpage" -> pó tay, không gởi file để bạn tham khảo thêm cho vui được. Hàm của bạn ttphong2007 thật đơn giản và dễ dùng, chắc đáp ứng được nhu cầu của bạn.

Hy vọng rắc rối của bạn đã được giải quyết. Còn rắc rối của tôi về "Tải file từ máy" thì ... HELP ME !

Không biết lần này có gởi file được không. Cố lên, Stupid! (Stupid là biệt danh của mình đấy mà!).

Gởi để bạn doi_trai_co_don tham khảo thêm cho vui thôi vì nó chưa được tinh chỉnh cho đầy đủ.

Chúc bạn hết ... co_don!

 

[doi_trai_co_don]

Rất cảm ơn nhìu vì các Bro đã nhiệt tình chỉ dẫn