マクロを作っていただきたいです。 労働時間を求めたいのですが S12で例えるとE12：P12で色の付いたセル以外の 数字をカウント（5になります）
マクロを作っていただきたいです。 労働時間を求めたいのですが S12で例えるとE12：P12で色の付いたセル以外の 数字をカウント（5になります） その5に*8で労働時間を求めるマクロが欲しいです。 色はどの色でも省きます。
Excel・86閲覧
ベストアンサー
一例です。 ------------------------------------ Function Times8(myRange As Range) As Currency Dim myRng As Range Dim myC As Long Application.Volatile '好みに応じて For Each myRng In myRange If myRng.Interior.ColorIndex = xlNone And myRng.Value <> "" Then myC = myC + 1 End If Next myRng Times8 = myC * 8 End Function ------------------------------------ S12 =Times8(E12:P12) のようにして使います。 着色変更した際は[F9]等で再計算・更新となります。 併せて Application.Volatile については、 https://www.nonbiri-yorimichi.com/entry/2017/09/30/153736 ご一読ください。 追加オーダーはご容赦ください。
質問者からのお礼コメント
なりました！！ 丁寧に対応いただきありがとうございます。
お礼日時：7/6 16:49
