String型の「計算式」の答えを求める (ID:118281)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim Rep As String Dim Temp() As String Dim i As Long Dim A As Double Rep = Replace(Text1.Text, "-", "+-") Temp = Split(Rep, "+") For i = LBound(Temp) To UBound(Temp) A = A + CDbl(Temp(i)) Next i Debug.Print A