TOPLAMA İŞLEMİ 2

[nihatjeoloji]

TOPLAMA ÝÞLEMÝ 2

Selam

metin kutusu'nda toplama çarpma işlemi yapılabilirmi
yapılmasada o kadar önemli değil

Teşekkürler

 

[Levent Menteşoğlu]

Metin kutusunda toplama ve çarpma işlemi yapılabilir, fakat bunun için vba dan istifade etmek gerekir ve bu çok kolay değildir. Basit bir işlem için uzun kodlar yazmak bence gereksiz. Yinede aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=2859&highlight=metin+kutusu

 

[mesutparlak]

evet metin kutusunda hesaplama yapıla bılır ama bence gereksiz bir bilgi yklesi olur vb kullnmak gerek ve formul şişirmece

 

[nihatjeoloji]

syn leventm ve syn mesutparlak

pardon kusura bakmayın herhalde böyle bir soru sorulmamış diye aramadan sordum. :kafa:

sadece bilgi için soruyorum
tek bir metin kutusu'nda toplama işlemi olabilirmi. ???
:?


çok çok teşekkürler

 

[xxrt]

nihatjeoloji,

tek bir metin kutusu'nda

*Sayfa Üzerinde herhangi bir hücredeki verileri Metin Kutusu İçine Toplatmak..
-Sayfa üzerine bir metin kutusu açıyoruz.
Toplatmak istediğimizHücreler A1 ve A2 Hücrelerinde bulunan değerler olarak.
A1 Hücresi=125,65
A2 Hüücresi=132,55... olsun,
Bu Rakamları Metin Kutusu içinde Toplatmak istiyorsak;
Metin Kutusunu Alan Adları yöntemi ile adlandırıp adına "toplam_yeri" veriyoruz.
Boş bir modül sayfasına şu kodları ilave edip bir düğmeye ilgili makroyu atıyoruz..

METİN KUTUSUNA HÜCRE TOPLAMLARI:
Kodlar:

Sub metin_kutusu_hücreden_topla()
ActiveSheet.Shapes("toplam_yeri").Select
On Error Resume Next
Selection.Characters.Text = WorksheetFunction.Sum(Range("A1:A2"))
Range("A1").Select
End Sub

METİN KUTUSUNA HÜCREDEKİ DEÐERLERİN ÇARPIMLARI:
Aynı değerler ve hücre adresler için.

Sub metin_kutusu_hücreden_carp()
On Error Resume Next
c = Format([a1].Value, "0.00")
r = Format([a2].Value, "0.00")
ActiveSheet.Shapes("toplam_yeri").Select
Selection.Characters.Text = FormatCurrency(c * r)
Range("A1").Select
End Sub

 

[nihatjeoloji]

syn xxrt
bu mükemmel çok sağolun