Hücrenin Kendisi İle Çarpma içeriğinde, bir hücredeki değerin farklı bir hücredeki değerle yardımcı sütun kullanmadan çarpılmasını öğreten kodlar bulunmaktadır.
[*]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.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.
Örneğin: A2 hücresinde 108 yazılıdır. B2 hücresinde de 276 yazılıdır. A2 hücresinin, =108*B2 şeklinde değiştirilmesi istenilmektedir.
Üstteki kod parçası, tam olarak örnekte tarif edilen işlemi yerine getirmektedir. Kodlar, A ve B sütunlarının 2. satırlarından itibaren işlem yapacak şekilde yazılmıştır. Benzer ihtiyacı olanlar, satır ve sütunları kendine göre revize edebilirler.
Faydalanılması temennisiyle.
Kod:
Sub HucreCarp()
Dim Aralik As Range, Satir As Integer, Sayi As String
Satir = 2
For Each Aralik In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If Aralik.Value <> "" Then
If IsNumeric(Aralik.Value) Then
Sayi = Replace(Split(Aralik.Formula, "*")(0), "=", "")
Aralik.Formula = "=" & Sayi & "*B" & Satir
Satir = Satir + 1
End If
End If
Next
End SubUygulama Adımları
[*]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.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.
Açıklama
Bir hücrede bulunan değerlerin korunarak, başka bir hücredeki değerler ile çarpılmasına ihtiyaç bulunmaktadır. Lakin, bu işlem içinde direk veri olarak değil, formül olarak yazılması gerekmektedir.Örneğin: A2 hücresinde 108 yazılıdır. B2 hücresinde de 276 yazılıdır. A2 hücresinin, =108*B2 şeklinde değiştirilmesi istenilmektedir.
Üstteki kod parçası, tam olarak örnekte tarif edilen işlemi yerine getirmektedir. Kodlar, A ve B sütunlarının 2. satırlarından itibaren işlem yapacak şekilde yazılmıştır. Benzer ihtiyacı olanlar, satır ve sütunları kendine göre revize edebilirler.
Faydalanılması temennisiyle.
