Giúp mình hàm DSUM (1 người xem)

[trantuonganh2008]

Hi mọi người, Các bạn giúp mình sửa lại công thức này nhé:

 

[solomon2211]

Bạn dùng =SUMPRODUCT($D$4:$D$9*($G$4:$G$9="")) cho L5 xem sao

 

[trantuonganh2008]

Cám ơn Solomon, ý mình không phải vậy. Bạn thấy đấy, mình dùng hàm DSUM trong bài là tới 6 điều kiện lận. Giả sử ở F5 mình sửa lại là M930 thì tổng chỉ là 10 thôi (=L8). Nếu lấy tổng cộng trừ đi các kết quả ra kết quả còn lại thì quá dễ, nhưng mình thích cải tiến công thức hơn...hihihi. Bạn xem lại dùm mình nhé! Thân.

 

[SA_DQ]

Mình dùng hàm DSUM trong bài là tới 6 điều kiện lận. Giả sử ở F5 mình sửa lại là M930 thì tổng chỉ là 10 thôi (=L8). Nếu lấy tổng cộng trừ đi các kết quả ra kết quả còn lại thì quá dễ, nhưng mình thích cải tiến công thức hơn....

Nếu tại [L13] ta nhập hàm: =DSUM( B3:H10, D3, Q10:Q11)

Sẽ cho kết quả 25, nếu:
(*) Sửa lại các trị tại [G5], [G8] & [q11] đều mang giá trị 0 ;
(*) Kết quả sẽ như trên, nếu ta đơn giản thêm cả ba ô đều cùng 1 khoảng trắng ( Ấn lên thanh công thức & nhấn thanh lớn nhứt trên bàn phím)

 

[trantuonganh2008]

Chưa được HYen ơi! Nếu F5 sửa lại M930 thì L8 không cho kết quả. Mình có đề xuất này nhé: bạn chỉ cần viết đoạn code thêm dấu "-" vào những ô trống ở cột G là được rồi (lúc này mình chỉ cần cài dấu "-" vào điều kiện G bên tay phải là kể như xong chuyện). Vì vùng dữ liệu bên tay trái là mình export từ chương trình SAP qua nên các điều kiện ở các cột B,C,E,F,G,H có rất nhiều. À, không biết khi chạy code thì các công thức mình làm bên tay phải có bị ảnh hưởng không ha?, nếu chạy code mà vô hiệu công thức thì "huề cả làng" luôn đấy. Cám ơn HYen nhiều hen!!!

 

[trinhbacuong]

Bảo Excel thông báo khi nhập dữ liệu trùng lặp trong vùng

Xin các bạn chỉ giúp: VD Trong vùng A1:A500 để biết dữ liệu bị nhập trùng (bị lặp lại) có cách nào bảo Excel thông báo cho ta biết dự liệu này đã lặp lại lầm thứ mấy ...? được khộng (DL có thể là số, chữ hoặc ngày tháng năm).

 

[SA_DQ]

Bạn thử nghiệm với bộ đôi này xem sao

Xin các bạn chỉ giúp: VD Trong vùng A1:A500 để biết dữ liệu bị nhập trùng (bị lặp lại) có cách nào bảo Excel thông báo cho ta biết dự liệu này đã lặp lại lầm thứ mấy ...? được khộng (DL có thể là số, chữ hoặc ngày tháng năm).

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range([A9], Target)) Is Nothing And _
      Intersect(Target, Range("A1:A8")) Is Nothing Then
   Dim Rng As Range, sRng As Range, MyAdd As String, Dem As Byte
   If IsDate(Target.Value) Then
      Range("A1:A" & Target.Row).NumberFormat = "m/d/yyyy"
      ThemHang 3
   ElseIf IsNumeric(Target.Value) Then
      ThemHang 2
   Else
      ThemHang 1
   End If
   Set Rng = Range("A1:A" & Target.Row + 9)
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         Dem = Dem + 1
         Set sRng = Rng.FindNext(sRng)
         If sRng.Row = Target.Row Then Exit Do
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
   MsgBox Dem + 1, , [a1].Value
   ThemHang 9
 End If
End Sub

Sub ThemHang(Num As Byte)
 If Num < 7 Then
   Rows(1).Insert Shift:=xlDown
   [a1].Value = Choose(Num, "String", "Num", "Date")
 Else
      Rows(1).Delete
 End If
End Sub