Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10749 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20191】小数点以下切捨て mi 04/12/1(水) 3:54 質問[未読]
【20193】Re:小数点以下切捨て IROC 04/12/1(水) 9:03 回答[未読]
【20210】Re:小数点以下切捨て mi 04/12/1(水) 16:11 お礼[未読]
【20196】Re:小数点以下切捨て Asaki 04/12/1(水) 10:58 回答[未読]
【20211】Re:小数点以下切捨て mi 04/12/1(水) 16:13 お礼[未読]
【20191】小数点以下切捨て
質問  mi  - 04/12/1(水) 3:54 -
引用なし
パスワード
   小数点以下を切捨て表示させたいのです。
自動で四捨五入で丸めてくれますが、そうではなく切捨てで・・・。
数字を入力し、確定した後すぐ四捨五入でなく切捨て表示になりませんか？
関数を使って別のセルに表示するのではなく、
あくまでも入力したセルに表示させたいのです。
何か方法はありませんか？
【20193】Re:小数点以下切捨て
回答  IROC  - 04/12/1(水) 9:03 -
引用なし
パスワード
   これでできます。

Private Sub Worksheet_Change(ByVal Target As Range)

　　If Target.Address(0, 0) <> "A1" Then Exit Sub

　　Application.EnableEvents = False
　　　　Target.Value = Int(Target.Value)
　　Application.EnableEvents = True
End Sub
【20196】Re:小数点以下切捨て
回答  Asaki  - 04/12/1(水) 10:58 -
引用なし
パスワード
   こんにちは。

表示だけでよければ
セルの書式設定で表示形式を「ユーザー定義」で[種類]に↓を設定
0 と入力
Ctrl+J と操作
.0 と入力
なお、最後の.0の部分は、切り捨てたい数字の小数点以下の桁数に合わせて調整してください。
更に、「配置」タブの「折り返して全体を表示する」にチェックします
【20210】Re:小数点以下切捨て
お礼  mi  - 04/12/1(水) 16:11 -
引用なし
パスワード
   できました。どうもありがとうございます。
とっても嬉しいです。

▼IROC さん：
>これでできます。
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>
>　　If Target.Address(0, 0) <> "A1" Then Exit Sub
>
>　　Application.EnableEvents = False
>　　　　Target.Value = Int(Target.Value)
>　　Application.EnableEvents = True
>End Sub
【20211】Re:小数点以下切捨て
お礼  mi  - 04/12/1(水) 16:13 -
引用なし
パスワード
   なるほど〜〜〜。
改行したらいいのですね、目が覚めたような回答でした。
ありがとうございます。

▼Asaki さん：
>こんにちは。
>
>表示だけでよければ
>セルの書式設定で表示形式を「ユーザー定義」で[種類]に↓を設定
>0 と入力
>Ctrl+J と操作
>.0 と入力
>なお、最後の.0の部分は、切り捨てたい数字の小数点以下の桁数に合わせて調整してください。
>更に、「配置」タブの「折り返して全体を表示する」にチェックします
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10749 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free