|
▼statis さん:
>こんにちは
>下記に訂正してください。
>MsgBox Application.Sum(R) & Chr(10) & _
> Application.Sum(R.Offset(, 1)) & Chr(10) & _
> Application.Sum(R.Offset(, 1)) / Application.Sum(R) * 100 & "%"
>
>解説:
>Application.Sum(R)→C列の抽出した可変セルの合計を算出
>Application.Sum(R.Offset(, 1)) →D列の抽出した可変セルの合計を算出
>Chr(10)→改行
>Application.Sum(R.Offset(, 1)) / Application.Sum(R) * 100 & "%"→
>C列の抽出した可変セルの合計をD列の抽出した可変セルの合計で割り100を掛け
>%を算出
statisさんありがとうございました。
大変参考になりました。会社で上記のコードを参考に合計と稼働率を最終行に
入れることができました。
じゅんじゅんさん、statisさんありがとうございました。
今後も質問するかと思いますが、よろしくお願いします。
|
|