Nhờ giúp đỡ cộng dữ liệu trong các cell có đánh dấu mầu

[trankhai]

Nhờ các bậc tiền bối giúp đỡ em cách dùng hàm để cộng các dữ liệu trong ô có đánh dấu màu đỏ, kết quả để ở cell mầu vàng có file kèm theo.
Xin chân thành cảm ơn!
Trần Khải

 

[ndu96081631]

Nhờ các bậc tiền bối giúp đỡ em cách dùng hàm để cộng các dữ liệu trong ô có đánh dấu màu đỏ, kết quả để ở cell mầu vàng có file kèm theo.
Xin chân thành cảm ơn!
Trần Khải

Cái này ăn chắc phải dùng VBA!
Thật ra không phải là làm không được, có điều tôi chả thấy ai chơi cái văn bản kỳ cục đến thế!

 

[tusydo]

Trước tiên bạn phải tính ra số cụ thể ở những ô màu đỏ (chú ý dấu phẩy và dấu chấm thập phân tùy theo thiết lập của máy bạn), sau đó trong ô màu vàng dùng hàm Sum(, , ,)--> done !
Tham khảo thêm những hàm số thông dụng...

 

[trankhai]

Ý em ở đây là có rất nhiều dữ liệu trong các cell và tính phức tạp của nó rất nhiều, các cell đó không được thay đổi kết cấu, làm thế nào để cộng dữ liệu trong các cell có chứ mầu đỏ. chứ không thể dùng như bác tusydo được như thế em dùng tay còn hơn. vì dữ liệu của em nhiều không thể dùng tay được nên mới nhờ các bác giúp đỡ cho em đỡ khổ

 

[salam]

Ý em ở đây là có rất nhiều dữ liệu trong các cell và tính phức tạp của nó rất nhiều, các cell đó không được thay đổi kết cấu, làm thế nào để cộng dữ liệu trong các cell có chứ mầu đỏ. chứ không thể dùng như bác tusydo được như thế em dùng tay còn hơn. vì dữ liệu của em nhiều không thể dùng tay được nên mới nhờ các bác giúp đỡ cho em đỡ khổ

Theo mình làm thêm cột phụ.

 

[huuthang_bd]

Nhờ các bậc tiền bối giúp đỡ em cách dùng hàm để cộng các dữ liệu trong ô có đánh dấu màu đỏ, kết quả để ở cell mầu vàng có file kèm theo.
Xin chân thành cảm ơn!
Trần Khải

Khi thiết kế file này có lẽ rất mất thời gian. Nhưng tổng hợp số liệu với file này chắc cũng mất thời gian không kém. Bạn nên thiết kế lại Form đi. Cho cả sau này nữa chứ không chỉ lần này.

 

[thiennx]

Cái file bạn tran khai gửi lên đấy chính là phần mền tính dự toán xây dựng viết để chạy trên nền excel. Họ dùng VBA để viết, bạn search phần mềm dự toán 2002 về cài vào là chạy ngon lành, khỏi mất công tìm hiểu

 

[trankhai]

Cảm ơn bác salam đã trợ giũp, đúng là cái file đó là một phần của dự toán, nhưng vì máy tôi không có dự toán acit 2007, với lại tôi chỉ để kiểm tra lại số liệu những file số liệu đã bị #REF! thôi.
Xin chân thành cảm ơn các bác đã có ý kiến.

 

[SA_DQ]

Bạn thử với macro này xem sao

Option Explicit
Sub SumFromText()
 Dim eRw As Long:                               Dim VTr As Byte, VTr2 As Byte
 Dim RngC As Range, RngD As Range, Rng As Range, Clls As Range
 Dim KhLg As Double, Temp As Double:            Dim sNum As String
 Const Bg As String = "=":                      Const Ph As String = ","
 
 eRw = [B65500].End(xlUp).Row + 1
 Cells(eRw, "A").Value = "GPE"
 Set RngC = [B1]
 Do
   Set RngD = RngC.Offset(1, -1).End(xlDown).Offset(-1, 1)
   If RngD.Row > 65500 Then Exit Do
   Set Rng = Range(RngC.Offset(1), RngD)
   For Each Clls In Rng
      VTr = InStr(Clls.Value, Bg)
      If VTr > 0 Then
         sNum = Mid(Clls.Value, VTr + 1)
         If sNum <> "0" Then
            VTr2 = InStr(sNum, Ph)
            If VTr2 > 0 Then
               KhLg = KhLg + CDbl(Left(sNum, VTr2 - 1)) + _
                  CDbl(Mid(sNum, VTr2 + 1)) / 10 ^ (Len(Mid(sNum, VTr2 + 1)))
            Else
               KhLg = KhLg + CDbl(sNum)
            End If
         End If
      End If
   Next Clls
   RngC.Offset(1, 2).Value = KhLg
   KhLg = 0:                                    Set RngC = RngD
 Loop
 Cells(eRw, "A").Value = ""
End Sub

 

[hoangdanh282vn]

Mình Sử dụng 1 cột phụ cho đơn giản.
Bạn nhớ viết đúng ký tự phân cách thập phân nha và phân cách phần nghìn nha.

 

[ndu96081631]

Làm cho bạn 1 hàm tự tạo luôn đây!

Function SumCF(Vung As Range, Mau As Long) As Double
  Dim i As Long, Clls As Range, Temp As String
  On Error Resume Next
  For Each Clls In Vung
    Temp = ""
    For i = 1 To Len(Clls)
      If Clls.Characters(i, 1).Font.ColorIndex = Mau Then
        Temp = Temp & Mid(Clls, i, 1)
      End If
    Next i
    SumCF = SumCF + CDbl(Replace(Temp, ",", Application.International(3)))
  Next Clls
End Function

Mấy công thức các bạn làm ở trên chẳng thấy cái nào liên quan đến màu sắc cả, vì tác giả có nói rằng:

Nhờ các bậc tiền bối giúp đỡ em cách dùng hàm để cộng các dữ liệu trong ô có đánh dấu màu đỏ, kết quả để ở cell mầu vàng có file kèm theo.
Xin chân thành cảm ơn!
Trần Khải