Công thức nào để giải quyết vấn đề

[rosy84]

Em có một bảng tính gửi kèm theo , trong đó có yêu cầu, các anh xem rồi giúp em với nha. thanks!!

 

[pomete]

Bạn xem file đính kèm xem đúng ý của bạn chưa nhé!

 

[ndu96081631]

Em có một bảng tính gửi kèm theo , trong đó có yêu cầu, các anh xem rồi giúp em với nha. thanks!!

Sau không dùng công thức:
=IF(B5="",B4-C3-D3-E3-F3-G3-H3,"")

 

[rosy84]

Cảm ơn anh Pomete nha, cái đó đúng rồi. Em cảm ơn anh nhiều

 

[rosy84]

Anh Pomete ơi có thể làmn thế này được không?

 

[pomete]

Có phải chỉ thay đổi từ I5 sang I4 phải không. Tại I4: =IF(MOD(ROW()-4,3)=0,INDIRECT("B"&ROW())-SUM(INDIRECT("C"&ROW()-1):INDIRECT("H"&ROW()-1)),"")

Bạn kéo công thức xuống là được. Thanks!

 

[pomete]

Sau không dùng công thức:
=IF(B5="",B4-C3-D3-E3-F3-G3-H3,"")

Đúng rồi. Dùng công thức này đơn giản hơn nhiều. Thanks Ndu nhé!

 

[thanhthu2004]

Em đang phải làm báo cáo hàng ngày cho công ty, trong đó có số liệu về doanh thu. Làm thế nào để hàng ngày khi mình nhập con số doanh thu vào một ô (ngày hôm sau nhập đè lên số liệu ngày hôm trước) thì ô bên cạnh tự tính tổng doanh thu từ đầu tháng tới ngày báo cáo? Mong các bác giúp em, cảm ơn nhiều.

 

[BNTT]

Em đang phải làm báo cáo hàng ngày cho công ty, trong đó có số liệu về doanh thu. Làm thế nào để hàng ngày khi mình nhập con số doanh thu vào một ô (ngày hôm sau nhập đè lên số liệu ngày hôm trước) thì ô bên cạnh tự tính tổng doanh thu từ đầu tháng tới ngày báo cáo? Mong các bác giúp em, cảm ơn nhiều.

Bạn gửi file kiểu này thì ai giúp được ? Sheet1 có mỗi nhiêu đó. Sheet2, Sheet3 trống trơn...
Doanh thu ngày nào? Cái ngày đó lấy ở đâu ra? Số liệu để lấy tính doanh thu nằm ở đâu?
Ít ra bạn cũng phải có một số dữ liệu mẫu chứ?

 

[ndu96081631]

Em đang phải làm báo cáo hàng ngày cho công ty, trong đó có số liệu về doanh thu. Làm thế nào để hàng ngày khi mình nhập con số doanh thu vào một ô (ngày hôm sau nhập đè lên số liệu ngày hôm trước) thì ô bên cạnh tự tính tổng doanh thu từ đầu tháng tới ngày báo cáo? Mong các bác giúp em, cảm ơn nhiều.

Có giống như file đính kèm này không?
Tôi dùng VBA nha (mở file nhớ Enable macro)

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  Dim Temp As Double
  With Target
    If .Address = "$D$8" Then
      If ActiveWorkbook.Names("TL") Is Nothing Then
        ActiveWorkbook.Names.Add "TL", "=0"
      End If
      Temp = Evaluate("TL") + .Cells.Value
      .Offset(1) = Temp
    End If
    ActiveWorkbook.Names("TL").Value = Temp
  End With
End Sub

 

[BNTT]

Có giống như file đính kèm này không?
Tôi dùng VBA nha (mở file nhớ Enable macro)

Code này chỉ phát huy tác dụng khi con nháy còn nằm ở D8, và đừng đi đâu ra khỏi đó hết.
Lỡ như chọn một ô khác không phải D8, và làm gì đó với cái ô khác này, thì biến Temp bị quay về giá trị 0.

Thêm nữa. Đã là nhập liệu, thì phải lưu lại những gì mình đã nhập chứ? Chẳng lẽ chỉ cần biết tổng doanh thu (cộng dồn) hiện tại là bao nhiêu, mà không cần quan tâm đó kết quả của những con số nào với nhau sao?

Theo em nghĩ thì hình như ý của tác giả topic này không phải là như vậy. Mà là sẽ cộng dồn kết quả doanh thu từ một cái bảng dữ liệu nào đó...

 

[thanhthu2004]

Bạn gửi file kiểu này thì ai giúp được ? Sheet1 có mỗi nhiêu đó. Sheet2, Sheet3 trống trơn...
Doanh thu ngày nào? Cái ngày đó lấy ở đâu ra? Số liệu để lấy tính doanh thu nằm ở đâu?
Ít ra bạn cũng phải có một số dữ liệu mẫu chứ?

Ý em là chỉ nhập dữ liệu vào ô D8 thôi (lần nhập sau đè lên lần nhập trước, không lưu số liệu doanh thu ngày) nhưng ô D9 vẫn thể hiện được doanh thu tích luỹ từ đầu tháng (mỗi tháng làm một file riêng).

 

[ndu96081631]

Code này chỉ phát huy tác dụng khi con nháy còn nằm ở D8, và đừng đi đâu ra khỏi đó hết.
Lỡ như chọn một ô khác không phải D8, và làm gì đó với cái ô khác này, thì biến Temp bị quay về giá trị 0.

Thêm nữa. Đã là nhập liệu, thì phải lưu lại những gì mình đã nhập chứ? Chẳng lẽ chỉ cần biết tổng doanh thu (cộng dồn) hiện tại là bao nhiêu, mà không cần quan tâm đó kết quả của những con số nào với nhau sao?

Theo em nghĩ thì hình như ý của tác giả topic này không phải là như vậy. Mà là sẽ cộng dồn kết quả doanh thu từ một cái bảng dữ liệu nào đó...

Ẹc... ẹc... nhầm End If thôi
Sửa lại

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  Dim Temp As Double
  With Target
    If .Address = "$D$8" Then
      If ActiveWorkbook.Names("TL") Is Nothing Then
        ActiveWorkbook.Names.Add "TL", "=0"
      End If
      Temp = Evaluate("TL") + .Cells.Value
      .Offset(1) = Temp
    ActiveWorkbook.Names("TL").Value = Temp
    End If
  End With
End Sub

Đửa đoạn ActiveWorkbook.Names("TL").Value = Temp lên trên End If

 

[thanhthu2004]

Cảm ơn bác ndu96081631 nhiều nhé, đúng ý em rồi. Cảm ơn cả bác BNTT vì lòng nhiệt tình!