Sayıyı Çift ya da Çiftin Katı Yapma
24 Şubat 2021
803
Sayıyı Çift ya da Çiftin Katı Yapma isimli kodu kullanarak hücredeki sayıları çift ve katları olacak şekilde kolayca yazdırabilirsiniz.
Sub CifteKatla()
If Range("A1") Mod (2) = 0 Then Range("A1") = Range("A1") + 2 Else Range("A1") = Range("A1") + 1
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Hücreyi Kopyalama/Çoğaltma | Ctrl Sürükle |
| Bitişik Olmayan Hücreler Seçme | Ctrl Tıklama |
| Hücreleri biçimlendirme ekranını açma | Ctrl 1 |
| İşlem Yapılmış En Alt Hücreye Gitme | Ctrl End |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |