Vb. Excelde hücrelerde yazılı formülleri VB çevirmek

[mrtdnmz68]

Merhabalar
Formüllerle excelde hücrelere yazmış olduğum ( tablodan alarak kendini tekrar eden sıralarda ) işlemleri excel hücrelerinde tablo yapmıştım fakat taşırken hata yapabiliyorum bu işlemleri VB nasıl taşırım..
Örnegin :
C15=(H4+M5-3)*-1+(20+5-3)*-1
gibi

Hazır olan tablodan H4 ü alıp M5 ile toplayıp -1 çarpıp sonrada diğer işlemleri yapıp mesela C15 hücreisine sonuç yazdırmak istiyorum

 

[muygun]

Merhaba;
sayfanın kod bölümüne;

Sub işlem()
Cells(15, "c") = (Cells(4, "h") + Cells(5, "m") - 3) * -1 + (20 + 5 - 3) * -1
End Sub

kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[Muzaffer Ali]

Merhaba.
Excel dersanesinde biraz vakit harcasanız çok iyi olur.

Excel Dersanesi


Formül şu şekilde olacak.

Range("C15")=(Range("H4")+Range("M5")-3)*-1+(20+5-3)*-1

 

[mrtdnmz68]

teşekkürler M Uygun ve Dalgalı kur yazıp kontrol deceğim
daha çok yeniyim sağolun

 

[Ömer BARAN]

Merhaba.

Verdiğiniz formül gerçekte kullandığınız bir formül ise aşağıdaki gibi daha sade olmaz mı?
.

Sub hesapla()
    [C15] = -[H4] - [M5] - 19
End Sub

 

[mrtdnmz68]

M Uygun ve Dalgalı kur yeniden merhabalar
teşekkürler çok sağlam oldu lakin size bir örnek satır göndereceğim
bu satır toplamı 27 olması gerkirken 17 olarak yazıyor acaba neden?
Cells(33, "f") = (Cells(1, "j") + Cells(4, "j") + 2) * 1 + (10 + 1) + (5 - 0 + 1) * -1

tabloda J1=10 (on) ve J4= 0 (sıfır) rakamlarından oluşmakta
acaba o (sıfır) rakamınımı kabul etmiyor.
saygılarımla

 

[mrtdnmz68]

Merhaba.
Excel dersanesinde biraz vakit harcasanız çok iyi olur.

Excel Dersanesi


Formül şu şekilde olacak.

Range("C15")=(Range("H4")+Range("M5")-3)*-1+(20+5-3)*-1

Dalgalı kur yeniden merhabalar
teşekkürler çok sağlam oldu lakin size bir örnek satır göndereceğim
bu satır toplamı 27 olması gerkirken 17 olarak yazıyor acaba neden?
Cells(33, "f") = (Cells(1, "j") + Cells(4, "j") + 2) * 1 + (10 + 1) + (5 - 0 + 1) * -1

tabloda J1=10 (on) ve J4= 0 (sıfır) rakamlarından oluşmakta
acaba o (sıfır) rakamınımı kabul etmiyor.
saygılarımla

 

[muygun]

Çarpan;
* 1
yerine *-1 değilmiydi?

 

[Muzaffer Ali]

Dalgalı kur yeniden merhabalar
teşekkürler çok sağlam oldu lakin size bir örnek satır göndereceğim
bu satır toplamı 27 olması gerkirken 17 olarak yazıyor acaba neden?
Cells(33, "f") = (Cells(1, "j") + Cells(4, "j") + 2) * 1 + (10 + 1) + (5 - 0 + 1) * -1

tabloda J1=10 (on) ve J4= 0 (sıfır) rakamlarından oluşmakta
acaba o (sıfır) rakamınımı kabul etmiyor.
saygılarımla

Önce hangi işlemin yapılmasını istiyorsan onları parantez içine al.
Matematikte kuraldır bu önce parantez içi hesaplanır.
Eğer parantez içine almamışsan önce çarpma sonra bölme sonra toplama en sonda çıkarma işlemi yapılır.
Bu kurala dikkat etmelisin

Sub Örnek()
    MsgBox 4 + 5 * 3 'Önce 5 ile 3'ü çarpar =15  sonra 4 ile toplar. = 19
    MsgBox (4 + 5) * 3 ' Önce 4 ile 5'i toplar =9 sonra 3 ile çarpar =27
End Sub