|
それでは「選択範囲内の数値データに対する計算」をするコードで
どうでしょーか ? 計算を実行する前の処理条件の判定は、If 〜 Then Exit Sub
という形で行います。それらのコードの意味については、自分で調べて下さい。
Sub Test_MySum2()
Dim Ad As String
If TypeName(Selection) <> "Range" Then Exit Sub
With Selection
If .Count < 2 Then Exit Sub
If .Columns.Count > 1 Then Exit Sub
If .Areas.Count > 1 Then Exit Sub
If WorksheetFunction.Count(.Cells) < 2 Then Exit Sub
.Font.ColorIndex = xlColorIndexAutomatic
Ad = .Address
With .Cells(1).Offset(.Count)
.Formula = "=ROUND(SUM(" & Ad & ")*0.7,-2)"
.Offset(1).Formula = "=ROUND(SUM(" & Ad & ")*0.3,-2)"
.Resize(2).Font.ColorIndex = 5
End With
End With
End Sub
|
|