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

  • Thread starter gacon0904
  • Ngày gửi
G

gacon0904

Thành viên sơ cấp
9/7/05
81
0
0
37
tphcm
#1
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.
 
B

BUI CHI THANH

Thành viên sơ cấp
21/2/06
479
2
0
43
VUNG TAU
#2
Ở Ô 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.
 
G

gacon0904

Thành viên sơ cấp
9/7/05
81
0
0
37
tphcm
#3
BUI CHI THANH nói:
Ở Ô 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.
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.
 
N

ntan50

Thành viên sơ cấp
25/5/06
68
0
6
Hà Nội
#4
Tôi thấy công thức trên đúng rồi đó, bạn gacon0904 à. Hãy thử đi.
 
G

gacon0904

Thành viên sơ cấp
9/7/05
81
0
0
37
tphcm
#5
gacon0904 nói:
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.
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ị.
 
B

BUI CHI THANH

Thành viên sơ cấp
21/2/06
479
2
0
43
VUNG TAU
#6
gacon0904 nói:
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ị.
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 ?
 
B

Bình_OverAC

Over Abnormal / Crazy
14/5/04
845
7
18
37
Nha Trang
#7
Đ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
---------------------------
 
G

gacon0904

Thành viên sơ cấp
9/7/05
81
0
0
37
tphcm
#8
Bình_OverAC nói:
Đ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
---------------------------
Cám ơn Anh Bình nhiều. Chúc một tuần mới vui và mọi thứ tốt đẹp.
 
QDuc

QDuc

Thành viên thân thiết
3/6/06
254
18
18
Biển khơi
#9
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.
 
B

BUI CHI THANH

Thành viên sơ cấp
21/2/06
479
2
0
43
VUNG TAU
#10
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
 

Thành viên trực tuyến

Không có thành viên trực tuyến.

Xem nhiều