Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Yazılım ve Donanım (http://www.excel.web.tr/forumdisplay.php?f=52)
-   -   Excel ÖSYM 2017 TABLO4 Hızlı Tercih Programı (http://www.excel.web.tr/showthread.php?t=165474)

asri 14-07-2017 17:56

Excel ÖSYM 2017 TABLO4 Hızlı Tercih Programı
 
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-20...ercih-programi





http://asriakdeniz.com/wp-content/up.../osymekran.jpg

BedriA 14-07-2017 21:10

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 14-07-2017 21:13

Alıntı:

BedriA tarafından gönderildi (Mesaj 901761)
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.


Kod:

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 14-07-2017 21:29

Alıntı:

asri tarafından gönderildi (Mesaj 901763)

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 14-07-2017 21:34

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

modoste 15-07-2017 07:11

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

asri 15-07-2017 14:25

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 15-07-2017 14:51

Alıntı:

BedriA tarafından gönderildi (Mesaj 901766)
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 15-07-2017 21:32

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 16-07-2017 00:37

Alıntı:

Tevfik_Kursun tarafından gönderildi (Mesaj 901842)
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.


Saat 04:38

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.