Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50645 / 76732 ←次へ　｜　前へ→
【30972】Re:小数点以下切捨て
回答  Kein  - 05/11/8(火) 15:44 -
引用なし
パスワード
   >11/7(月) 21:05 の、コードだけにして、あとは全て削除して下さい。
>ですと、一番最初のenter毎にrounddownがついてくるが無くなっちゃってるのでは
>ないでしょうか
ん・・?? 意味が分かりませんが、MyCalcも削除したわけでは無いですよね ?
>標準モジュールの方は、そのままで結構です。
と、はっきり書いておきましたから。
>この手入力の部分にも、rounddownが必要なのです
ということは、F6以下に手入力する数式もある、という意味ですか ?
それにもROUNDDOWNをつけるなら、シートモジュールに入れたセル入力イベントを

Private Sub Worksheet_Change(ByVal Target As Range)
　 Dim Fom As String

　 With Target
　　　If .Count > 1 Then Exit Sub
　　　If IsEmpty(.Value) Then Exit Sub
　　　If .Address = "$A$1" Then
　　　　 Application.OnKey "^{ENTER}", "MyCalc"
　　　　 Exit Sub
　　　End If
　 End With
　 If Intersect(Target, Range("F6:F65536")) Is Nothing Then Exit Sub
　 With Target
　　　If .HasFormula = False Then Exit Sub
　　　Fom = .Formula　　
　　　If UCase(Left$(Fom, 5)) <> "=ROUN" Then
　　　　 Fom = Right$(Fom, Len(Fom) - 1)
　　　　 Application.EnableEvents = False
　　　　 .Formula = "=ROUNDDOWN(" & Fom & ",0)"
　　　　 Application.EnableEvents = True
　　　End If
　 End With
End Sub

と、変更してみて下さい。
7 hits
▼ 【30627】小数点以下切捨て 初心者 05/11/1(火) 16:03 質問
【30629】Re:小数点以下切捨て Kein 05/11/1(火) 16:26 回答
【30633】Re:小数点以下切捨て 初心者 05/11/1(火) 17:08 質問
【30648】Re:小数点以下切捨て Kein 05/11/1(火) 20:23 発言
【30765】Re:小数点以下切捨て 初心者 05/11/4(金) 15:08 お礼
【30684】Re:小数点以下切捨て ponpon 05/11/2(水) 21:12 発言
【30690】Re:小数点以下切捨て ichinose 05/11/2(水) 22:52 発言
【30693】Re:小数点以下切捨て ponpon 05/11/2(水) 23:20 発言
【30766】Re:小数点以下切捨て 初心者 05/11/4(金) 15:20 お礼
【30763】Re:小数点以下切捨て 初心者 05/11/4(金) 15:04 質問
【30764】Re:小数点以下切捨て 初心者 05/11/4(金) 15:07 発言
【30783】Re:小数点以下切捨て Kein 05/11/4(金) 17:00 回答
【30784】Re:小数点以下切捨て Kein 05/11/4(金) 17:02 回答
【30786】Re:小数点以下切捨て 初心者 05/11/4(金) 17:47 質問
【30788】Re:小数点以下切捨て Kein 05/11/4(金) 18:10 発言
【30822】Re:小数点以下切捨て 初心者 05/11/5(土) 9:40 質問
【30827】Re:小数点以下切捨て Kein 05/11/5(土) 13:45 回答
【30828】Re:小数点以下切捨て Kein 05/11/5(土) 13:46 発言
【30913】Re:小数点以下切捨て 初心者 05/11/7(月) 8:33 お礼
【30829】Re:小数点以下切捨て End 05/11/5(土) 13:48 発言
【30862】Re:小数点以下切捨て End 05/11/6(日) 3:08 発言
【30914】Re:小数点以下切捨て 初心者 05/11/7(月) 8:44 質問
【30921】Re:小数点以下切捨て Kein 05/11/7(月) 11:36 回答
【30932】Re:小数点以下切捨て 初心者 05/11/7(月) 14:10 質問
【30933】Re:小数点以下切捨て Kein 05/11/7(月) 14:24 回答
【30934】Re:小数点以下切捨て 初心者 05/11/7(月) 14:40 発言
【30936】Re:小数点以下切捨て Kein 05/11/7(月) 14:55 発言
【30937】Re:小数点以下切捨て 初心者 05/11/7(月) 15:18 お礼
【30938】Re:小数点以下切捨て 初心者 05/11/7(月) 15:35 発言
【30939】Re:小数点以下切捨て Kein 05/11/7(月) 16:18 発言
【30943】Re:小数点以下切捨て 初心者 05/11/7(月) 17:09 発言
【30945】Re:小数点以下切捨て Kein 05/11/7(月) 17:29 回答
【30949】Re:小数点以下切捨て 初心者 05/11/7(月) 18:43 質問
【30951】Re:小数点以下切捨て Kein 05/11/7(月) 21:05 回答
【30960】Re:小数点以下切捨て 初心者 05/11/8(火) 8:31 質問
【30961】Re:小数点以下切捨て 初心者 05/11/8(火) 8:35 お礼
【30967】Re:小数点以下切捨て Kein 05/11/8(火) 13:46 発言
【30969】Re:小数点以下切捨て 初心者 05/11/8(火) 14:35 発言
【30972】Re:小数点以下切捨て Kein 05/11/8(火) 15:44 回答≪
【30974】Re:小数点以下切捨て 初心者 05/11/8(火) 15:57 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50645 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free