[[20060224111921]]　『文字列の計算』（茶）　ページの最後に飛ぶ

『文字列の計算』（茶）

100　　＋　　50　＋　　5.52　　×　　1/2

というように、Ａ1～Ｇ1のセルまで一つ一つ入力（文字列）されています。
これをＨ1のセルへ計算させるほうほうはないでしょうか。
よろしくお願いします。

H1セルに＝A1と入れて下へ引っ張るとか､A1セル上で右クリックで「数式のみコピー」してみるとかでは駄目でしょうか?これまた、ずれてますかね??質問の答えになっていなかったらごめんなさい(謝)　　　　　　　　　　　　　　　　　　　　（KSかつらん☆☆）

A1&B1&C1&D1&E1&F1&G1とすれば、100＋50＋5.52×1/2のようにつながりますよね。

そしてこちらのアドインを使うと計算できますよ。

http://hp.vector.co.jp/authors/VA029807/textcalc2.htm

(tucky)

 UDFです。
 X は　* に変更してください。
 もしそのまま使用するのであれば、その他の使用する演算記号を網羅してください。

 使用方法：

 1) Excel画面より　ALT　＋　F11　でVBEを起動
 2) 「挿入」->「標準モジュール」で右空白部分に下記コードを貼り付け
 3) x をクリックしてexcel画面に戻る

 H1:
 =Evaluated(a1:g1)

 Function Evaluated(rng As Range)
 Dim r As Range, txt As String
 For Each r In rng
     txt = txt & r.Text
 Next
 Evaluated = Evaluate(txt)
 End Function
 (seiya)

 同じくユーザー定義関数です。×と÷には対応してます。
（純丸）(o^-')b
 =keisan(A1:G1) のように使用。

 Function keisan(myr As Range)
   Dim mystr As String
   Dim r As Range
   For Each r In myr
     mystr = mystr & r.Text
   Next r
   mystr = Application.WorksheetFunction.Substitute(mystr, "×", "*")
   mystr = Application.WorksheetFunction.Substitute(mystr, "÷", "/")
   keisan = Evaluate(mystr)
 End Function

 そういえば昔、こんなのあったなぁと。（ramrun）

[[20030902013410]]『マクロ[tfcalc]について』（あみちん）

皆様、本当にありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060224111921]] 『文字列の計算』（茶） ページの最後に飛ぶ

[[20060224111921]]　『文字列の計算』（茶）　ページの最後に飛ぶ