Google Form'dan Excel'e Test Okuma

[Muhammet Okumuş]

excel.web.tr ekibinin katkılarıyla hazırlamış olduğum test okuma dosyasını sizlerle paylaşıyorum.

 

[Muhammet Okumuş]

Link-Cevap kısmında nümerik klavyede 1-A, 2-B, 3-C, 5-D şıklarını yazar
6 ise son şıktan başlamak üzere tek tek siler.

Test sayfasında aktif hücre hangi öğrencideyse W tuşuna bastığımızda siler.

Test sayfası resim olarak kopya hücresini tıkladığımızda test sayfasının görselini kopyalar, Wsapp'a direkt yapıştırabilirsiniz.

 

[klop01]

Muhammet Hoca'm,
Güzel bir çalışma olmuş. Sağ olun.

* Nümerik klavyede 4'ü neden atladınız, merak ettim?
* 6 ile silince 1 ve 2'deki cevapları silmiyor.

 

[Muhammet Okumuş]

Videoyu izlemişseniz link solda cevaplar sağda idi. Sonra değişiklik yaptım.

Daha önceden öğrenci cevaplarını el ile giriş yapıyordum. 4 boş şık anlamına geliyordu. El alışkanlığı kazandığım için değiştirmek istemedim.(Böylesi daha hızlı oluyor) (Tuşa makro ata kısmını Korhan Bey ayarlamıştı)

Sub Sil()
süt = WorksheetFunction.CountA(Range("G4:AJ4")) + 5
If süt = 4 Then Exit Sub
Cells(4, süt) = ""
End Sub
Sil makrosundaki If süt = 4 Then Exit Sub şeklinde düzeltin.

 

[Muhammet Okumuş]

 

[klop01]

Size bilgi olsun diye yazıyorum.

1 sorudaki cevap yine silinmiyor.
Bir de herhangi bir hücrede iken 4'e basınca 4 yazıyor. Sonra onu silip 1, 2, 3, 5 basınca yazmıyor.

 

[Muhammet Okumuş]

Tuş Aç makrosuna,
Application.OnKey "{100}", "" ilave edersiniz 4'e basınca işlem yapmaz.

Tuş Kapa makrosuna da
Application.OnKey "{100}" ilave etmeniz gerekir.



Sub Sil()
süt = WorksheetFunction.CountA(Range("E4:AH4")) + 4
Cells(4, süt) = ""
End Sub

şeklinde değiştiriniz.

 

[farisakboga]

excel.web.tr ekibinin katkılarıyla hazırlamış olduğum test okuma dosyasını sizlerle paylaşıyorum.

0425_TRK_Paragraf-ZıtAnlam (Yanıtlar)

Form Yanıtları 1 Zaman damgası,Puan,AD SOYAD,OKUL NO,SORU-1,SORU-2,SORU-3,SORU-4,SORU-5,SORU-6,SORU-7,SORU-8,SORU-9,SORU-10,SORU-11,SORU-12,SORU-13,SORU-14,SORU-15,SORU-16 25.04.2020 11:52:30,75 / 100,öğrenci1,567,A,B,C,A,A,A,C,B,B,C,A,C,A,B,A,C 25.04.2020 13:15:53,85 / 100,öğrenci2,549,C,B,C,A,A,B

docs.google.com

Yukarıdaki şablona uyarlamaya çalıştım ancak başaramadım. Hazırladığınız dosyayı bu şablona göre düzenleyip paylaşırsanız çok makbule geçecek. Teşekkür ederim.

 

[farisakboga]

"https://docs.google.com/spreadsheets/d/1fq_OKTU1RLYENgiqViJOtDMvQvRW1t7ysuRIOHFdTko/edit#gid=1230841574"

Yukarıdaki şablona uyarlamaya çalıştım ancak başaramadım. Hazırladığınız dosyayı bu şablona göre düzenleyip paylaşırsanız çok makbule geçecek. Teşekkür ederim.

 

[farisakboga]

"https://docs.google.com/spreadsheets/d/1fq_OKTU1RLYENgiqViJOtDMvQvRW1t7ysuRIOHFdTko/edit?usp=sharing"

 

[farisakboga]

Google Sheet yapısı 1 No'lu mesaj ekindeki dosyada kullanılan Google Sheet yapısından farklı.... Aynı tablo yapısını kullanıp, tekrar deneyin bence.

.

Şu ana kadarki tüm sınavları bu şablonla yaptım. 1. ve 2. soruların cevaplarını görmüyor sadece. Kodlar üzerinde oynama yapmaya çalıştım ama nerede yapılacağını bulamadım. Kodlar benim şablondaki 2. ve 3. sütunu atlarsa herşey yerli yerine oturacak gibi. yardımcı olursanız çok makbule geçecek.

 

[Muhammet Okumuş]

Sub Google_Form()
'by Haluk
'Zaman = Timer
Sheets("Google").Select
Dim myURL As String, mySh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("A1:ZZ1000") = ""

myURL = Sheets("Link-Cevap").Range("AJ4").Text



With ActiveSheet.QueryTables.Add(Connection:="URL;" & myURL, Destination:=Range("$A$1"))
.Name = "myTable"
' .FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables
.WebTables = 1

.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
"İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation

Rows(1).Delete
Columns(1).Delete
Columns(2).Delete
Columns(2).Delete
son = Cells(Rows.Count, 1).End(3).Row

For i = son To 2 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete
Next
Sheets("Test").Range("C8:AV107") = ""
Sheets("Test").Range("C8:AV107").Interior.ColorIndex = xlNone
son = Cells(Rows.Count, 1).End(3).Row
Sheets("Test").Range("D8107") = Range("B2:B101").Value
Sheets("Test").Range("S8:AV107") = Range("C2:AF101").Value
Sheets("Test").Select
Range("BD6").Select
Range("BG15") = WorksheetFunction.CountA(Sheets("Test").Range("S6:AV6"))
Range("C8:AV100").Borders.LineStyle = 0
son = Cells(Rows.Count, 4).End(3).Row
If son < 8 Then Exit Sub
Range("E8:E" & son) = "=IFERROR(VLOOKUP(D8,Liste!B:C,2,0),""???"")"
Range("E8:E" & son) = Range("E8:E" & son).Value

End Sub

Kodu bunla değişin veya

Columns(1).Delete
satırının altına
Columns(2).Delete
Columns(2).Delete
ekleme yapınız ve listenize öğrenci adlarını ekleyiniz.

 

[farisakboga]

Kodu bunla değişin veya

Columns(1).Delete
satırının altına
Columns(2).Delete
Columns(2).Delete
ekleme yapınız ve listenize öğrenci adlarını ekleyiniz.

Çok teşekkür ederim. Elinize sağlık!

 

[mrwarrior]

Hocam gerçekten çok güzel bir program. Ben de zipgrade için yaptım buna benzer bir program. Sizinki bilgileri kendisi alması çok güzel olmuş.

 

[Muhammet Okumuş]

Aslında ben de bunu zipgrade için yapmıştım. Sonra Google Form'a entegre ettim.

 

[mrwarrior]

 

[mrwarrior]

Bu da benim ki. Ama biraz daha geliştirdim. Yakında yeni halini yayınlayacağım. Mantık aynı. Sizin Google formdan veri almanız çok güzel olmuş. Keşke zipgradede de olsa.

 

[cetabdulah]

güzel çalışma teşekkürler nasıl indireceğiz formu

 

[Muhammet Okumuş]

Zipgrade adres olarak vermiyor. Zipgrade soruları yükleme kolaylığı açısından avantajlı. Google pdf yüklemeye izin vermiyor.

 

[mrwarrior]

Aynen sizin kodlarınız ile bende veri çekmeye çalıştım. Aldığım verileri kendi dosyama uyumlu olsun diye CSV çıktısı haline getirdim
Kısa vadeli olarak bulunsun dedim. Uzun vadede google form un kullanılması mümkün değil. Sonuçta bi yerden sonra yüzyüze eğitim başlayacak.

Hakkınızı helal edin hocam.