文字列を数式に変換したいのですが

Excelで例えば
『sin(A1)』
と書かれた文字列を
"=sin(A1)"
のように数式に変換することはできるのでしょうか。

No.4 ベストアンサー 回答者： imogasi 回答日時： 2002/11/11 19:17

VBAで

Sub test02()
For i = 1 To 4
a = Cells(i, 2)
Cells(i, 3).Formula = "=" & a
Next i
End Sub
（A)　　　（B)　　　（C）　　　　　　　（D）
1sin(a1)0.8414709850.841470985
2sin(a2)0.9092974270.909297427
0.523598667sin(a3)0.4999999060.499999906
2.71828log(a4)0.434294190.43429419
でテストしました。D列は普通に=sin(a1),=log(a4)
などといれたものです。

この回答へのお礼

ありがとうございました。解決しました。

お礼日時：2002/11/12 19:31

No.5 回答者： kazuhiko5681 回答日時： 2002/11/11 19:21

初めまして。

サンプルマクロを組んでみました。次のように操作してみて下さい。

・新規ブックを開き、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させ、画面左上のVBAProjectと書かれている下のSheet1をダブルクリックして表示された画面の右側の白い部分に下記のコードをコピー＆ペーストする。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim b As Double
Dim a As Integer
Dim pi As Double
Dim myRow As Integer

If Target.Column <> 1 then exit sub
　　Application.EnableEvents = False
a = Target.Value
pi = 4 * Atn(1)
b = a * (pi / 180)
Target.Offset(0,1).Value = Sin(b)
Application.EnableEvents = True

End Sub

ＡＬＴ＋Ｆ１１キーを押してエクセル画面にもどり、Ａ１に求めたい度数を入力して下さい。Ａ１を抜けた時点でマクロが走り、サインの答えがＢ１に表示されると思います。

お試しになってみて下さい。

この回答へのお礼

ありがとうございました。解決しました。

お礼日時：2002/11/12 19:30

No.3 回答者： bugmaru 回答日時： 2002/11/11 18:54

文字列の置き換えで、"sin"を"=sin"に一括変換すればできませんか？

この回答へのお礼

解決しました。

お礼日時：2002/11/12 19:34

No.2 回答者： bin-chan 回答日時： 2002/11/11 18:51

VBAで「FormulaR1C1」に「＝」と式の文字列をセットすればＯＫ。

セルＡ２に「sin(60)」、セルＡ３に「cos（60）」といれて
VBAで以下のコードを書いて実行したら結果が得られましたよ。

Range("B2").FormulaR1C1 = "=" & Range("A2").Value
Range("B3").FormulaR1C1 = "=" & Range("A3").Value

この回答へのお礼

ありがとうございました。解決しました。

お礼日時：2002/11/12 19:34

No.1 回答者： shota_TK 回答日時： 2002/11/11 18:30

変更が少ないなら，セルをクリックして，半角で「=」を入力すれば

OKですよね．

それじゃダメだから質問してるんですよね？

この回答への補足

そうです。
数値の文字列なら
=value(A1)
などの関数で返せるんですけど、
数式の文字列を数式に返すことはできるんだろうか。

補足日時：2002/11/11 18:30

この回答へのお礼

解決しました。

お礼日時：2002/11/12 19:35