Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
59 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【82146】テキストボックス ハヤップ 23/5/23(火) 19:49 質問[未読]
【82148】Re:テキストボックス ハヤップ 23/5/24(水) 12:55 質問[未読]
【82149】Re:テキストボックス マナ 23/5/24(水) 16:29 発言[未読]
【82150】Re:テキストボックス マナ 23/5/31(水) 18:56 発言[未読]
【82146】テキストボックス
質問  ハヤップ  - 23/5/23(火) 19:49 -
引用なし
パスワード
   初めての投稿になります。ご教授宜しくお願い致します。
ユーザーフォームテキストボックス内に
001　x　=+　4.4235o　y　=+　2.1256o　　z　=+ 0.1235o
が続けて入力されるのでxの4.42のみの値を抽出しExcelに張り付けたい場合どのような方法がありますでしょうか。
宜しくお願い致します。
【82148】Re:テキストボックス
質問  ハヤップ  - 23/5/24(水) 12:55 -
引用なし
パスワード
   ▼ハヤップ さん：
>初めての投稿になります。ご教授宜しくお願い致します。
>ユーザーフォームテキストボックス内に
>001　x　=+　4.4235o　y　=+　2.1256o　　z　=+ 0.1235o
>が続けて入力されるのでxの4.42のみの値を抽出しExcelに張り付けたい場合どのような方法がありますでしょうか。
>宜しくお願い致します。

スミマセン入力不足でした。
001から始まるx,y,zの値は毎回変動します。
その際上記で書いたx 部分のみ(0.00)⬅️毎回変動　　　　　　の値のみを抽出したいです。
すみませんがご教授宜しくお願い致します。
【82149】Re:テキストボックス
発言  マナ  - 23/5/24(水) 16:29 -
引用なし
パスワード
   ▼ハヤップ さん：

Dim txt As String

txt = "001　x　=+　4.4235mm　y　=+　2.1256mm　　z　=+ 0.1235mm"
MsgBox WorksheetFunction.Round(Val(Split(txt, "=")(1)), 2)
【82150】Re:テキストボックス
発言  マナ  - 23/5/31(水) 18:56 -
引用なし
パスワード
   ht　tps://www.239-programing.com/cgi-bin/excelvba_bbs.cgi?id=1419
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
59 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free