0

ここに私のコードがあります 

Sub rangking()
Dim mulai As Integer
Dim akhir As Integer
Dim i As Integer
Application.CutCopyMode = False
mulai = 0
akhir = 60
For i = akhir To mulai Step -1
If Range("data!AC" & i).Value > 90 Then
Range("data!AO" & i).Value = "mumtaz"
ElseIf Range("data!AC" & i).Value > 80 Then Range("data!AO" & i).Value = "jayid jiddan"
ElseIf Range("data!AC" & i).Value > 70 Then Range("data!AO" & i).Value = "jayid"
ElseIf Range("data!AC" & i).Value > 60 Then Range("data!AO" & i).Value = "hasan"
ElseIf Range("data!AC" & i).Value > 50 Then Range("data!AO" & i).Value = "kaaf"
ElseIf Range("data!AC" & i).Value > 45 Then Range("data!AO" & i).Value = "makbul"
Else: Range("data!AO" & i).Value = "rosib"
End If

Next i

End Sub

行に「オブジェクト '_global' のメソッド 'range' が失敗しました」というエラーがあります

If Range("data!AC" & i).Value > 90 Then

私を助けてください

4

1 に答える 1

2 
Range("data!AC" & i)

シートを個別に定義する必要がある範囲ではありません。例：

Sheets("data").Range("AC" & i)
于 2012-12-17T02:16:35.280 に答える