Excel ÖSYM 2017 TABLO4 Hızlı Tercih Programı

[Asri]

Excel ÖSYM TABLO4 Hızlı Tercih Programı


* Tüm alanlar bir arada kullanılarak filtreleme yapılabilir
* Sayısal alanların bazıları >= bazıları <= bazılarıda eşit olarak çalışır.
* Metinsel alanlar içerir olarak arama yapar.
* Arama sonucu boş çıkıyor ise diğer filtrelerde bilgi kalmış olabilir.
Diğer filtrelerin boş olduğunu kontrol ediniz.
* ALT Puan ve ÜST Puan ile belirli bir aralıkta puanları listeyebilir siniz.
*ALt Sıra ve Üst Sıra ile başarı sırasını belirli bir aralığa göre listeleyebilir siniz.

* Özel karakter kullanımı Müh*Burs yazılır ise Mühendislik ve Burslu olan bölümler listelenecektir.
? Tek bir karakteri * işareti tüm kelimeleri ifade eder.

* Bu program yardım ve bilgilendirme amaçlıdır.
Tercihlerinizi ÖSYM nin web sitesindeki TABLO4 e göre yapınız.
Tüm sorumluluk kullanıcıya aittir.


http://asriakdeniz.com/excel-osym-2017-tablo4-hizli-tercih-programi

 

[BedriA]

Asri Hocam,

Kodlarınız arasında sözel olarak "kırmızı renkli yazı içeren hücreden başla bir sonraki kırmızı yazılı hücreye kadar" diye bir şey var mı?
Bu arada elinize sağlık.

 

[Asri]

Asri Hocam,

Kodlarınız arasında sözel olarak "kırmızı renkli yazı içeren hücreden başla bir sonraki kırmızı yazılı hücreye kadar" diye bir şey var mı?
Bu arada elinize sağlık.

Tam olarak ne için kullanacaksınız bilmiyorum ama ben üniversite adlarını sola bir boş kolon açıp unikaydir ı çalıştırdım.

Daha sonra bir boş kolon daha açıp bölümleri bir sola kaydırdım.

Univeriste adlarını kırmızı font ile ayırt ettim.
Bölüm adlarını bold özelliği ile ayırt ettim.

Sub unikaydir()
 sonsatir = Cells(Rows.Count, "C").End(3).Row
 For i = 2 To sonsatir
   If Cells(i, "C").Font.Color = 255 Then
     Cells(i, "B").Value = Cells(i, "C").Value
   End If
 Next
End Sub

Sub bolumkaydir()
 sonsatir = Cells(Rows.Count, "D").End(3).Row
 For i = 2 To sonsatir
   If Cells(i, "d").Font.Bold And Cells(i, "d").Font.Color <> 255 Then
     Cells(i, "C").Value = Cells(i, "D").Value
   End If
 Next
End Sub

 

[BedriA]

Univeriste adlarını kırmızı font ile ayırt ettim.

Sorumun cevabı buydu.
Sadece meraktan sordum, konuya bakarken bununla ayırt etmek aklıma gelmişti ama becerememiştim.

 

[BedriA]

Böylesi programların www.egitimhane.com gibi sitelerde paylaşılmasında yarar var.

 

[modoste]

sayın asri hocam emeğinize sağlık teşekkür ederim.

 

[Asri]

Güncelleme V1.1

Metinsel aramalarda özel karakter kullanma bilgisi eklendi. Tüm metinsel alanlar için geçerlidir.
* Özel karakter kullanımı Müh*Burs yazılır ise Mühendislik ve Burslu olan bölümler listelenecektir. ? Tek bir karakteri * işareti tüm kelimeleri ifade eder.

* Fontlar ile ilgili düzenleme yapıldı. Fontlar çok küçüktü büyütüldü.

 

[Asri]

Böylesi programların www.egitimhane.com gibi sitelerde paylaşılmasında yarar var.

Sitenin iletişim bölümünden gönderdim.

 

[Tevfik_Kursun]

Merhaba Sayın Asri Hocam,
Önce ellerinize sağlık, teşekkür ederiz.
Bu çalışma, A mühendisliği kaç farklı yerde var, özel mi, burslu mu, diploması Türkiye'de geçerli mi, ... gibi sorulara cevap olsun diye hazırlandı galiba.
Saygılarımla

 

[Asri]

Merhaba Sayın Asri Hocam,
Önce ellerinize sağlık, teşekkür ederiz.
Bu çalışma, A mühendisliği kaç farklı yerde var, özel mi, burslu mu, diploması Türkiye'de geçerli mi, ... gibi sorulara cevap olsun diye hazırlandı galiba.
Saygılarımla

Hocam, TABLO4 ün tüm alanlarında arama yapabilirsiniz.

Aynı zamanda tüm alanlar bir biri ile bağlantılı olarak da arama yapılabilir.
Örnek: İstanbul daki, Müh*Burs , 400 ile 500 puan aralığındaki , özel koşulu şu olanları listele v.b.

Tüm alanlar bir biri ile bağlantılı ve metinsel içerikli alanlarda * ve ? işaretini kullanabilir siniz.

 

[Tevfik_Kursun]

Elinize sağlık Asri Hocam,
Tekrar teşekkürler
Saygılarımla

 

[Asri]

Güncelleme V1.2

* Tercih listesi eklendi.

Ünivrsite, Fakülte ve Bölüm eksiksiz girildiğinde diğer tüm bilgileri otomatik getirmesi sağlandı. Bu bölümde bir den fazla tercih girilebilir.