Bạn thử code ở #34 đi. Mình chạy thấy OKHay thì em like mà bác. Bác xem file em up lên để hỏi chưa? vì cái mình cần sum là sum ở cột A luôn. Mà chuỗi diễn giải này hình như còn ở dạng Text. Thầy SwisTom xem giùm em vấn đề này với
Nghĩa là bạn không muốn hiện Kết quả ở cột B hay cột C mà SUM lên luôn?Nếu em theo bài 34 thì cũng phải dùng công đoạn tô màu chữ trắng và sum lại. Nhưng điều em hỏi ở đây là nếu chuyển chuỗi thành số và sum như file em đính kèm thì code sẽ như thế nào? 1 công việc nào đó (ví dụ như gia công cốt thép D>18) thì trong đó gồm nhiều thành phần làm những công việc đó như Tường, móng .. (cái này bác dân xây dựng nên bít chắc mà). Mong bác Tom giúp em bài 36
Chính xác là thế bác ạ, đành chờ lúc nào đó thầy Tom rãnh rỗi làm giúp vậy
Chính xác là thế bác ạ, đành chờ lúc nào đó thầy Tom rãnh rỗi làm giúp vậy
=SUM(--MID(A13:A15;FIND("=";A13:A15)+1;LEN(A13:A15)))=[B][COLOR=#0000ff]MySumRange[/COLOR][/B](A13:A15)Private Sub Worksheet_Change(ByVal Target As Range)
Dim expression As String, result As Double
If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
If Target.Count = 1 Then
If Target.Value <> "" Then
If InStr(Target, ":") > 0 Then
expression = Trim(Split(Target.Value, ":")(1))
Else
expression = Trim(Target.Value)
End If
expression = Replace(expression, ",", ".")
Application.EnableEvents = False
On Error GoTo end_
result = Evaluate(expression)
' [B][COLOR=#ff0000]Target.Offset(, 1).Value = result[/COLOR][/B]
Target.Value = Trim(Target.Value) & " = " & FormatWithComma(result)
End If
End If
End If
end_:
Application.EnableEvents = True
End SubFunction FormatWithComma(ByVal number As Double) As String
Dim text As String, result As String
text = Format(2001 / 2, "#,##0.0")
result = Format(number, "#,##0.0##")
If Mid(text, 6, 1) = "," Then
FormatWithComma = Replace(result, Mid(text, 2, 1), ".")
Else
result = Replace(result, ".", "@")
result = Replace(result, Mid(text, 2, 1), ".")
FormatWithComma = Replace(result, "@", ",")
End If
End Function
Function [B][COLOR=#0000ff]MySumRange[/COLOR][/B](rng As Range) As Double
Dim cell As Range, pos As Long, text As String, result As Double
For Each cell In rng
text = cell.Value
pos = InStr(1, text, "=")
If pos > 0 Then result = result + Trim(Mid(text, pos + 1))
Next
MySumRange = result
End FunctionÝ em là dạng chuỗi đó sau khi diễn giải và enter sẽ thành Value. Như file ví dụ em đưa lên, khi em gõ + Tường: 5*10*3*0,5 = 75 thì kết qua 75 này là dạng value chứ không phải dạng text, và code có thể sum như tính toán trong file ví dụ em đưa lên.
Càng giải thích càng rối. Làm y chang theo file ví dụ của bạn vậy.
Bạn chỉ gõ + Tường: 5*10*3*0,5 còn = 75 là code thêm vào chứ bạn có gõ đâu mà nói
Trình bầy cẩu thả thế thì rất mệt cho người khác.
Dạ cái đoạn = 75 là code thêm code thêm vào. Em chỉ diễn giải ở kích thước, còn kết quả là code thêm vào. Nhưng ý em là mún phần diễn giải đó sau khi enter sẽ là giá trị chứ không phải text. Thầy thông cảm, hic phần thuyết trình diễn giải của em kém quá làm thầy ko hiểu và mệt hơn
Dạ sory thầy vì phần diễn giải của em kém quá nên làm thầy và mọi người không hiểu. Nếu nói đúng thì là: Phần diễn giải khối lượng đó sau khi kết thúc sẽ thành value). Còn phần tự auto sum thì tốt hơn thay vì phải nhấn button. Cảm ơn vì lời thầy nhắc nhở
Private Sub Worksheet_Change(ByVal Target As Range)
Dim expression As String, Result As Double
If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
If Target.Count = 1 Then
If Target.Value <> "" Then
If InStr(Target, ":") > 0 Then
expression = Trim(Split(Target.Value, ":")(1))
Else
expression = Trim(Target.Value)
End If
expression = Replace(expression, ",", ".")
Application.EnableEvents = False
On Error GoTo end_
Result = Evaluate(expression) 'Target.Offset(, 1).Value = result
Target.Value = "'" & Trim(Target.Value) & " = " & FormatWithComma(Result)
ToSumRange Target
End If
End If
End If
end_:
Application.EnableEvents = True
End Sub
''-----------------------------------------------------------------------
Private Function FormatWithComma(ByVal number As Double) As String
Dim text As String, Result As String
text = Format(2001 / 2, "#,##0.0")
Result = Format(number, "#,##0.0##")
If Mid(text, 6, 1) = "," Then
FormatWithComma = Replace(Result, Mid(text, 2, 1), ".")
Else
Result = Replace(Result, ".", "@")
Result = Replace(Result, Mid(text, 2, 1), ".")
FormatWithComma = Replace(Result, "@", ",")
End If
End Function
''-----------------------------------------------------------------------
Private Sub ToSumRange(taR As Range)
Dim k As Long, pos As Long, text As String, Result As Double
i = 0
text = taR.Offset(i).Value
pos = InStr(1, text, "=")
Do While pos > 0
text = Replace(Replace(Trim(Mid(text, pos + 1)), ".", ""), ",", ".")
Result = Result + Val(text)
i = i - 1
text = taR.Offset(i).Value
pos = InStr(1, text, "=")
Loop
k = i
i = 1
text = taR.Offset(i).Value
pos = InStr(1, text, "=")
Do While pos > 0
text = Replace(Replace(Trim(Mid(text, pos + 1)), ".", ""), ",", ".")
Result = Result + Val(text)
i = i + 1
text = taR.Offset(i).Value
pos = InStr(1, text, "=")
Loop
taR.Offset(k, 2) = Result
End Sub
(lớn rồi không biết quy định số của Việt Nam đi xuống lớp 1 học lại đi ke...ke..) cách diễn giải này được ứng dụng nhiều mà thầy. Năm 2014 rồi, xe thì ra đủ loại, tại sao mình ko chọn xe nhanh để đi mà lại đi xe đạp nhi (cái này cũng tùy người nghĩ vì xe đạp chậm mà chắc, nhanh thì đôi lúc cũng dễ té nhỉ ). TK thầy nhiều.Chỉ cần chú thích lên Sheet quy định bắt buộc gõ thập phân dấu gì, phân cách hàng hàng dấu gì sau text là dấu gì cho khỏe gõ lung tung ai biết đường đâu mà lần
Mình nhớ là không có trích lại chắc bị lỗi gì rồi bây giờ mình mới vào mới thấy, có gì bạn đừng hiểu lầm nhen
File nay hay đó chỉ có điều là fonts chữ lại dùng VNI-Times nên không chuẩn fonts
Bạn ơi bạn có thể sửa code trên để dấu bằng và số kết quả tính có màu đỏ y trang như phần mềm dự toán được không.
