Excel VBA質問箱 IV

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

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


50787 / 76732 ←次へ | 前へ→

【30829】Re:小数点以下切捨て
発言  End  - 05/11/5(土) 13:48 -

引用なし
パスワード
   こんにちは。
今日はみなさんお休みかしらね^ ^

>enterキーを押して確定するごとに、マクロを実行する・・・
enterキーはややこしいのでダブルクリックではどうでしょう?

目的のシートのタブを右クリックして[コードの表示]
表示されたモジュールに以下コードをコピペしてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Scel As Range, Per As Long
  Set Scel = Range("C1") '←必要に応じ変更
  Per = 15 '←必要に応じ変更
  With Target
    If .Column <> Scel.Column Or .Row <= Scel.Row Then Exit Sub
    .Formula = "=ROUNDDOWN(SUM(" & Scel.Address(0, 0) & ":" _
      & .Offset(-1).Address(0, 0) & ")*" & Per & "/100,0)"
  End With
  Cancel = True
  Set Scel = Nothing
End Sub

基準セルをC1とした場合、C列のセルをダブルクリックすると式がはいります。
何も入力しなくて可です。

基準セルや諸経費割合を変えたい場合は、『'←必要に応じ変更』部分を変えてください。

#ユーザー定義関数という手もあるかもしれませんね(独り言)
0 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 お礼

50787 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free