Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6757 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43174】数値をcstrを使用して変換した場合に 凪 06/10/4(水) 17:38 質問[未読]
【43175】Re:数値をcstrを使用して変換した場合に ハチ 06/10/4(水) 18:27 発言[未読]
【43176】Re:数値をcstrを使用して変換した場合に 凪 06/10/4(水) 18:47 発言[未読]
【43177】Re:数値をcstrを使用して変換した場合に だるま 06/10/4(水) 19:15 回答[未読]
【43179】Re:数値をcstrを使用して変換した場合に ｂｙｋｉｎ 06/10/4(水) 21:55 回答[未読]
【43340】Re:数値をcstrを使用して変換した場合に 凪 06/10/10(火) 14:56 お礼[未読]
【43174】数値をcstrを使用して変換した場合に
質問  凪  - 06/10/4(水) 17:38 -
引用なし
パスワード
   数値をCstrを使用して変換した場合に少数点以下の桁数で
使用している０が消えてしまうのを防ぐ方法はあるのでしょうか？
元ある状態とまったく同じ状態での文字列を取得したいのです。

条件
１．ある列のセルから順に値を取得（列の行には数値と文字列のランダム）
２．取得する値は小数点以下が行によってバラバラ（0.1や1234.0000001等）
３．負の値はなし

例　　　　　　　　　　結果　　　　判定　希望
cstr(0.1000)　　　　　0.1　　　　 NG　　0.1000と欲しい
cstr(0.1001)　　　　　0.1001　　　OK

一度strを使い前の" 3"とかでltrimを使用し、とも考えたのですが
１の条件にある最初からある文字列でＮＧとなりだめでした。

何かいい方法はないでしょうか？
よろしくお願いします。
【43175】Re:数値をcstrを使用して変換した場合に
発言  ハチ  - 06/10/4(水) 18:27 -
引用なし
パスワード
   ▼凪 さん：
>数値をCstrを使用して変換した場合に少数点以下の桁数で
>使用している０が消えてしまうのを防ぐ方法はあるのでしょうか？
>元ある状態とまったく同じ状態での文字列を取得したいのです。
>
>条件
>１．ある列のセルから順に値を取得（列の行には数値と文字列のランダム）
>２．取得する値は小数点以下が行によってバラバラ（0.1や1234.0000001等）
>３．負の値はなし
>
>例　　　　　　　　　　結果　　　　判定　希望
>cstr(0.1000)　　　　　0.1　　　　 NG　　0.1000と欲しい
>cstr(0.1001)　　　　　0.1001　　　OK
>
>一度strを使い前の" 3"とかでltrimを使用し、とも考えたのですが
>１の条件にある最初からある文字列でＮＧとなりだめでした。
>
>何かいい方法はないでしょうか？
>よろしくお願いします。

あまりピンときてないですが、こういうことですか？

Sub Test()
　　MsgBox 0.51
　　MsgBox Format(0.51, "0.0000")
　　MsgBox TypeName(Format(0.51, "0.0000"))
End Sub
【43176】Re:数値をcstrを使用して変換した場合に
発言  凪  - 06/10/4(水) 18:47 -
引用なし
パスワード
   ▼ハチ さん：
>▼凪 さん：
>>数値をCstrを使用して変換した場合に少数点以下の桁数で
>>使用している０が消えてしまうのを防ぐ方法はあるのでしょうか？
>>元ある状態とまったく同じ状態での文字列を取得したいのです。
>>
>>条件
>>１．ある列のセルから順に値を取得（列の行には数値と文字列のランダム）
>>２．取得する値は小数点以下が行によってバラバラ（0.1や1234.0000001等）
>>３．負の値はなし
>>
>>例　　　　　　　　　　結果　　　　判定　希望
>>cstr(0.1000)　　　　　0.1　　　　 NG　　0.1000と欲しい
>>cstr(0.1001)　　　　　0.1001　　　OK
>>
>>一度strを使い前の" 3"とかでltrimを使用し、とも考えたのですが
>>１の条件にある最初からある文字列でＮＧとなりだめでした。
>>
>>何かいい方法はないでしょうか？
>>よろしくお願いします。
>
>あまりピンときてないですが、こういうことですか？
>
>Sub Test()
>　　MsgBox 0.51
>　　MsgBox Format(0.51, "0.0000")
>　　MsgBox TypeName(Format(0.51, "0.0000"))
>End Sub

▼ハチさん
すみません説明下手と説明不測でした。
セルの値ごとに小数点の桁数が違うのです。
　　列Ａの値(書式：標準)　欲しい答え(書式：文字列)
１．1234567　　　　　　　 1234567
２．123.4567　　　　　　　123.4567
３．あいうえお　　　　　　あいうえお　　　　　　
４．0.12345　　　　　　　 0.12345
５．0.1234567890　　　　　0.1234567890←(最後の0も必ず入ること)
６．テスト　　　　　　　　テスト

format関数だと、小数点が固定されてしまうので使えませんでした
【43177】Re:数値をcstrを使用して変換した場合に
回答  だるま WEB  - 06/10/4(水) 19:15 -
引用なし
パスワード
   str$関数を使ってはいかがでしょうか。^d^

ただし、0以上の数の場合、頭にスペースが付きますので不要なら取ってください。
【43179】Re:数値をcstrを使用して変換した場合に
回答  ｂｙｋｉｎ  - 06/10/4(水) 21:55 -
引用なし
パスワード
   こんばんわ。

セルの数値が全部表示されてる（###等に化けてない）っていう条件付きやけど、
Textプロパティを使うっていう方法もありまっせ。

MsgBox ActiveCell.Text

なんて感じ。（文字化けが心配ならオートフィットすること）

試してみてな。
ほな。
【43340】Re:数値をcstrを使用して変換した場合に
お礼  凪  - 06/10/10(火) 14:56 -
引用なし
パスワード
   ありがとうございます。
みなさまの助言のおかげで解決しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6757 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free