私はvbaに秀でているのはまったく新しいので、これは次の条件を満たすために書いたものです。
- sumAがsumBまたはsumCより大きく、次に「G」
- sumBがsumAまたはsumCより大きく、次に「Y」
- sumCがsumAまたはsumBより大きく、次に「R」
gr、yr、rrセルの範囲内は、手動で入力する数値です。
Dim gr As Range
Dim yr As Range
Dim rr As Range
Dim gr1 As Long
Dim yr1 As Long
Dim rr1 As Long
Dim overallrisk As Range
Set overallrisk = Sheets("Dashboard").Range("C24")
Set gr = Sheets("Dashboard").Range("C30:C32").Range("C33:C35").Range("D33:D35")
Set yr = Sheets("Dashboard").Range("C27:C29").Range("D30:D32").Range("E33:E35")
Set rr = Sheets("Dashboard").Range("D27:D29").Range("E27:E29").Range("E30:E32")
gr1 = Application.WorksheetFunction.Sum(gr)
yr1 = Application.WorksheetFunction.Sum(yr)
rr1 = Application.WorksheetFunction.Sum(rr)
If gr1 > yr1 Or rr1 Then
overallrisk = "G"
ElseIf yr1 > gr1 Or rr1 Then
overallrisk = "Y"
ElseIf rr1 > yr1 Or gr1 Then
overallrisk = "R"
End If
エラーが発生しなかったので、うまくいくと思いましたが、セルの範囲に数値を入れても、「全体的なリスク」のセルは空白のままです。
ありがとうございました!