Excel'le Adım Adım Program Yazma

Çevrimdışı razor065

  • Üyeliği İptal Edildi
  • 1.129
  • 1.252
  • 1.129
  • 1.252
# 28 Eki 2016 01:11:49
[linkler sadece üyelerimize görünmektedir.]
Sayın hocam sınıf denemelerinde kullanacağım bir excell programı arıyorum. Aslında sitede buldum optixcell diye bir program yapmışlar.Ancak yapan arkadaş paralı yapmış.Burada herkes karşılıksız bilgi ve dosya paylaşırken para istemesi tuhafıma gitti.Programı inceledim, biraz geliştirilmesi lazım.Bahsettiğim programa benzer bir program yapmak için yardıma ihtiyacım var.

paralı dediğiniz şeyin linkini bana atar mısınız, bakalım biraz, önümüzdeki 1 yıl içerisinde çözmeye çalışırım (burada espri yapmadım)

[linkler sadece üyelerimize görünmektedir.]

Çevrimdışı sapinuva

  • Çalışkan Üye
  • ***
  • 24
  • 157
  • 24
  • 157
# 28 Eki 2016 22:17:42
[linkler sadece üyelerimize görünmektedir.]
paralı dediğiniz şeyin linkini bana atar mısınız, bakalım biraz, önümüzdeki 1 yıl içerisinde çözmeye çalışırım (burada espri yapmadım)

[linkler sadece üyelerimize görünmektedir.]
[linkler sadece üyelerimize görünmektedir.]

Çevrimdışı yeni-üye

  • Tecrübeli Üye
  • ****
  • 930
  • 542
  • 930
  • 542
# 02 Kas 2016 21:51:18
excel de bir buton koyup o butona bulundugumuz ayin tarihini girdigimizde ilgili sayfaya o ayin gunlerini gg/aa/yy -   gunler seklinde islenmesini istiyorum ayrica islenen veride hafta sonlari ozel bir renk ile doldurmak istiyorum nasil yapacagimi bilemedim basit bir ornek yapip atan olursa sevinirim.

soyle ki ( tarih giriniz) yazisina tiklayinca 02/11/2016 tarihi el ile girilecek bu tarihi girince alt alta bu tarihin tum gunlerini yazacak hafta sonlarini kirmizi yapacak.

Çevrimdışı salihozenc

  • Tecrübeli Üye
  • ****
  • 111
  • 13.487
  • 2. Sınıf Öğretmeni
  • 111
  • 13.487
  • 2. Sınıf Öğretmeni
# 03 Kas 2016 00:05:33
[linkler sadece üyelerimize görünmektedir.]
Sayın hocam sınıf denemelerinde kullanacağım bir excell programı arıyorum. Aslında sitede buldum optixcell diye bir program yapmışlar.Ancak yapan arkadaş paralı yapmış.Burada herkes karşılıksız bilgi ve dosya paylaşırken para istemesi tuhafıma gitti.Programı inceledim, biraz geliştirilmesi lazım.Bahsettiğim programa benzer bir program yapmak için yardıma ihtiyacım var.
denemede kullanacağım derken puan hesaplamak için mi

Çevrimdışı sapinuva

  • Çalışkan Üye
  • ***
  • 24
  • 157
  • 24
  • 157
# 03 Kas 2016 14:35:19
[linkler sadece üyelerimize görünmektedir.]
denemede kullanacağım derken puan hesaplamak için mi
Evet hocam, biliyorsunuz 3.sınıfta yazılı ve not yok.Ama önümüzdeki yıla hazırlık olsun, veliler öğrencilerin seviyelerini az çok bilsinler , takip etsinler düşüncesi ile düşündüm.

Çevrimdışı albatros44

  • Bilge Üye
  • *****
  • 6.328
  • 47.742
  • Lise Branş Öğrt.
  • 6.328
  • 47.742
  • Lise Branş Öğrt.
# 03 Kas 2016 15:15:44
buldugum .vbs komutu yazip calistiriyorum
lakin bu kodlari excel dosyasina macro olarak nasil kaydederim onu bulamadim

Çevrimdışı salihozenc

  • Tecrübeli Üye
  • ****
  • 111
  • 13.487
  • 2. Sınıf Öğretmeni
  • 111
  • 13.487
  • 2. Sınıf Öğretmeni
# 03 Kas 2016 15:20:51
[linkler sadece üyelerimize görünmektedir.]
Evet hocam, biliyorsunuz 3.sınıfta yazılı ve not yok.Ama önümüzdeki yıla hazırlık olsun, veliler öğrencilerin seviyelerini az çok bilsinler , takip etsinler düşüncesi ile düşündüm.
[linkler sadece üyelerimize görünmektedir.]
buna benzer bişey işinizi görür mü

Çevrimdışı sapinuva

  • Çalışkan Üye
  • ***
  • 24
  • 157
  • 24
  • 157
# 04 Kas 2016 08:52:32
[linkler sadece üyelerimize görünmektedir.]
[linkler sadece üyelerimize görünmektedir.]
buna benzer bişey işinizi görür mü
Hocam emeğinize sağlık. Bahsettiğim önceki uygulamayı incelediyseniz önceki denemeleri kayıt ediyor, detaylı listelemeler oluşturuyordu.O tarz bir şey arıyorum aslında.

Çevrimdışı yunushocam

  • Bilge Meclis Üyesi
  • *****
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
# 15 Nis 2017 10:34:35
Makro ile çalışma hazırlama programı oluşturmak isteyenlere birkaç örnek sunmak istiyorum.

Çevrimdışı yunushocam

  • Bilge Meclis Üyesi
  • *****
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
# 15 Nis 2017 10:37:00
İlk olarak ritmik sayma çalışması hazırlayalım. Ekran görüntüsü

Çevrimdışı yunushocam

  • Bilge Meclis Üyesi
  • *****
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
# 15 Nis 2017 10:39:51
dizideaynisayilarvar:
ReDim ilksayi(5)
ReDim sonsayi(5)

For k = 1 To 5

tekrar:
ilksayi(k) = aradasayi(Range("af5"), Range("ad5"))
artis = Range("ad4")
If Range("ad9") = 1 And ilksayi(k) Mod artis <> 0 Then GoTo tekrar 'ritmik sayma olsun
If Range("ad9") = 2 Then oruntuolacak = oruntuolacak 'örüntü olacağı için öylesine bir eşitlik konuldu. Bir özelliği yok



sonsayi(k) = ilksayi(k) + 9 * artis
If sonsayi(k) > Range("ad6") Then GoTo tekrar

Next k

ay = benzermi(ilksayi, 5)
If ay = "benzer" Then GoTo dizideaynisayilarvar:



'yerleştiriyoruz.
k = 1
For a = 4 To 12 Step 2

 Randomize
If Range("ad7") = 3 Then hangisi = Int(Rnd() * 2 + 1) 'karışık
If Range("ad7") = 1 Then hangisi = 1 'ileri
If Range("ad7") = 2 Then hangisi = 2 'geri




 If hangisi = 1 Then
Cells(a, 2) = ilksayi(k)
Cells(a, 4) = ilksayi(k) + artis
Cells(a, 6) = ilksayi(k) + artis * 2
Cells(a, 8) = ilksayi(k) + artis * 3
 End If


 If hangisi = 2 Then
Cells(a, 2) = sonsayi(k)
Cells(a, 4) = sonsayi(k) - artis
Cells(a, 6) = sonsayi(k) - artis * 2
Cells(a, 8) = sonsayi(k) - artis * 3
End If


k = k + 1

Next a


If Range("ad9") = 1 Then Range("a1") = "RİTMİK SAYMALAR"
If Range("ad9") = 1 Then Range("a3") = "Ritmik saymalardaki boşlukları tamamlayın."

If Range("ad9") = 2 Then Range("a1") = "Örüntüler"
If Range("ad9") = 2 Then Range("a3") = "Aşağıdaki örüntülerde boşlukları tamamlayın."


Çevrimdışı yunushocam

  • Bilge Meclis Üyesi
  • *****
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
# 15 Nis 2017 11:11:40
[linkler sadece üyelerimize görünmektedir.]
dizideaynisayilarvar:
ReDim ilksayi(5)
ReDim sonsayi(5)

For k = 1 To 5

tekrar:
ilksayi(k) = aradasayi(Range("af5"), Range("ad5"))
artis = Range("ad4")
If Range("ad9") = 1 And ilksayi(k) Mod artis <> 0 Then GoTo tekrar 'ritmik sayma olsun
If Range("ad9") = 2 Then oruntuolacak = oruntuolacak 'örüntü olacağı için öylesine bir eşitlik konuldu. Bir özelliği yok



sonsayi(k) = ilksayi(k) + 9 * artis
If sonsayi(k) > Range("ad6") Then GoTo tekrar

Next k

ay = benzermi(ilksayi, 5)
If ay = "benzer" Then GoTo dizideaynisayilarvar:



'yerleştiriyoruz.
k = 1
For a = 4 To 12 Step 2

 Randomize
If Range("ad7") = 3 Then hangisi = Int(Rnd() * 2 + 1) 'karışık
If Range("ad7") = 1 Then hangisi = 1 'ileri
If Range("ad7") = 2 Then hangisi = 2 'geri




 If hangisi = 1 Then
Cells(a, 2) = ilksayi(k)
Cells(a, 4) = ilksayi(k) + artis
Cells(a, 6) = ilksayi(k) + artis * 2
Cells(a, 8) = ilksayi(k) + artis * 3
 End If


 If hangisi = 2 Then
Cells(a, 2) = sonsayi(k)
Cells(a, 4) = sonsayi(k) - artis
Cells(a, 6) = sonsayi(k) - artis * 2
Cells(a, 8) = sonsayi(k) - artis * 3
End If


k = k + 1

Next a


If Range("ad9") = 1 Then Range("a1") = "RİTMİK SAYMALAR"
If Range("ad9") = 1 Then Range("a3") = "Ritmik saymalardaki boşlukları tamamlayın."

If Range("ad9") = 2 Then Range("a1") = "Örüntüler"
If Range("ad9") = 2 Then Range("a3") = "Aşağıdaki örüntülerde boşlukları tamamlayın."





yukarıdaki kodlarda benzermi fonksiyonu var onun kodlarını boş bir modle yerleştirin

Function benzermi(diziadi As Variant, DiziTumElemanSayisi As Integer) As String

For a = 1 To DiziTumElemanSayisi
'don3:
'Randomize
'harfrakam(a) = Int(Rnd() * 10 + 1)
For b = 1 To DiziTumElemanSayisi
If a <> b And diziadi(a) = diziadi(b) And diziadi(a) <> "" Then
benzermi = "benzer"
GoTo 10
Else
benzermi = "benzer değil"
End If

Next b

Next a

10
End Function

Çevrimdışı yunushocam

  • Bilge Meclis Üyesi
  • *****
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
# 15 Nis 2017 11:15:34
aradasayi fonksiyonunu da ekleyin, excelde ve diğer programlama dillerinde fonksiyonları kullanmak işimizi kolaylaştırır


Function aradasayi(buyuk, kucuk)
Randomize
aradasayi = Int(Rnd() * (buyuk - kucuk + 1) + kucuk)
End Function


Çevrimdışı yunushocam

  • Bilge Meclis Üyesi
  • *****
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
# 15 Nis 2017 11:17:45
Örnek dosyayı ekliyorum, inceleyin, basit bir çalışma hazırlama programı, gidiğiniz aralığa ve değerlere göre yeni yeni çalışmalar hazırlar

Çevrimdışı yunushocam

  • Bilge Meclis Üyesi
  • *****
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
  • 1.645
  • 46.370
  • 3. Sınıf Öğretmeni
# 15 Nis 2017 11:18:57
Programı inceleyin elimde bu tarz onlarca çalışma hazırlama programı var. İsteğe veya ihtiyaca göre yenileri paylaşılabilir. İnceleyenlerin ve ilgilenenlerin dönüşlerini bekliyorum.

 


Egitimhane.Com ©2006-2023 KVKK