Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama

LGS 2019 Toplu Sonuç Listesi

Konu, 'MEB Sınavları' kısmında cihanaykutlug tarafından paylaşıldı.


Sayfayı Paylaş /bbnetsosyal

  1. pascalant

    pascalant Üye

    Kayıt:
    27 Kasım 2016
    Mesajlar:
    6
    Beğeni:
    1
    hocam aşağıdaki kodlar tcno ve güvenlik kodunu da alıyor.

    Kod:
    Public Sub ogrenci_getir()
    
        Dim iSatir, cSatir, i, cSutun, j As Integer
        cSatir = 8
        cSutun = 18
        j = 0
        For iSatir = 0 To 5
            ActiveSheet.Cells(1, cSutun) = ActiveSheet.Cells(cSatir + iSatir, 4)
               
                    ActiveSheet.Cells(2, cSutun) = ActiveSheet.Cells(7, 7)
                    ActiveSheet.Cells(2, cSutun + 1) = ActiveSheet.Cells(7, 9)
                    ActiveSheet.Cells(2, cSutun + 2) = ActiveSheet.Cells(7, 11)
                 
                    cSutun = cSutun + 3
            Next iSatir
            ActiveSheet.Cells(1, cSutun-3) = ActiveSheet.Cells(cSatir + iSatir, 4)
    
                cSatir = 8
        cSutun = 16
            ActiveSheet.Cells(2, (cSutun -1)) = "TC NO"
            ActiveSheet.Cells(2, (cSutun)) = "Ad Soyad"
            ActiveSheet.Cells(2, (cSutun+1)) = "Güvenlik"
            ActiveSheet.Cells(2, (cSutun + 20)) = "Puan"
            ActiveSheet.Cells(2, (cSutun + 21)) = "Yüzdelik"
            For iSatir = 3 To 53
             j = -1
            ActiveSheet.Cells(iSatir, cSutun- 1) = ActiveSheet.Cells(cSatir-6, 8)
            ActiveSheet.Cells(iSatir, cSutun ) = ActiveSheet.Cells(cSatir - 5, 8)
            ActiveSheet.Cells(iSatir, cSutun+1 ) = ActiveSheet.Cells(cSatir - 6, 13)
                For i = 0 To 7
                    if i<>5 Then 
                    j=j+1 
                    End If
    
                    ActiveSheet.Cells(iSatir, cSutun + 2 + j * 3) = ActiveSheet.Cells(cSatir + i, 7)
                    ActiveSheet.Cells(iSatir, cSutun + 3 + j * 3) = ActiveSheet.Cells(cSatir + i, 9)
                    ActiveSheet.Cells(iSatir, cSutun + 4 + j * 3) = ActiveSheet.Cells(cSatir + i, 11)
                   
                    Next i
                    ActiveSheet.Cells(iSatir, (cSutun + 20)) = ActiveSheet.Cells(cSatir + 9, 7)
                    If ActiveSheet.Cells(cSatir + 7, 4) <> "" Then
                    ActiveSheet.Cells(iSatir, (cSutun + 21)) = Split(ActiveSheet.Cells(cSatir + 7, 4), "%")(1)
                    End If
                   
                    cSatir = cSatir + 18
            Next iSatir
        MsgBox " Liste oluşturuldu ...."
    
    End Sub
    
     
    Son düzenleme: 29 Haziran 2019

Sayfayı Paylaş /bbnetsosyal