Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4 / 13618 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【82273】文字列から計算する数式について もっちゃん 24/2/21(水) 16:30 質問[未読]
【82274】Re:文字列から計算する数式について マナ 24/2/22(木) 22:41 発言[未読]
【82273】文字列から計算する数式について
質問  もっちゃん E-MAIL  - 24/2/21(水) 16:30 -
引用なし
パスワード
   VBAに初めて手を出そうとしています。
この様な動作をさせたいと考えていますが可能でしょうか？

コピーされた文字列をセルに貼り付けてcm3に変換して計算

330 * 250 * 24mm

を入力すると隣のセルに1980cm3と表示したいのです。

また違うセルでも構わないのですが同様に

9.84 x 1.97 x 0.79 inches

と貼り付けした場合にも計算して隣のセルに答えをcm3で表示させたいのです。
VBAを使わなくても可能な方法があるのならそれもOKです。
よろしくお願い致します。
【82274】Re:文字列から計算する数式について
発言  マナ  - 24/2/22(木) 22:41 -
引用なし
パスワード
   ▼もっちゃん さん：

考え方だけ。
想定される全パターンの置換を追加してください。

Function conv_cm3(f As String) As Double
　　f = Replace(f, "mm", "*0.1^3")
　　f = Replace(f, "inches", "*2.54^3")
　　f = Replace(f, "x", "*")
　　 conv_cm3 = Evaluate(f)
End Function
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4 / 13618 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free