Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7037 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【41695】小数点繰上げしているセルの値を別のセルに入力するには？ eri 06/8/20(日) 14:33 質問[未読]
【41696】Re:小数点繰上げしているセルの値を別のセ... [名前なし] 06/8/20(日) 14:47 発言[未読]
【41697】Re:小数点繰上げしているセルの値を別のセ... eri 06/8/20(日) 14:57 質問[未読]
【41698】Re:小数点繰上げしているセルの値を別のセ... [名前なし] 06/8/20(日) 15:10 発言[未読]
【41700】Re:小数点繰上げしているセルの値を別のセ... eri 06/8/20(日) 15:27 お礼[未読]
【41699】Re:小数点繰上げしているセルの値を別のセ... かみちゃん 06/8/20(日) 15:14 回答[未読]
【41701】Re:小数点繰上げしているセルの値を別のセ... eri 06/8/20(日) 15:28 お礼[未読]
【41695】小数点繰上げしているセルの値を別のセル...
質問  eri  - 06/8/20(日) 14:33 -
引用なし
パスワード
   小数点繰上げしているセルの値を別のセルに入力したいのです。
セルを視覚的に見ると1.64と表示しています。
そのセルをクリックすると1.637と表示されています
セルの書式設定で1.64と表示されているのですがこの1.64を別のセルに入力したいのですが、1.637と表示されてしまいます。

1.64と入力するにはどうしたらいいでしょうか？
【41696】Re:小数点繰上げしているセルの値を別の...
発言  [名前なし]  - 06/8/20(日) 14:47 -
引用なし
パスワード
   セルのTextプロパティを使用してみてください。

参考になりそうな過去ログです。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=38939;id=excel
【41697】Re:小数点繰上げしているセルの値を別の...
質問  eri  - 06/8/20(日) 14:57 -
引用なし
パスワード
   早速のお返事ありがとうございました。

たしかに1.64と表示されているのですが、
クリックして数式バーの値をみると1.635となっています。

数式バーの値も1.64としたいのです。
【41698】Re:小数点繰上げしているセルの値を別の...
発言  [名前なし]  - 06/8/20(日) 15:10 -
引用なし
パスワード
   >小数点繰上げしているセルの値を別のセルに入力

というのが、仮に

小数点繰上げしているセル → A1
別のセル　　　　　　　　 → B1

だとして、

Range("B1").Value = Range("A1").Text

で出来ませんか？
【41699】Re:小数点繰上げしているセルの値を別の...
回答  かみちゃん  - 06/8/20(日) 15:14 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

横から失礼します。

>たしかに1.64と表示されているのですが、
>クリックして数式バーの値をみると1.635となっています。
>
>数式バーの値も1.64としたいのです。

別解として、こんな方法はいかがでしょうか？

Sub test3()
　Dim dblData As Double

　dblData = 1.637
　Range("A1").Value = Round(dblData, 2)
　Range("A1").NumberFormatLocal = "0.00"
End Sub
【41700】Re:小数点繰上げしているセルの値を別の...
お礼  eri  - 06/8/20(日) 15:27 -
引用なし
パスワード
   できました！
ありがとうございます！！


▼[名前なし] さん：
>>小数点繰上げしているセルの値を別のセルに入力
>
>というのが、仮に
>
>小数点繰上げしているセル → A1
>別のセル　　　　　　　　 → B1
>
>だとして、
>
>Range("B1").Value = Range("A1").Text
>
>で出来ませんか？
【41701】Re:小数点繰上げしているセルの値を別の...
お礼  eri  - 06/8/20(日) 15:28 -
引用なし
パスワード
   ありがとうございます！
解決しました！！

▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>横から失礼します。
>
>>たしかに1.64と表示されているのですが、
>>クリックして数式バーの値をみると1.635となっています。
>>
>>数式バーの値も1.64としたいのです。
>
>別解として、こんな方法はいかがでしょうか？
>
>Sub test3()
>　Dim dblData As Double
>
>　dblData = 1.637
>　Range("A1").Value = Round(dblData, 2)
>　Range("A1").NumberFormatLocal = "0.00"
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7037 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free