Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50696 / 76732 ←次へ　｜　前へ→
【30921】Re:小数点以下切捨て
回答  Kein  - 05/11/7(月) 11:36 -
引用なし
パスワード
   対象のシートモジュールに

Private Sub Worksheet_Activate()
　 Application.OnKey "^{ENTER}", "MyCalc"
End Sub

Private Sub Worksheet_Deactivate()
　 Application.OnKey "^{ENTER}"
End Sub

を入れて、標準モジュールに

Sub MyCalc()
　 Dim Fom As String, St As String
　
　 If TypeName(Selection) <> "Range" Then Exit Sub
　 With ActiveCell
　　　If .HasFormula = False Then Exit Sub
　　　Fom = .Formula
　　　If Left$(Fom, 6) <> "=ROUND" Then
　　　　 St = Right$(Fom, Len(Fom) - 1)
　　　　 .Formula = "=ROUNDDOWN(" & St & ",0)"
　　　End If
　 End With
End Sub

を、入れて下さい。これで、一度対象シートから別のシートを開き、再度
対象シートを開くとキーにマクロが割り当てられます。ENTERキーは「テンキーの」
ENTERのみ有効ですから、数式を入力したセルへカーソルを持ってきて、
Ctrl + テンキーのENTER を押してみて下さい。
3 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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50696 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free