Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50690 / 76738 ←次へ　｜　前へ→
【30933】Re:小数点以下切捨て
回答  Kein  - 05/11/7(月) 14:24 -
引用なし
パスワード
   では、先の"MyCalc"というプロシージャの中身を、以下のように変更して下さい。
それから合計する範囲は、常に「F1からアクティブセルの１つ上」までになります。

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$1:" & Ad & ")*0.15,0)"
　 End With
End Sub
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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
50690 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free