[]
Excel'ciler bi yardım
veri girişi yapıyorum, aynı satıra rakamsal olarak değer giriyorum.
örneğin;F 10 satırına rakamsal olarak 10 girdim. sonra üzerine hesap makinesi ile 15 ekleyip 25 yazıyorum. sormak istediğim 10 yazan satırın uzerıne +15 yazıp entera basınca satırı ototamatık olarak duzenleyen sonucu 25 olarak satırda gösterecek bır formul varmı ?
örneğin;F 10 satırına rakamsal olarak 10 girdim. sonra üzerine hesap makinesi ile 15 ekleyip 25 yazıyorum. sormak istediğim 10 yazan satırın uzerıne +15 yazıp entera basınca satırı ototamatık olarak duzenleyen sonucu 25 olarak satırda gösterecek bır formul varmı ?
hücre değeri 10'ken yanına +15 yazınca sonucu 25 göstermesini istiyorsan hücrenin başına da + işareti koy, yani alttaki gibi olsun.
ilk hali : 10
ekleme sonrası : +10+15
ilk hali : 10
ekleme sonrası : +10+15
- cakabo (20.02.12 15:28:51)
sanırım arkadaş başka bişeyden bahsediyor bende uğraştım ama olmadı. bir seferlik değil her hücreye girilen yeni değeri mevcut değere eklesin istiyor.
- gostak (20.02.12 16:09:01)
@gostak doğru söyledin tam istediğim o aynen.
- Bysb (20.02.12 16:17:28)
Alttaki kod A1 hücresine girilen değeri toplayacak şekilde düzenlenmiştir.
Farklı bir hücre istiyorsan kodun içinde A1 yazan yeri değiştirebilirsin.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static Topla As Double
If Target.Address(False, False) = "A1" Then
If Not IsEmpty(Target.Value) And IsNumeric(Target.Value) Then
Topla = Topla + Target.Value
Else
Topla = 0
End If
Application.EnableEvents = False
Target.Value = Topla
Application.EnableEvents = True
End If
End Sub
Farklı bir hücre istiyorsan kodun içinde A1 yazan yeri değiştirebilirsin.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static Topla As Double
If Target.Address(False, False) = "A1" Then
If Not IsEmpty(Target.Value) And IsNumeric(Target.Value) Then
Topla = Topla + Target.Value
Else
Topla = 0
End If
Application.EnableEvents = False
Target.Value = Topla
Application.EnableEvents = True
End If
End Sub
- cakabo (20.02.12 17:03:30 ~ 17:55:58)
1