Selamlar,
Bir macro sorum var.
Sub puanlama()
Dim i As Integer
Dim puan As Integer
For i = 151 To 154
If Cells(i, 8).Value = 1 Then
puan = 0
ElseIf Cells(i, 8).Value = 2 Then
puan = 5
ElseIf Cells(i, 8).Value = 3 Then
puan = 10
ElseIf Cells(i, 8).Value = 4 Then
puan = 15
ElseIf Cells(i, 8).Value = 5 Then
puan = 20
End If
Next i
End Sub
şimdi bu kodda ben istiyorum ki bu her i değeri için hesaplanan puanların toplamını alabileyim ama bunu workbook üzerinde bir yere yazmadan yapmak istiyorum. yani kod içinde bi değişken bu değeri taşımalı. nasıl yapabilirim bu toplama işini?
Bir macro sorum var.
Sub puanlama()
Dim i As Integer
Dim puan As Integer
For i = 151 To 154
If Cells(i, 8).Value = 1 Then
puan = 0
ElseIf Cells(i, 8).Value = 2 Then
puan = 5
ElseIf Cells(i, 8).Value = 3 Then
puan = 10
ElseIf Cells(i, 8).Value = 4 Then
puan = 15
ElseIf Cells(i, 8).Value = 5 Then
puan = 20
End If
Next i
End Sub
şimdi bu kodda ben istiyorum ki bu her i değeri için hesaplanan puanların toplamını alabileyim ama bunu workbook üzerinde bir yere yazmadan yapmak istiyorum. yani kod içinde bi değişken bu değeri taşımalı. nasıl yapabilirim bu toplama işini?
@birdenbire
sanırım meramımı tam anlatamamışım. benim istediğim şey aslında her bir satır için hesaplanan puan değerlerinin toplamı. yani 151. satırdan 154. satıra kadar her satır için bi puan değeri hesaplıyorum ya, işe o değerlerin toplamını nasıl hesaplayabilirim?
sijwocaq
En yukarıya yine bir değişken tanımlayın şu şekilde:
Dim toplam as Integer
toplam = 0
...
End If altına, Next i üzerine de:
toplam = toplam + puan
yazın. Kaç satır döndü ise, o satırlardaki toplam puan değerini toplam değişkeninde tutmuş olursunuz.
birdenbire
1