sayıları negatife çevirme

[rimess]

mrb.
excelde bir sütunda bulunan sayıların hepsini negatife çevirmek istiyorum.
bu mümkünmüdür.
yardımcı olursanız sevinirim.

 

[Ali]

Boş bir hücreye -1 yazınız. Bunu kopyalayınız ve sütunu seçiniz.Sağ tuş-özel yapıştır kısmından çarp kısmını seçip tamamı tıklayınız.

 

[abtani]

Boş bir hücreye -1 yazınız. Bunu kopyalayınız ve sütunu seçiniz.Sağ tuş-özel yapıştır kısmından çarp kısmını seçip tamamı tıklayınız.

Hücredeki değer negatif ise sonuç pozitif çıkar bu durumda.

 

[Ali]

Matematik biliyorum abtani.Arkadaşımız bazıları negatif bazıları pozitif diye ayrıntı belirtmemiş.Eğer belirtseydi bu cevabı yazmazdım.

 

[abtani]

Sayın Ali bilginiz konusunda hiç bir şüphem yok,bilmeyenler için bir hatırlatma yapmak istemiştim.Kırıldığınızı sanıyorum,özür dilerim.Sevgi ve saygılarımla...

 

[Ali]

mrb.
excelde bir sütunda bulunan sayıların hepsini negatife çevirmek istiyorum.
bu mümkünmüdür.
yardımcı olursanız sevinirim.

Aralığınızı siz belirlersiniz.

Alt+F11 ile VBA düzenleyiciyi açın. Bir modüle aşağıdaki kodları ekleyip çalıştırınız.

Sub negatifecevir()
Dim k As Range
For Each k In Range("A1:A1000")
    If k.Value > 0 Then k.Value = -k.Value
Next k
End Sub

 

[canburak]

baska bir sutuna gore nasil yapa biliriz

Aralığınızı siz belirlersiniz.

Alt+F11 ile VBA düzenleyiciyi açın. Bir modüle aşağıdaki kodları ekleyip çalıştırınız.

Sub negatifecevir()
Dim k As Range
For Each k In Range("H1:H1000")
    If k.Value > 0 Then k.Value = -k.Value
Next k
End Sub

merhaba ustat bu negatife cevirmeyi ayni sutundaki degere degilde baska birsutundaki degere kosullandira bilirmiyi Mesela "D11000" deki hucrelerdeki sayi 0 dan buyukse h1:h1000 de karsisina gelen degeri negatife nasil cevirebiliriz simdiden tesekkurler.

 

[YUSUF44]

merhaba ustat bu negatife cevirmeyi ayni sutundaki degere degilde baska birsutundaki degere kosullandira bilirmiyi Mesela "D11000" deki hucrelerdeki sayi 0 dan buyukse h1:h1000 de karsisina gelen degeri negatife nasil cevirebiliriz simdiden tesekkurler.

Aşağıdaki kodu deneyiniz:

Sub negatifecevir()
Dim k As Range
For Each k In Range("d1:d1000")
    If k.Value > 0 Then k.Offset(0, 4) = -k.Offset(0, 4).Value
Next k
End Sub

 

[canburak]

Aşağıdaki kodu deneyiniz:

Sub negatifecevir()
Dim k As Range
For Each k In Range("d1:d1000")
    If k.Value > 0 Then k.Offset(0, 4) = -k.Offset(0, 4).Value
Next k
End Sub

Cok tesekkurler Elinize saglik ustat isime yaradi..

 

[Merhum İdris SERDAR]

.

Formülle:

=IF(D1>0;D1*-1;D1)

yazıp, aşağıya doğru kopyalayın.



.