Cần giúp viết công thức cộng các ô với nhau mà không cộng (Bỏ qua) các ô có tô đậm (1 người xem)

[hung2412]

Chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Cần giúp viết công thức đặt tại ô B18 cộng các ô từ ô B3 đến ô B17 với nhau mà không cộng (Bỏ qua) các ô có tô đậm.
Ví dụ: Đặt công thức tại ô B18 cộng các ô từ ô B3 đến ô B17 mà không cộng các ô B7, B13, B15 (Vì 3 ô này có tô đậm).
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[mhung12005]

Chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Cần giúp viết công thức đặt tại ô B18 cộng các ô từ ô B3 đến ô B17 với nhau mà không cộng (Bỏ qua) các ô có tô đậm.
Ví dụ: Đặt công thức tại ô B18 cộng các ô từ ô B3 đến ô B17 mà không cộng các ô B7, B13, B15 (Vì 3 ô này có tô đậm).
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

Yêu cầu của bạn theo mình biết thì công thức không làm đc bạn ạ.

Chỉ có thể là VBA hoặc chí ít cũng phải dùng hàm Macro4 mới đc. (mà dùng Macro4 thà dùng VBA cho rồi, đàng nào cũng phải Enable Macro )

 

[hung2412]

Cần giúp viết công thức cộng các ô với nhau mà không cộng các ô có số in nghiêng

Chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Cần giúp viết công thức đặt tại ô B18 cộng các ô từ ô B3 đến ô B17 với nhau mà không cộng (Bỏ qua) các ô có số in nghiêng.
Ví dụ: Đặt công thức tại ô B18 cộng các ô từ ô B3 đến ô B17 mà không cộng các ô B4, B8, B11, B14, B15 (Vì 5 ô này có số in nghiêng).
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[hung2412]

Yêu cầu của bạn theo mình biết thì công thức không làm đc bạn ạ.

Chỉ có thể là VBA hoặc chí ít cũng phải dùng hàm Macro4 mới đc. (mà dùng Macro4 thà dùng VBA cho rồi, đàng nào cũng phải Enable Macro )

Cách nào cũng được bạn ạ. Bạn biết thì chỉ cho tôi với.

 

[hophoang]

Chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Cần giúp viết công thức đặt tại ô B18 cộng các ô từ ô B3 đến ô B17 với nhau mà không cộng (Bỏ qua) các ô có số in nghiêng.
Ví dụ: Đặt công thức tại ô B18 cộng các ô từ ô B3 đến ô B17 mà không cộng các ô B4, B8, B11, B14, B15 (Vì 5 ô này có số in nghiêng).
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

Bạn tham khảo ở đây
http://www.giaiphapexcel.com/forum/...với-nhau-mà-không-cộng-các-ô-có-số-in-nghiêng

 

[gtri]

Chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Cần giúp viết công thức đặt tại ô B18 cộng các ô từ ô B3 đến ô B17 với nhau mà không cộng (Bỏ qua) các ô có tô đậm.
Ví dụ: Đặt công thức tại ô B18 cộng các ô từ ô B3 đến ô B17 mà không cộng các ô B7, B13, B15 (Vì 3 ô này có tô đậm).
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

Dùng Vba thì thử hàm này xem sao

Public Function CDB(DL As Range)
Dim r As Long, c As Long

For r = 1 To DL.Rows.Count
For c = 1 To DL.Columns.Count
If DL(r, c).Font.Bold = False Then
CDB = CDB + DL(r, c)
End If
Next c
Next r

End Function

 

[hung2412]

Bạn tham khảo ở đây
http://www.giaiphapexcel.com/forum/...với-nhau-mà-không-cộng-các-ô-có-số-in-nghiêng

Tôi bấm link thì sang trang mới bảo là "Địa chỉ đề tài không đúng" bạn ạ.

 

[Quang_Hải]

Chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Cần giúp viết công thức đặt tại ô B18 cộng các ô từ ô B3 đến ô B17 với nhau mà không cộng (Bỏ qua) các ô có số in nghiêng.
Ví dụ: Đặt công thức tại ô B18 cộng các ô từ ô B3 đến ô B17 mà không cộng các ô B4, B8, B11, B14, B15 (Vì 5 ô này có số in nghiêng).
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

Sub Main()
Dim Kq(), Data As Range
Set Data = Range("B3:B17")
MySum Data, Kq()
[B18] = "= Sum(" & Join(Kq, ",") & ")"
End Sub
Sub MySum(Arr As Range, Res())
Dim i As Long, n
For i = 1 To Arr.Count
   If Chk(Arr(i, 1)) Then
      n = n + 1
      ReDim Preserve Res(1 To n)
      Res(n) = Arr(i, 1).Address(0, 0)
   End If
Next
End Sub
Function Chk(cell As Range) As Boolean
Chk = cell.Font.Italic = False
End Function