用代码求周长

chenjj007

limonet 发表于 2024-2-5 15:12
你检讨下，第二个，是不是应该：=(12*3.1415+8)*2+11*3.1415

对，谢谢提醒，已更新

limonet

关键字：Replace+evaluate

limonet

Sub limonet()
    Dim i%, Mh As Object, S$, iMh
    With CreateObject("vbscript.regexp")
        .Pattern = "Φ(\d+)×?(\d+)?.?(\d)?(?:个)?"
        .Global = True
        For i = 2 To 5
            Set Mh = .Execute(Cells(i, "B"))
            If Mh.Count Then
                For Each iMh In Mh
                    If iMh Like "*×[1-9]*" Then
                        S = S & "+" & .Replace(iMh, "($1*3.1415" & "+($2-$1)*2)*$3")
                    Else
                        S = S & "+" & .Replace(iMh, "$1*3.1415")
                    End If
                Next
                Cells(i, "D") = Evaluate(Mid(S, 2)): S = ""
            End If
        Next i
    End With
End Sub

ykcbf1100

我就路过，有人已经解决了。

chenjj007

limonet 发表于 2024-2-5 16:31
关键字：Replace+evaluate

谢谢！！！学到了

limonet

ykcbf1100 发表于 2024-2-5 20:17
我就路过，有人已经解决了。

还好路过，我下次也路过。