0
アンドゥ
投票
あなたが提供できるこれに関する助けを前もって感謝します。
このサイトの助けを借りて、次の関数を作成しました。
関数 ColorFunction (範囲としての rColor、範囲としての rRange、ブール値としてのオプションの SUM)
範囲としての薄暗いrCell
暗い lCol 限り
薄暗い vResult
lCol = rColor.Interior.ColorIndex
SUM = True の場合
rRange 内の各 rCell について
rCell.Interior.ColorIndex = lCol の場合
vResult = WorksheetFunction.SUM(rCell, vResult)
終了する場合
次のrCell
他
rRange 内の各 rCell について
rCell.Interior.ColorIndex = lCol の場合
vResult = 1 + vResult
終了する場合
次のrCell
終了する場合
ColorFunction = vResult
エンド機能
指定されたセルの色を含むその行のすべてのセルの合計が必要な各ターゲットセルで。
=色関数(AR4,H5:AP5,TRUE)
行の他のセル (H5:AP5) の色が変わったときにターゲットの販売を更新するにはどうすればよいですか?
このサイトの助けを借りて、次の関数を作成しました。
関数 ColorFunction (範囲としての rColor、範囲としての rRange、ブール値としてのオプションの SUM)
範囲としての薄暗いrCell
暗い lCol 限り
薄暗い vResult
lCol = rColor.Interior.ColorIndex
SUM = True の場合
rRange 内の各 rCell について
rCell.Interior.ColorIndex = lCol の場合
vResult = WorksheetFunction.SUM(rCell, vResult)
終了する場合
次のrCell
他
rRange 内の各 rCell について
rCell.Interior.ColorIndex = lCol の場合
vResult = 1 + vResult
終了する場合
次のrCell
終了する場合
ColorFunction = vResult
エンド機能
指定されたセルの色を含むその行のすべてのセルの合計が必要な各ターゲットセルで。
=色関数(AR4,H5:AP5,TRUE)
行の他のセル (H5:AP5) の色が変わったときにターゲットの販売を更新するにはどうすればよいですか?
こんにちは、
次のコードを追加できます。 Application.Calculation = xlAutomatic あなたの関数に：
ぜひ試してみてください。
アマンダ
次のコードを追加できます。 Application.Calculation = xlAutomatic あなたの関数に：
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
Application.Calculation = xlAutomatic
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Functionぜひ試してみてください。
アマンダ
- ページ：
- 1
この投稿に対する返信はまだありません。