Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39169 / 76738

←次へ　｜　前へ→


	【42685】Re:文字列を数値に変換する方法について

ぴい - 06/9/19(火) 12:54 -


	引用なし

	パスワード

かみちゃん様

説明不足ですみません。
実際置換が必要が必要なのは、With Selection～Withのサイズのみで、
順番に並んでいます。
そのあと、置換が必要のない、S、M、L、S-M、L-Oなどのサイズが並びます。
（下の順番です）

　　 4　　　　　 4H　　　　　　5　　　　　 5H　　　　　　6　　　　　 6H　　　　　　7　　　　　 7H
　　 8　　　　　 8H　　　　　　9　　　　　 9H　　　　　 10　　　　　　F　　　　　 XS　　　　　　S
　　 M　　　　　　L　　　　　　O　　　　　S-M　　　　 L-XL

Range("I2:AC2").NumberFormat = "0.0"
Range("I2:AC2").Value = .Value

のところがよくわからないのですが、表示形式を設定したあと
どうやって数値や数値を貼り付けしたらいいのでしょうか？

よろしくお願いします。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Range("I2:AC2").NumberFormat = "0.0"
Range("I2:AC2").Value = .Value

　
Worksheets("靴").Range("I2:AC2").Select '---置き換え対象範囲を選択

With Selection
　　　
　　　
　　　　.Replace What:="4", Replacement:="22.5", _
　　　　　　　　　LookAt:=xlWhole　　　 '---完全一致
　　　　　　　　　
　　　　.Replace What:="4H", Replacement:="23.0", _
　　　　　　　　　LookAt:=xlWhole

　　　　.Replace What:="5", Replacement:="23.5", _
　　　　　　　　　LookAt:=xlWhole

　　　 .Replace What:="5H", Replacement:="24.0", _
　　　　　　　　　LookAt:=xlWhole　　　　'---部分一致
　　　　　　　　　
　　　　.Replace What:="6", Replacement:="24.5", _
　　　　　　　　　LookAt:=xlWhole

　　　　.Replace What:="6H", Replacement:="25.0", _
　　　　　　　　　LookAt:=xlWhole
　　　　
　　　　.Replace What:="7", Replacement:="25.5", _
　　　　　　　　　LookAt:=xlWhole
　　
　　　　.Replace What:="7H", Replacement:="26.0", _
　　　　　　　　 LookAt:=xlWhole
　　
　　　　.Replace What:="8", Replacement:="26.5", _
　　　　　　　　　LookAt:=xlWhole
　　　　　　　　　
　　　　.Replace What:="8H", Replacement:="27.0", _
　　　　　　　　　LookAt:=xlWhole
　　　　　　　　　
　　　　.Replace What:="9", Replacement:="27.5", _
　　　　　　　　　LookAt:=xlWhole
　　　　　　　　　
　　　　.Replace What:="9H", Replacement:="28.0", _
　　　　　　　　　LookAt:=xlWhole
　　　　　　　　　　　　　　　　　　
　　　　.Replace What:="10", Replacement:="28.5", _
　　　　　　　　　LookAt:=xlWhole
　　　　　　　　　
　　　　.Replace What:="F", Replacement:="フリー", _
　　　　　　　　　LookAt:=xlWhole
　　　　　　　　　
　　　　　　　　　
　　End With

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>同じ行（I～AC列）に下記ア.のように文字列で数字＋アルファベットが入力
>>されています。
>>これをイのように数値(小数点第一位まで)に置換するにはどうしたらいいでしょうか？
>>イの行は、数値のほかアルファベットもあります。
>
>変換のパターンを説明してください。
>"4"の場合は、4 + 18.5 + 0
>"4H"の場合は、4 + 18.5 + 0.5
>数字がない場合は、そのままの文字列とする
>ということなのでしょうか？

0 hits

▼

【42657】文字列を数値に変換する方法について ぴい 06/9/18(月) 15:35