Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50683 / 76732 ←次へ　｜　前へ→
【30934】Re:小数点以下切捨て
発言  初心者  - 05/11/7(月) 14:40 -
引用なし
パスワード
   ▼Kein さん：さっそくのごしどうありがとうございます。

うまく行きませんでした。

対象のシートモジュールに
Private Sub Worksheet_Activate()
　 Application.OnKey "^{ENTER}", "MyCalc"
End Sub

Private Sub Worksheet_Deactivate()
　 Application.OnKey "^{ENTER}"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
　 Dim MyR As Range, C As Range
　 Dim Fom As String, St As String

　 On Error GoTo ELine
　 Set MyR = Target.SpecialCells(3, 1)
　 On Error GoTo 0
　 Application.EnableEvents = False
　 For Each C In MyR
　　　Fom = C.Formula
　　　If Left$(Fom, 6) <> "=ROUND" Then
　　　　 St = Right$(Fom, Len(Fom) - 1)
　　　　 C.Formula = "=ROUNDDOWN(" & St & ",0)"
　　　End If
　 Next
　 Application.EnableEvents = True
　 Set MyR = Nothing
ELine:
End Sub

を入れて、

標準モジュールのを入れて、標準モジュールに
Sub MyCalc()
　 Dim Ad As String
　
　 If TypeName(Selection) <> "Range" Then Exit Sub
　 If Intersect(ActiveCell, Range("F6:F65536")) Is Nothing Then
　　　Exit Sub
　 End If
　 With ActiveCell
　　　If Not IsEmpty(.Value) Then Exit Sub
　　　Ad = .Offset(-1).Address
　　　.Formula = "=ROUNDDOWN(SUM($F$6:" & Ad & ")*0.15,0)"
　 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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50683 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free