• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

hücre değerini varsayılan olarak negatif yapmak mümkün müdür?

  • Konbuyu başlatan Konbuyu başlatan igloo
  • Başlangıç tarihi Başlangıç tarihi
I

igloo

Katılım
6 Ocak 2006
Mesajlar
16
Excel Vers. ve Dili
2006
herhangi bir hücreye (+) veya (-) sayı girildiğinde, bu sayının her durumda (-) kalmasını istiyorum.

bunu mali tablolarda kullanacağım. mesela bilançoda 257 birikmiş amortismanlar hesabı negatif çalışır. elemanın bu hesap için hücreye gireceği rakamın her durumda negatif olması gerekiyor.

var mı bir yolu ???
 
Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız A1:A500 aralığına sayı girildiğine negatife çevirir:

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:a500")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Target) Then
Target = Abs(Target) * (-1)
End If
Application.EnableEvents = True
End Sub
 
.

1. İlgili hücreleri, -1 ile çarpın veya bölün.

2. Aşağıdaki gibi kod kullanabilirsiniz.

Kod: 
Sub Cevir()
Dim C As Range
For Each C In Selection
C.Value = -C.Value
Next C
End Sub


3. Amaç sadece görüntüyü kurtarmak ise; hücreyi İsteğe uyarlanmış olarak -0,00 yapın.


.
 
teşekkür ederim cevabınız için.

bir aralık için değilde sayfa içinde dağınık yerlerdeki farklı tekil hücreler için uygulamak istersem kodu revize edebilir miyiz?
 
igloo' Alıntı:
teşekkür ederim cevabınız için.

bir aralık için değilde sayfa içinde dağınık yerlerdeki farklı tekil hücreler için uygulamak istersem kodu revize edebilir miyiz?
Genişletmek için tıkla ...

Eğer o yerler önceden belliyse ya da belli edilmesi için bir kural varsa A1:A500 aralığı belirlendiği gibi o hücreler de belirtilebilir. Örneğin "solunda 257 birikmiş amortismanlar yazan hücrelere uygula" ya da range("a1, a5, a8") gibi
 
idris bey ilginiz için teşekkür ederim.

maksat görüntü değil, değerin negatif olması gerekiyor. bu nedenle özel biçimlendirme kullanamıyorum.

-1 ile çarpmak veri girişinin yapıldığı sütundan ayrı bir sütun oluşturmayı gerektirir. elbette yapılabilir... ama işi kolaylaştırmak ve arkadaşlarımın veri girişi yaparken gerçekleşebilecek muhtemel hatayı elimine etmek istiyorum.

saygılar.
 
igloo' Alıntı:
idris bey ilginiz için teşekkür ederim.

maksat görüntü değil, değerin negatif olması gerekiyor. bu nedenle özel biçimlendirme kullanamıyorum.

-1 ile çarpmak veri girişinin yapıldığı sütundan ayrı bir sütun oluşturmayı gerektirir. elbette yapılabilir... ama işi kolaylaştırmak ve arkadaşlarımın veri girişi yaparken gerçekleşebilecek muhtemel hatayı elimine etmek istiyorum.

saygılar.
Genişletmek için tıkla ...

-1 ile çarpmak ya da bölmek için ayrı bir hücreye gerek yok. Gerçi sorunuzun cevabı değil ama yeri gelmişken bu özelliği hatırlatmak istedim:

Herhangi bir boş hücreye -1 yazın
-1 ile çarpılacak/bölünecek (yani işareti değiştirilecek) hücre/hücreleri seçin
Sağ tıklayıp Özel yapıştır menüsünü açın
Çıkan seçeneklerden Çarp ya da Böl'ü seçin
bu işlem sonunda seçili hücre(ler) -1 ile çarpılmış/bölünmüş olur (işareti değişir)

Bu işlemin benzerini özellikle metin olarak biçimlenmiş hücreleri sayıya dönüştürmek için kullanırım sıklıkla.
 
yusuf44,

evet tüm tabloda negatif hücrelerin yerini tespit edebilirim. adet olarak çok değil.

sizden şunu isteyebilir miyim?
soldaki hücrenin sağdan üç karakteri "(-)" ise hücre negatif olsun...

bunun kodunu yazabilir misiniz?

şimdiden teşekkürler...
 
hatırlattığınız özellik başka durumlarda işime yarar.

sanırım siz de farkettiniz... ben ilk veri giriş anında belirlenmiş hücrelerde negatif değer istiyorum. oluşturulmuş veri aralığında sonradan düzeltme/değişiklik yapmam gerekmesin.
 
Aşağıdaki kodlar sayfanın herhangi bir hücresine sayı girildiğinde eğer soldaki hücrenin ilk 3 karakteri - ise girilen sayıyı negatif yapar:

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If IsNumeric(Target) And Left(Target.Offset(0, -1), 3) = "---" Then
Target = Abs(Target) * (-1)
End If
Application.EnableEvents = True
End Sub

Yalnız kodları A sütununu dikkate almayacak şekilde düzenleyemedim. Kodları sayfaya yapıştırdıktan sonra A sütununa veri girerseniz kodlar doğal olarak hata veriyor ama çalışmıyor bir daha.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst