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

名前

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

本文 スクリプトを使う方法があるんだけど、あえてAPIを使う方法を^^; Form1にText1とText2があって、Command1をクリックするとText1の 式の答えがText2に表示されるものです。 Option Explicit Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long Private Sub Command1_Click() ExecuteLine "var=" & Text1.Text & ":Form1.Text2.Text=var" End Sub Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0 End Function