• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü font ve toplama

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
I

ilkay94

Yeni Üye
Kullanıcı Bilgileri
Katılım
27 Nis 2022
Mesajlar
139
Aldığı beğeni
9
Excel Versiyonu
Office 2016 TR
Konuyu Başlatan
Merhaba Arkadaşlar,

Herkese hayırlı cumalar,

Aşşağıda ki 2 konu için yardımlarınızı rica ediyorum,

Aşşağıda ki L5 hücresine öncelikle D5*H5 ve bu sonucuda B5 ile toplayıp yazdırmak istiyorum ama yapamadım,

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Aşşağıda ki kodlamanın daha basit kısa hızlı bir yolu var mıdır acaba,


Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Çözüm
mozuer
Yüklü verili dosyalarda;
1. Select yöntemi yerine (Range("L7:L1000").Select) With yöntemini kullanın
With Range("L7:L1000")
....
End With
yöntemini kullanmak kodu hızlandırır
2. Hücre değerleriyle işlem yapılacaksa
Range("L5") = Range("D5") * Range("H5") + Range("B5") yerine
Range("L5").Value2 = Range("D5").Value2 * Range("H5").Value2+ Range("B5").Value2
yöntemini kullanın
Tarihe göre sırala Oylara göre sırala
aşağıdaki kısım tekrarlamış gibi aynı alanın aynı özellikleri var ve dikkatimden kaçan bir yer yoksa VerticalAlignment dışındakilerin değeri de birebir aynı
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
----------------------------------------
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Yüklü verili dosyalarda;
1. Select yöntemi yerine (Range("L7:L1000").Select) With yöntemini kullanın
With Range("L7:L1000")
....
End With
yöntemini kullanmak kodu hızlandırır
2. Hücre değerleriyle işlem yapılacaksa
Range("L5") = Range("D5") * Range("H5") + Range("B5") yerine
Range("L5").Value2 = Range("D5").Value2 * Range("H5").Value2+ Range("B5").Value2
yöntemini kullanın
 
Olumlu oy 1 Negatif oyla
Çözüm
halily' Alıntı:
aşağıdaki kısım tekrarlamış gibi aynı alanın aynı özellikleri var ve dikkatimden kaçan bir yer yoksa VerticalAlignment dışındakilerin değeri de birebir aynı
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
----------------------------------------
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Genişletmek için tıkla...
Teşekkür ederim hocam.
 
Olumlu oy 0 Negatif oyla
mozuer' Alıntı:
Yüklü verili dosyalarda;
1. Select yöntemi yerine (Range("L7:L1000").Select) With yöntemini kullanın
With Range("L7:L1000")
....
End With
yöntemini kullanmak kodu hızlandırır
2. Hücre değerleriyle işlem yapılacaksa
Range("L5") = Range("D5") * Range("H5") + Range("B5") yerine
Range("L5").Value2 = Range("D5").Value2 * Range("H5").Value2+ Range("B5").Value2
yöntemini kullanın
Genişletmek için tıkla...
Teşekkür ederim hocam.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst