sınav değerlendirme

[sutpinar]

kardeş bir sınav yaptım. 17 öğrenci sınava girdi. aldığım raporda öğrencilerin kodlamaları var. KALIN/BOLD olanlar doğru, diğerleri ise yanlış cevaplar. şimdi ben doğru olanlara "100", yanlış olanlara "0" değerini nasıl verebilirim. yardımcı olursanız çok sevinirim. sizin buna benzer çalışmanız varmış. teşekküler.

 

[Ömer]

Merhaba,

Eki inceleyiniz. Ayırca toplam satırındaki verileri formülün sona *100 yaparak çarpabilirsiniz..

Detaylı bilgi için linki inceleyiniz..

Renkli zemin ve Font Özelliklerine Göre Uygulamalar

.

 

[sutpinar]

Elinize sağlık çok güzel olmuş teşekkür ederim. Ama benim istediğim şu örneğin "E" kalın ise "100" olsun, eğer "kalın " değilse "0" olsun. Toplama yapmasına gerek yok.

 

[Ömer]

Elinize sağlık çok güzel olmuş teşekkür ederim. Ama benim istediğim şu örneğin "E" kalın ise "100" olsun, eğer "kalın " değilse "0" olsun. Toplama yapmasına gerek yok.

Sub Değiş()
Application.ScreenUpdating = False
Dim hucre As Range
For Each hucre In Range("B8:AC24")
  If hucre.Font.Bold = True Then
     hucre = 100
  Else
     hucre = 0
  End If
Next
Application.ScreenUpdating = False
End Sub

Butona bağlayarak çalıştırınız..

.