Konu: Javascript Programlama Dilini Öğrenmek İsteyenler  (Okunma sayısı 17075 defa)

smyi

  • Bilge Meclis Üyesi
  • *****
  • 3. Sınıf Öğretmeni
  • İleti: 1.905
  • Teşekkür 11664
    • Çevrimdışı
  • # 02 Oca 2020 17:16:05
rica ederim [linkler sadece üyelerimize görünmektedir.]   öğretmenim. yardımcı olabilmek beni mutlu ediyor. bıkkınlık yok asla :)

nuyhuy

  • Uzman Üye
  • *****
  • 3. Sınıf Öğretmeni
  • İleti: 425
  • Teşekkür 990
    • Çevrimdışı
  • # 09 Oca 2020 09:21:21
[linkler sadece üyelerimize görünmektedir.] hocam excell de boş karelere 0(sıfır) yazsın istiyorum Dolu kareler hariç böyle bir formül var mı

smyi

  • Bilge Meclis Üyesi
  • *****
  • 3. Sınıf Öğretmeni
  • İleti: 1.905
  • Teşekkür 11664
    • Çevrimdışı
  • # 09 Oca 2020 16:32:41
[linkler sadece üyelerimize görünmektedir.]
[linkler sadece üyelerimize görünmektedir.] hocam excell de boş karelere 0(sıfır) yazsın istiyorum Dolu kareler hariç böyle bir formül var mı
sıfırla doldurmak istediğimiz alanı seçiyoruz. F5'e basıyoruz. "özel" düğmesine basıp "Boşluklar"ı seçiyoruz. tamam diyip, sıfır(0) yazıp ctrl+enter tuşlarına basıyoruz.

kuluncak

  • Tecrübeli Üye
  • ****
  • 3. Sınıf Öğretmeni
  • İleti: 593
  • Teşekkür 2768
    • Çevrimdışı
  • # 12 Oca 2020 08:49:27
[linkler sadece üyelerimize görünmektedir.] hocam merhabalar, excel de yapmak istediğim bir şey var nette araştırdım, ilgili kodu da buldum ancak yine de yapamadım.
Yapmak istediğim A1 hücresinde yazan metni B1 hücresinde yazan sayı kadar çoğaltma. A1 de Okul yazıyor B1 de 5 yazıyor ise başka  bir yerde alt alta 5 kez Okul yazmalı bunu tüm sınıf listesi için yapmak istiyorum.

Bulduğum kod:

Sub Cogalt()

    Dim i   As Long, _
        j   As Long, _
        k   As Long
   
    Range("D:E").Clear
    j = 1
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        j = j + 1
        k = j + Cells(i, "B") - 1
        Range("D" & j & ":D" & k) = Cells(i, "A")
        Range("E" & j) = Cells(i, "B")
        With Range("E" & j & ":E" & k)
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = True
        End With
        j = k
    Next i
   
End Sub

smyi

  • Bilge Meclis Üyesi
  • *****
  • 3. Sınıf Öğretmeni
  • İleti: 1.905
  • Teşekkür 11664
    • Çevrimdışı
  • # 12 Oca 2020 12:26:20
[linkler sadece üyelerimize görünmektedir.] hocam;
değişik versiyonları ile oluşturdum. inceleyin, değiştirilmesi gereken yer olursa yardımcı olurum

kuluncak

  • Tecrübeli Üye
  • ****
  • 3. Sınıf Öğretmeni
  • İleti: 593
  • Teşekkür 2768
    • Çevrimdışı
  • # 12 Oca 2020 17:05:16
[linkler sadece üyelerimize görünmektedir.] hocam teşekkür ederim elleriniz dert görmesin.

 

Egitimhane.Com ©2006-2023