Tính tổng cột với 1 ô.

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi gacon0904, 12 Tháng bảy 2006.

2,763 lượt xem

  1. gacon0904

    gacon0904 Thành viên hoạt động

    Bài viết:
    81
    Đã được thích:
    0
    Nơi ở:
    tphcm
    Các Anh/Chị cho em hỏi. Em có 1 cột (A1:A20) + 1 số (ô B1), kết quả chứa trong cột(C1:C20). Em muốn khi xóa ô A18,A19,A20 thì kết quả bên cột C18,C19,C20 củng bị xoá. Nếu thêm ô vào(A21,A22) thì nó tự động tính(C21,C22).Cám ơn các Anh/Chị nhiều.
     
    #1
  2. BUI CHI THANH

    BUI CHI THANH Thành viên sơ cấp

    Bài viết:
    479
    Đã được thích:
    2
    Nơi ở:
    VUNG TAU
    Ở Ô C1 em lập công thức như sau =iF(A1<>0,(A1+$B$1),"") sau đó em copy kéo xuống các Ô C1->C22.
     
    #2
  3. gacon0904

    gacon0904 Thành viên hoạt động

    Bài viết:
    81
    Đã được thích:
    0
    Nơi ở:
    tphcm
    Em muốn các giá trị cột A + ô B1 ghi vào từng ô trên cột C(vd:A1,A2,A3=2,5,7+8 thì ô C1,C2,C3=10,13,15) nếu giờ em xóa ô A3 thì ô C3 không có giá trị chứ không phải là 8,nếu thêm ô A4 thì ô C4 phải có giá trị. Xin các Anh/Chị giúp em.Xin cám ơn.
     
    #3
  4. ntan50

    ntan50 Thành viên hoạt động

    Bài viết:
    68
    Đã được thích:
    0
    Nơi ở:
    Hà Nội
    Tôi thấy công thức trên đúng rồi đó, bạn gacon0904 à. Hãy thử đi.
     
    #4
  5. gacon0904

    gacon0904 Thành viên hoạt động

    Bài viết:
    81
    Đã được thích:
    0
    Nơi ở:
    tphcm
    Các Anh/Chị có thể dùng VBA để giải quyết trường hợp này ko?. Em ko muốn sao chép công thức xuống.Xin cám ơn các Anh/Chị.
     
    #5
  6. BUI CHI THANH

    BUI CHI THANH Thành viên sơ cấp

    Bài viết:
    479
    Đã được thích:
    2
    Nơi ở:
    VUNG TAU
    Sao em làm khó vấn đề thêm vậy ! Nó hết sức đơn giãn mà . Nhưng bạn muốn dùng VBA làm cũng được nhưng Bạn có hiểu nhiều về VBA không ?
     
    #6
  7. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang
    Đoạn code mà ban yêu cầu đây. Bạn phải chép nó vào code của sheet mà bạn muốn. Chúc bạn thành công.

    ---------------------------
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then
    If Target.Value = "" Or Not IsNumeric(Target.Value) Then
    Range("C" & Target.Row).Value = ""
    Else
    Range("C" & Target.Row).Value = Range("A" & Target.Row).Value + Range("B1")
    End If
    End If
    End Sub
    ---------------------------
     
    #7
  8. gacon0904

    gacon0904 Thành viên hoạt động

    Bài viết:
    81
    Đã được thích:
    0
    Nơi ở:
    tphcm
    Cám ơn Anh Bình nhiều. Chúc một tuần mới vui và mọi thứ tốt đẹp.
     
    #8
  9. QDuc

    QDuc Thành viên thân thiết

    Bài viết:
    254
    Đã được thích:
    18
    Nơi ở:
    Biển khơi
    Nếu không dùng VBA có thể NTN không?!

    Bạn thử CT này tại ô C2 nha:
    =IF(A2=""," ",SUM(TCot)+$B$2)
    Ở đây TCot là tên của dãy động tại cột A
    Sau đó chép xuống dưới = AutoFill.
     
    #9
  10. BUI CHI THANH

    BUI CHI THANH Thành viên sơ cấp

    Bài viết:
    479
    Đã được thích:
    2
    Nơi ở:
    VUNG TAU
    Bạn có thể dùng cách viết công thức xong và record macrco rất dễ sử dụng khi chưa biết nhiều về VBA.
    Sub Macro1()
    '
    ' Macro1 Macro
    ' Macro recorded 7/18/2006 by thanh
    '

    '
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>0,(RC[-2]+R1C2),"""")"
    Range("C1").Select
    Selection.Copy
    Range("C1:C24").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("C1").Select
    Selection.Copy
    Range("C1:C25").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("C1:C23").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.Goto Reference:="Macro1"
    End Sub
     
    #10

Chia sẻ trang này