Sayıyı Çift ya da Çiftin Katı Yapma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub CifteKatla()
If Range("A1") Mod (2) = 0 Then Range("A1") = Range("A1") + 2 Else Range("A1") = Range("A1") + 1
End Sub
Açıklama
Sayıyı Çift ya da Çiftin Katı Yapma işlemiyle, verilen sayıyı ikiyle çarparak çift hale getirme işlemi.Faydalanılması temennisiyle