Analiz Programı Yardım

Kodla Büyü

serkanholep

Seçkin Üye
Seçkin Üye
Mesajlar
709
Arkadaşlar Ekteki programı forumumuzda veya internette gezen bazı excel analiz dosyalarının karışımı olarak hazırladım. önemli bir kodu da yakuphan nickli hocam verdi

şimdi hocalarımızdan biri şunu istedi. öğrenci isminin üzerine gidildiğinde öğrencinin numarası ile bir klasörde ki aynı isimli resmi açıklama bölümünde gösterebilirmi program

yani açıklamada yazı değil resim olabilir mi
 

Ekli dosyalar

  • Sekonaliz.rar
    655.3 KB · Görüntüleme: 87
Hangi çalışma sayfasındaki öğrenci isimlerine açıklama eklenecek?
1. SINAV klasöründeki mi, yoksa?
Resimlerin boyutları standart olacak mı?
 
yakuphan' Alıntı:
Hangi çalışma sayfasındaki öğrenci isimlerine açıklama eklenecek?
1. SINAV klasöründeki mi, yoksa?
Resimlerin boyutları standart olacak mı?

bütün sayfalarda (1.sınav,2,sınav,3,sınav,dönem sonu) olacak hocam

aslında üstteki kod sanki istediğim kod gibi ama değişiklik falan yapılmıyor ya da değişiklik yapılacak bir kod değil

resim boyutları eokul formatındaki resimler olacak
 
Ekteki dosya işinizi görecektir.
İşi yapan kodlar sayfanın kodunu göster dedikten sonra
worksheet_activate içerisine eklendi.
sekoanaliz.xls dosyası ve resimler klasörü beraber taşınmalı. öğrenci resimleri resimler klasörüne .jpg uzantısı ile öğrenci numaraları isim olarak kullanılarak klasöre konulmalıdır. Örnek resimlere bakabilirsiniz.
resmi olmayan öğrenciye açıklama eklenmemektedir. Kodlar olası hataları engelleyecek şekilde kodlanmıştır.
Ben kod içerisinde resimlerin 120x90 boyutlarda gösterilecek şekilde ayarladım. Siz kendi resimlerinize göre orantılı bir değere ayarlarsınız.
 

Ekli dosyalar

  • analiz.zip
    2.3 MB · Görüntüleme: 34
serkanholep' Alıntı:
hocam sağolun sizin eseriniz oldu program. teşekkür ettim
Bir şey değil :)
Ben de Excel'in sınırlarının olmadığını görme şansı buldum.
Her zaman çevremdekilere "Excel varsa başka bir programa ihtiyaç yok" derim. Yeter ki VBA öğrenip, programlama mantığını uygulayın.
 
serkanholep' Alıntı:
hiç anlayamadım kodu

hocam kod gayet basit ve açıklayıcı, eleman açıklamış değiştirilmesi gereken yerleri
Kod:
'change this to the range that contains the file names in your workbook
Set rngList = Range("A1:A5")

'change this to the folder path for your picture files
strPic = "C:\Data\"

rngList aralık için, strPic C:\Data klasörünü yol olarak gösteriyor resmilere

kodu kullanacağın yerde InsertComment diye çağıracaksın. biraz geliştirip Sub içine range değeri gönderip aralığı değişken hale getirebilirsin.
 
Geri
Üst