Nhờ chỉnh sửa code tính tổng sử dụng Macro (1 người xem)

  • Thread starter Thread starter daimc
  • Ngày gửi Ngày gửi
Elx Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
D

daimc

Thành viên mới
Tham gia
10/7/15
Bài viết
9
Được thích
2
Dear all
Nhờ mọi người chỉnh sửa giúp mình code tính tổng này với. Code này trước mình xin được của 1 bác trên đây. code ở máy mình thì chạy ra kết quả bình thường không vấn đề ji. nhưng copy file excel sang file khác thì báo lỗi # Value. Mình đang nghĩ là do khác nhau về dấu chấm, dấy phẩy trong Excel của mỗi máy.

Mã: 
Function DValue(ByVal Str As String) As Double
Dim StartGroup As Long, NextStartGroup As Long, EndGroup As Long, Val As Double
If Left(Str, 1) = "=" Then Str = Mid(Str, 2)
Do
   StartGroup = InStr(StartGroup + 1, Str, "(")
   If StartGroup > 0 Then
        NextStartGroup = InStr(StartGroup + 1, Str & "(", "(")
        EndGroup = InStr(StartGroup + 1, Str, ")")
        If EndGroup < NextStartGroup Then
            Val = 0
            Str = Left(Str, StartGroup - 1) & CalculateStr(Mid(Str, StartGroup + 1, EndGroup - StartGroup - 1), Val) & Mid(Str, EndGroup + 1)
            StartGroup = 0
        Else
            StartGroup = NextStartGroup
        End If
    Else
        CalculateStr Str, DValue
        Exit Function
    End If
Loop
End Function
Mã: 
Private Function CalculateStr(ByVal Str As String, ByRef Val As Double) As String
Dim TmpStr As String, ArrStr, i As Long, TmpVal As Double, P1 As String, P2 As String
If Len(Str) < 255 Then
    If Len(Str) > 0 Then
        Val = Evaluate("=" & Str)
        CalculateStr = CStr(Val)
    End If
Else
    If InStr(1, Str, "+") > 0 Then
        ArrStr = Split(Str, "+")
        For i = 0 To UBound(ArrStr, 1)
            CalculateStr ArrStr(i), TmpVal
            Val = Val + TmpVal
        Next
    ElseIf InStr(1, Str, "-") > 0 Then
        ArrStr = Split(Str, "-")
        CalculateStr ArrStr(0), Val
        Val = Val + TmpVal
        For i = 1 To UBound(ArrStr, 1)
            CalculateStr ArrStr(i), Val
            Val = Val - TmpVal
        Next
    Else
        P1 = InStrRev(Str, "*", 254):   P2 = InStrRev(Str, "/", 254)
        i = IIf(P1 > P2, P1, P1)
        If i = 0 Then
            CalculateStr = " " * " " ' Error
        Else
            TmpVal = Evaluate("=" & Left(Str, i - 1))
            CalculateStr = CalculateStr(CStr(TmpVal) & Mid(Str, i), Val)
        End If
    End If
End If
End Function
 

File đính kèm

Của mình vẫn ra bình thường mà
223256
 
daimc đã viết:
Của mình cũng ra kết quả bình thường. Định dạng trên Excel của máy mình là dấu thấp phân là dấu phẩy "," còn hàng nghìn là dấu chấm "." nhưng 1 số máy đang bị lỗi thì đã chỉnh dấu chấm, dấy phẩy ở trên windowns. Mình đang sợ nó bị lỗi ở đó.
Nhấp chuột vào đây để mở rộng...
nếu vậy anh thử chỉnh trong phần controlpanel của máy đang bị lỗi coi thế nào
 
daimc đã viết:
Của mình cũng ra kết quả bình thường. Định dạng trên Excel của máy mình là dấu thấp phân là dấu phẩy "," còn hàng nghìn là dấu chấm "." nhưng 1 số máy đang bị lỗi thì đã chỉnh dấu chấm, dấy phẩy ở trên windowns. Mình đang sợ nó bị lỗi ở đó.
Nhấp chuột vào đây để mở rộng...
Nếu ký tự không dài quá 255 ký tự thì thử cái này xem sao.
Mã: 
Function aaaa(ByVal dk As String) As Double
    aaaa = Evaluate("=" & dk)
End Function
 
snow25 đã viết:
Nếu ký tự không dài quá 255 ký tự thì thử cái này xem sao.
Mã: 
Function aaaa(ByVal dk As String) As Double
    aaaa = Evaluate("=" & dk)
End Function
Nhấp chuột vào đây để mở rộng...
trước mình cũng dùng hàm này rồi. nhưng có những hàng quá 255 ký tự nên mình mới chuyển sang dùng code như vậy.
 
daimc đã viết:
trước mình cũng dùng hàm này rồi. nhưng có những hàng quá 255 ký tự nên mình mới chuyển sang dùng code như vậy.
Nhấp chuột vào đây để mở rộng...
Mình chỉnh 1 chút hàm ở dưới xem đúng không.Mình thấy 2 hàm này nó thế nào ấy.
Mã: 
Private Function CalculateStr(ByVal Str As String, ByRef Val As Double) As String
Dim TmpStr As String, ArrStr, i As Long, TmpVal As Double, P1 As String, P2 As String, dk As String
   dk = Replace(Str, ",", ".")
If Len(dk) < 255 Then
    If Len(dk) > 0 Then
        Val = Evaluate("=" & dk)
        CalculateStr = CStr(Val)
    End If
Else
    If InStr(1, dk, "+") > 0 Then
        ArrStr = Split(dk, "+")
        For i = 0 To UBound(ArrStr, 1)
            CalculateStr ArrStr(i), TmpVal
            Val = Val + TmpVal
        Next
    ElseIf InStr(1, dk, "-") > 0 Then
        ArrStr = Split(dk, "-")
        CalculateStr ArrStr(0), Val
        Val = Val + TmpVal
        For i = 1 To UBound(ArrStr, 1)
            CalculateStr ArrStr(i), Val
            Val = Val - TmpVal
        Next
    Else
        P1 = InStrRev(dk, "*", 254):   P2 = InStrRev(dk, "/", 254)
        i = IIf(P1 > P2, P1, P1)
        If i = 0 Then
            CalculateStr = " " * " " ' Error
        Else
            TmpVal = Evaluate("=" & Left(Str, i - 1))
            CalculateStr = CalculateStr(CStr(TmpVal) & Mid(Str, i), Val)
        End If
    End If
End If
End Function
 
snow25 đã viết:
Mình chỉnh 1 chút hàm ở dưới xem đúng không.Mình thấy 2 hàm này nó thế nào ấy.
Mã: 
Private Function CalculateStr(ByVal Str As String, ByRef Val As Double) As String
Dim TmpStr As String, ArrStr, i As Long, TmpVal As Double, P1 As String, P2 As String, dk As String
   dk = Replace(Str, ",", ".")
If Len(dk) < 255 Then
    If Len(dk) > 0 Then
        Val = Evaluate("=" & dk)
        CalculateStr = CStr(Val)
    End If
Else
    If InStr(1, dk, "+") > 0 Then
        ArrStr = Split(dk, "+")
        For i = 0 To UBound(ArrStr, 1)
            CalculateStr ArrStr(i), TmpVal
            Val = Val + TmpVal
        Next
    ElseIf InStr(1, dk, "-") > 0 Then
        ArrStr = Split(dk, "-")
        CalculateStr ArrStr(0), Val
        Val = Val + TmpVal
        For i = 1 To UBound(ArrStr, 1)
            CalculateStr ArrStr(i), Val
            Val = Val - TmpVal
        Next
    Else
        P1 = InStrRev(dk, "*", 254):   P2 = InStrRev(dk, "/", 254)
        i = IIf(P1 > P2, P1, P1)
        If i = 0 Then
            CalculateStr = " " * " " ' Error
        Else
            TmpVal = Evaluate("=" & Left(Str, i - 1))
            CalculateStr = CalculateStr(CStr(TmpVal) & Mid(Str, i), Val)
        End If
    End If
End If
End Function
Nhấp chuột vào đây để mở rộng...
Sao anh không check lấy dấu của Windows
 
daimc đã viết:
Dear all
Nhờ mọi người chỉnh sửa giúp mình code tính tổng này với. Code này trước mình xin được của 1 bác trên đây. code ở máy mình thì chạy ra kết quả bình thường không vấn đề ji. nhưng copy file excel sang file khác thì báo lỗi # Value. Mình đang nghĩ là do khác nhau về dấu chấm, dấy phẩy trong Excel của mỗi máy.

Mã: 
Function DValue(ByVal Str As String) As Double
Dim StartGroup As Long, NextStartGroup As Long, EndGroup As Long, Val As Double
If Left(Str, 1) = "=" Then Str = Mid(Str, 2)
Do
   StartGroup = InStr(StartGroup + 1, Str, "(")
   If StartGroup > 0 Then
        NextStartGroup = InStr(StartGroup + 1, Str & "(", "(")
        EndGroup = InStr(StartGroup + 1, Str, ")")
        If EndGroup < NextStartGroup Then
            Val = 0
            Str = Left(Str, StartGroup - 1) & CalculateStr(Mid(Str, StartGroup + 1, EndGroup - StartGroup - 1), Val) & Mid(Str, EndGroup + 1)
            StartGroup = 0
        Else
            StartGroup = NextStartGroup
        End If
    Else
        CalculateStr Str, DValue
        Exit Function
    End If
Loop
End Function
Mã: 
Private Function CalculateStr(ByVal Str As String, ByRef Val As Double) As String
Dim TmpStr As String, ArrStr, i As Long, TmpVal As Double, P1 As String, P2 As String
If Len(Str) < 255 Then
    If Len(Str) > 0 Then
        Val = Evaluate("=" & Str)
        CalculateStr = CStr(Val)
    End If
Else
    If InStr(1, Str, "+") > 0 Then
        ArrStr = Split(Str, "+")
        For i = 0 To UBound(ArrStr, 1)
            CalculateStr ArrStr(i), TmpVal
            Val = Val + TmpVal
        Next
    ElseIf InStr(1, Str, "-") > 0 Then
        ArrStr = Split(Str, "-")
        CalculateStr ArrStr(0), Val
        Val = Val + TmpVal
        For i = 1 To UBound(ArrStr, 1)
            CalculateStr ArrStr(i), Val
            Val = Val - TmpVal
        Next
    Else
        P1 = InStrRev(Str, "*", 254):   P2 = InStrRev(Str, "/", 254)
        i = IIf(P1 > P2, P1, P1)
        If i = 0 Then
            CalculateStr = " " * " " ' Error
        Else
            TmpVal = Evaluate("=" & Left(Str, i - 1))
            CalculateStr = CalculateStr(CStr(TmpVal) & Mid(Str, i), Val)
        End If
    End If
End If
End Function
Nhấp chuột vào đây để mở rộng...
Thử Function
Mã: 
Function DValue(ByVal Str As String) As Double
  Dim StartGroup As Long, NextStartGroup As Long, EndGroup As Long, Val As Double
  If Left(Str, 1) = "=" Then Str = Mid(Str, 2)
  Do
   If InStr(1, Str, ",") Then Str = Replace(Str, ",", ".")
   StartGroup = InStr(StartGroup + 1, Str, "(")
   If StartGroup > 0 Then
        NextStartGroup = InStr(StartGroup + 1, Str & "(", "(")
        EndGroup = InStr(StartGroup + 1, Str, ")")
        If EndGroup < NextStartGroup Then
            Val = 0
            Str = Left(Str, StartGroup - 1) & CalculateStr(Mid(Str, StartGroup + 1, EndGroup - StartGroup - 1), Val) & Mid(Str, EndGroup + 1)
            StartGroup = 0
        Else
            StartGroup = NextStartGroup
        End If
    Else
        CalculateStr Str, DValue
        Exit Function
    End If
Loop
End Function

Private Function CalculateStr(ByVal Str As String, ByRef Val As Double) As String
Dim TmpStr As String, ArrStr, i As Long, TmpVal As Double, P1 As String, P2 As String
If Len(Str) < 255 Then
    If Len(Str) > 0 Then
        Val = Evaluate("=" & Str)
        CalculateStr = CStr(Val)
    End If
Else
  For j = 255 To 2
    If InStr(1, "+-", Mid(Str, j, 1)) > 0 Then
      Val = Val + Evaluate("=" & Mid(Str, 1, j - 1))
      CalculateStr Val & Mid(Str, j), Val
    End If
  Next j
End If
End Function
 
daimc đã viết:
code ở máy mình thì chạy ra kết quả bình thường không vấn đề ji
Nhấp chuột vào đây để mở rộng...
Có vấn đề.
trước mình cũng dùng hàm này rồi. nhưng có những hàng quá 255 ký tự nên mình mới chuyển sang dùng code như vậy.
Nhấp chuột vào đây để mở rộng...
Hình như code không được đúng lắm.

Do bạn không mô tả dữ liệu nên tôi không biết cột G có dạng như thế nào. Tôi chỉ thử thôi.

Hiện tại G63 có 105 ký tự:

G63 = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)

Và H63 = 93.94.

Tôi chuyển thành (G63 có 317 ký tự):

G63 = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)

Tức lặp lại chuỗi có 105 ký tự 3 lần và cộng chúng với nhau. Tôi mong đợi H63 = 281.82. Nhưng kết quả lại là #VALUE!

Nếu tôi nhìn không nhầm thì G63 có dạng hợp lệ. Mỗi "(" có ") tương ứng.

Nguyên nhân không phải do G63 có 317 ký tự.

Ta chuyển
Mã: 
If Len(Str) > 0 Then
    Val = Evaluate("=" & Str)
    CalculateStr = CStr(Val)
End If
thành
Mã: 
If Len(Str) > 0 Then
    Debug.Print Str
    Val = Evaluate("=" & Str)
    CalculateStr = CStr(Val)
End If
và chạy code cho H63 thì trong cửa sổ Immediate sẽ có
6.68+9.39+3.9
6.68+9.39+3.9
6.68+9.39+3.9
(3.3

Rõ ràng với str = "(3.3" thì Evaluate("=" & Str) sẽ có lỗi và hàm DValue sẽ kết thúc với kết quả là #VALUE!

Nếu ta có G63 (65 ký tự):

G63 = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2) thì H63 = 59.23.

Bây giờ đổi thành (329 ký tự):

G63 = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)

Tức cộng 5 đoạn ngắn 65 ký tự. Ta mong đợi kết quả H63 = 5*59.23 = 296.15. Và ta nhận được. H63 = 296.15.

Vậy ở trên sai không phải do ký tự quá nhiều.

Sợ nhất là những code cho kết quả "may, rủi". Vì không biết lúc nào "rủi" để mà xử lý. :D
 
batman1 đã viết:
Có vấn đề.

Hình như code không được đúng lắm.

Do bạn không mô tả dữ liệu nên tôi không biết cột G có dạng như thế nào. Tôi chỉ thử thôi.

Hiện tại G63 có 105 ký tự:

G63 = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)

Và H63 = 93.94.

Tôi chuyển thành (G63 có 317 ký tự):

G63 = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)

Tức lặp lại chuỗi có 105 ký tự 3 lần và cộng chúng với nhau. Tôi mong đợi H63 = 281.82. Nhưng kết quả lại là #VALUE!

Nếu tôi nhìn không nhầm thì G63 có dạng hợp lệ. Mỗi "(" có ") tương ứng.

Nguyên nhân không phải do G63 có 317 ký tự.

Ta chuyển
Mã: 
If Len(Str) > 0 Then
    Val = Evaluate("=" & Str)
    CalculateStr = CStr(Val)
End If
thành
Mã: 
If Len(Str) > 0 Then
    Debug.Print Str
    Val = Evaluate("=" & Str)
    CalculateStr = CStr(Val)
End If
và chạy code cho H63 thì trong cửa sổ Immediate sẽ có
6.68+9.39+3.9
6.68+9.39+3.9
6.68+9.39+3.9
(3.3

Rõ ràng với str = "(3.3" thì Evaluate("=" & Str) sẽ có lỗi và hàm DValue sẽ kết thúc với kết quả là #VALUE!

Nếu ta có G63 (65 ký tự):

G63 = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2) thì H63 = 59.23.

Bây giờ đổi thành (329 ký tự):

G63 = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2)

Tức cộng 5 đoạn ngắn 65 ký tự. Ta mong đợi kết quả H63 = 5*59.23 = 296.15. Và ta nhận được. H63 = 296.15.

Vậy ở trên sai không phải do ký tự quá nhiều.

Sợ nhất là những code cho kết quả "may, rủi". Vì không biết lúc nào "rủi" để mà xử lý. :D
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác đã chỉ ra cái sai, cái không đúng khi chạy code ko ra kết quả chính xác. mình đã thử lại, thì đúng là như vậy. vậy Bác có thế fix giúp code này được không? mình cảm ơn nhiều.

223291
 
HieuCD đã viết:
Thử Function
Mã: 
Function DValue(ByVal Str As String) As Double
  Dim StartGroup As Long, NextStartGroup As Long, EndGroup As Long, Val As Double
  If Left(Str, 1) = "=" Then Str = Mid(Str, 2)
  Do
   If InStr(1, Str, ",") Then Str = Replace(Str, ",", ".")
   StartGroup = InStr(StartGroup + 1, Str, "(")
   If StartGroup > 0 Then
        NextStartGroup = InStr(StartGroup + 1, Str & "(", "(")
        EndGroup = InStr(StartGroup + 1, Str, ")")
        If EndGroup < NextStartGroup Then
            Val = 0
            Str = Left(Str, StartGroup - 1) & CalculateStr(Mid(Str, StartGroup + 1, EndGroup - StartGroup - 1), Val) & Mid(Str, EndGroup + 1)
            StartGroup = 0
        Else
            StartGroup = NextStartGroup
        End If
    Else
        CalculateStr Str, DValue
        Exit Function
    End If
Loop
End Function

Private Function CalculateStr(ByVal Str As String, ByRef Val As Double) As String
Dim TmpStr As String, ArrStr, i As Long, TmpVal As Double, P1 As String, P2 As String
If Len(Str) < 255 Then
    If Len(Str) > 0 Then
        Val = Evaluate("=" & Str)
        CalculateStr = CStr(Val)
    End If
Else
  For j = 255 To 2
    If InStr(1, "+-", Mid(Str, j, 1)) > 0 Then
      Val = Val + Evaluate("=" & Mid(Str, 1, j - 1))
      CalculateStr Val & Mid(Str, j), Val
    End If
  Next j
End If
End Function
Nhấp chuột vào đây để mở rộng...

Mình đã thử code . nhưng có 1 vấn đề đó là khi chuỗi nhiều hơn 352 ký tự mà sự dụng nhiều ngoặc "(", ")" thì sẽ trả kể quả về giá trị "0".
thanks

223294
 
daimc đã viết:
Mình đã thử code . nhưng có 1 vấn đề đó là khi chuỗi nhiều hơn 352 ký tự mà sự dụng nhiều ngoặc "(", ")" thì sẽ trả kể quả về giá trị "0".
Cảm ơn

View attachment 223294
Nhấp chuột vào đây để mở rộng...
Rút gọn Function
Mã: 
Function DValue(ByVal Str As String) As Double
  Dim StartGroup As Long, NextStartGroup As Long, EndGroup As Long, Val As Double
  If Len(Str) = 0 Then Exit Function
  If Left(Str, 1) = "=" Then Str = Mid(Str, 2)
  Do
    If InStr(1, Str, ",") Then Str = Replace(Str, ",", ".")
    StartGroup = InStr(StartGroup + 1, Str, "(")
    If StartGroup > 0 Then
        NextStartGroup = InStr(StartGroup + 1, Str & "(", "(")
        EndGroup = InStr(StartGroup + 1, Str, ")")
        If EndGroup < NextStartGroup Then
            Val = 0
            Str = Left(Str, StartGroup - 1) & CalculateStr(Mid(Str, StartGroup + 1, EndGroup - StartGroup - 1), Val) & Mid(Str, EndGroup + 1)
            StartGroup = 0
        Else
            StartGroup = NextStartGroup
        End If
      Else
        CalculateStr Str, DValue
        Exit Function
    End If
  Loop
End Function

Private Function CalculateStr(ByVal Str As String, ByRef Val As Double) As String
  Dim j As Long
  Do While Len(Str) >= 255
    For j = 255 To 2 Step -1
      If InStr(1, "+-", Mid(Str, j, 1)) > 0 Then
        Val = Evaluate("=" & Mid(Str, 1, j - 1))
        Str = Val & Mid(Str, j)
        Exit For
      End If
    Next j
  Loop
  Val = Evaluate("=" & Str)
  CalculateStr = CStr(Val)
End Function
 
Chưa chuẩn. :D

Chắc chắn có lỗi vd. với

G63 ( 317 ký tự)) = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)

Nhưng cũng chả cần dài thế. Chắc chắn có lỗi vd. với

G63 (258 ký tự) =
3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2*2+2.07+3.82+2.21+1.02+19.97+3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2*2+2.07+3.82+2.21+1.02+19.97+3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+((1+3)*7-2.45)
 
batman1 đã viết:
Chưa chuẩn. :D

Chắc chắn có lỗi vd. với

G63 ( 317 ký tự)) = (3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)+(3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+(5.42+0.2)*2+2.07+3.82+2.21+1.02)+(6.68+9.39+3.9)

Nhưng cũng chả cần dài thế. Chắc chắn có lỗi vd. với

G63 (258 ký tự) =
3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2*2+2.07+3.82+2.21+1.02+19.97+3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+0.2*2+2.07+3.82+2.21+1.02+19.97+3.3+0.7+5.03+2.5*2+2+7.45+2*2+4.15*2+2+12.88+1.48+1.47+5.42+((1+3)*7-2.45)
Nhấp chuột vào đây để mở rộng...
Cắt bớt các lệnh không cần
Mã: 
Function DValue(ByVal Str As String) As Double
  Dim StartGroup As Long, NextStartGroup As Long, EndGroup As Long
  If Len(Str) = 0 Then Exit Function
  If Left(Str, 1) = "=" Then Str = Mid(Str, 2)
  Do
    If InStr(1, Str, ",") Then Str = Replace(Str, ",", ".")
    StartGroup = InStr(StartGroup + 1, Str, "(")
    If StartGroup > 0 Then
        NextStartGroup = InStr(StartGroup + 1, Str & "(", "(")
        EndGroup = InStr(StartGroup + 1, Str, ")")
        If EndGroup < NextStartGroup Then
            Str = Left(Str, StartGroup - 1) & CalculateStr(Mid(Str, StartGroup + 1, EndGroup - StartGroup - 1)) & Mid(Str, EndGroup + 1)
            StartGroup = 0
        End If
    Else
        DValue = CalculateStr(Str)
        Exit Function
    End If
  Loop
End Function

Private Function CalculateStr(ByVal Str As String) As String
  Dim j As Long, Val As Double
  Do While Len(Str) >= 255
    For j = 255 To 2 Step -1
      If InStr(1, "+-", Mid(Str, j, 1)) > 0 Then
        Val = Evaluate("=" & Mid(Str, 1, j - 1))
        Str = Val & Mid(Str, j)
        Exit For
      End If
    Next j
  Loop
  CalculateStr = CStr(Evaluate("=" & Str))
End Function
 
HieuCD đã viết:
Cắt bớt các lệnh không cần
Mã: 
Function DValue(ByVal Str As String) As Double
  Dim StartGroup As Long, NextStartGroup As Long, EndGroup As Long
  If Len(Str) = 0 Then Exit Function
  If Left(Str, 1) = "=" Then Str = Mid(Str, 2)
  Do
    If InStr(1, Str, ",") Then Str = Replace(Str, ",", ".")
    StartGroup = InStr(StartGroup + 1, Str, "(")
    If StartGroup > 0 Then
        NextStartGroup = InStr(StartGroup + 1, Str & "(", "(")
        EndGroup = InStr(StartGroup + 1, Str, ")")
        If EndGroup < NextStartGroup Then
            Str = Left(Str, StartGroup - 1) & CalculateStr(Mid(Str, StartGroup + 1, EndGroup - StartGroup - 1)) & Mid(Str, EndGroup + 1)
            StartGroup = 0
        End If
    Else
        DValue = CalculateStr(Str)
        Exit Function
    End If
  Loop
End Function

Private Function CalculateStr(ByVal Str As String) As String
  Dim j As Long, Val As Double
  Do While Len(Str) >= 255
    For j = 255 To 2 Step -1
      If InStr(1, "+-", Mid(Str, j, 1)) > 0 Then
        Val = Evaluate("=" & Mid(Str, 1, j - 1))
        Str = Val & Mid(Str, j)
        Exit For
      End If
    Next j
  Loop
  CalculateStr = CStr(Evaluate("=" & Str))
End Function
Nhấp chuột vào đây để mở rộng...
Cảm ơn Bác. mình đang chạy thử code này thì thấy fix được lỗi phân biệt dấu chấm, dấu phẩy trên máy khác. và fix đc lỗi vượt quá số lượng 352 ký tự trong chuỗi.
223316
 
Chắc chắn đây là lần lưu ý cuối cùng. :D

Có 1 trường hợp tôi cho là khó sảy ra. Khó sảy ra hay chắc chắn không sảy ra thì khó nói vì chủ thớt không mô tả dữ liệu. Không biết các dãy dài tùy ý được tạo như thế nào, các dạng có thể có.

Trường hợp khó sảy ra trong thực tế nhưng về lý thuyết có thể sảy ra. Việc sửa code để xử lý cả trường hợp này là rất dễ vì chỉ cần xét thêm trường hợp này.

Trường hợp nào? Khi ta có (260 ký tự):

G63 = 1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35

thì code "đơ" và không có kết quả.
 
batman1 đã viết:
Chắc chắn đây là lần lưu ý cuối cùng. :D

Có 1 trường hợp tôi cho là khó sảy ra. Khó sảy ra hay chắc chắn không sảy ra thì khó nói vì chủ thớt không mô tả dữ liệu. Không biết các dãy dài tùy ý được tạo như thế nào, các dạng có thể có.

Trường hợp khó sảy ra trong thực tế nhưng về lý thuyết có thể sảy ra. Việc sửa code để xử lý cả trường hợp này là rất dễ vì chỉ cần xét thêm trường hợp này.

Trường hợp nào? Khi ta có (260 ký tự):

G63 = 1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35

thì code "đơ" và không có kết quả.
Nhấp chuột vào đây để mở rộng...
Mình đã nghĩ đến tình huống nầy và các tình huống khác như "/", "^" ... , nhưng không xét vì không muốn viết cho tất cả tình huống có thể xảy ra với xác suất hầu như bằng 0 trong các bài toán bình thường
 
batman1 đã viết:
Chắc chắn đây là lần lưu ý cuối cùng. :D

Có 1 trường hợp tôi cho là khó sảy ra. Khó sảy ra hay chắc chắn không sảy ra thì khó nói vì chủ thớt không mô tả dữ liệu. Không biết các dãy dài tùy ý được tạo như thế nào, các dạng có thể có.

Trường hợp khó sảy ra trong thực tế nhưng về lý thuyết có thể sảy ra. Việc sửa code để xử lý cả trường hợp này là rất dễ vì chỉ cần xét thêm trường hợp này.

Trường hợp nào? Khi ta có (260 ký tự):

G63 = 1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35*1*4*0.35

thì code "đơ" và không có kết quả.
Nhấp chuột vào đây để mở rộng...
Cảm ơn Bác đã check code và đưa các trường hợp xảy ra để xử lý lỗi.
Dữ liệu của ổ G63: là phép tính tổng khối lượng của các đoạn cáp điện từ tủ đến đèn, từ đèn này qua đèn khác.( có những đoạn lặp lại thì nhân 2 hoặc 3).
Đúng là trường hợp tất cả phép tính đều nhân như kia thì sẽ không xảy ra, nhưng dù sao cũng cảm ơn bác, mình sẽ chú ý khi sử dụng code.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

A
  • Question Question
Sửa code VBA nhập liệu userform
Trả lời
25
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (9 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
556
Đọc
72K
sát thủ uyên ương
S
C
Fix lỗi Application.InputBox Type:=8 (2 người xem)
    • Cười
Trả lời
6
Đọc
111
SA_DQ
SA_DQ
Emyeuexcel
Tham chiếu về 1 ô-lấy ra và lọc dữ liệu (4 người xem)
Trả lời
5
Đọc
96
Emyeuexcel
Emyeuexcel
L
Hỏi lỗi excel bị tràn trang khi in (2 người xem)
Trả lời
3
Đọc
74
Hoàng Tuấn 868
H
E
  • Question Question
VBA tự động thay đổi tham chiếu vùng (range và cell) khi insert dòng cột trong sheet tính toán (1 người xem)
    • Cười
Trả lời
5
Đọc
124
eagle12
E
D
Tổng hợp dữ liệu từ các sheet sang sheet tổng (1 người xem)
Trả lời
3
Đọc
148
dohungmo
D
T
font chu trong excel (1 người xem)
Trả lời
2
Đọc
73
Hoàng Tuấn 868
H
khuong182018
  • Question Question
Nhờ anh chị sửa lỗi setfocus ở textbox
Trả lời
9
Đọc
165
khuong182018
khuong182018
N
File chia băng tự động từ cuộn mẹ theo khổ băng và khối lượng băng cho trước
Trả lời
0
Đọc
43
nguyenanhtruong2409
N
SA_DQ
Copilot bình luận về một ván cờ vua (1 người xem)
Trả lời
0
Đọc
76
SA_DQ
SA_DQ
T
Xin giúp đỡ lọc dữ liệu
    • Cười
Trả lời
4
Đọc
114
pycckuu410
pycckuu410
Nguyễn Duy Tuân
[New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA (2 người xem)
    • Thích
Trả lời
13
Đọc
4K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
H
  • Question Question
Code Sổ Chi Tiết Tài Khoản (2 người xem)
Trả lời
8
Đọc
328
hieuvietmy2020
H
befaint
Chia sẻ tâm tư, xả nỗi lòng (4 người xem)
    • Thích
6 7 8
Trả lời
778
Đọc
75K
SA_DQ
SA_DQ
H
Chia sẻ file in Phiếu điều tra PCGD (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
12
Đọc
446
HUONGHCKT
H
V
Hỏi công thức để làm khối lượng trong xây dựng. Xin cảm ơn (1 người xem)
Trả lời
11
Đọc
525
phanphu_91
P
Linhnv0001
Hỏi - Cách kiểm tra laptop là hàng lắp ráp hay không
Trả lời
3
Đọc
275
Lê Duy Thương
Lê Duy Thương
K
Nhờ anh chị làm công thức lọc dữ kiện ngày từ bảng 1 sang rút gọn ngày ở bảng 2.
Trả lời
2
Đọc
188
Lê Duy Thương
Lê Duy Thương
L
[Mẹo] Không chọn Add-in vẫn có thể sử dụng được chức năng của Add-in, giảm tốc độ loading của Excel.
    • Thích
Trả lời
2
Đọc
498
HeSanbi
HeSanbi
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom