Excel'de pozitif sayıları negatif yapmanın yolu nedir?

Excel’de tüm pozitif sayıları hızlıca negatif yapmanın yolları nelerdir? Aşağıdaki yöntemler, Excel’de pozitif değerleri anında negatif değerlere dönüştürmenize yardımcı olur.

Pozitif sayıları Özel Yapıştır işleviyle negatif yapın

Pozitif sayıları negatif yapın veya tam tersini Kutools for Excel ile yapın

Pozitif sayıları VBA koduyla negatif yapın

Pozitif sayıları Özel Yapıştır işleviyle negatif yapın

Excel’de pozitif sayıları Özel Yapıştır işleviyle negatif sayılara dönüştürebilirsiniz. Aşağıdaki adımları izleyin!

1. Boş bir hücreye dokunun ve -1 sayısını kopyalayın.-1

2. Değiştirmek istediğiniz aralığı seçin, ardından sağ tıklayıp bağlam menüsünden Özel Yapıştır seçeneğini seçerek Özel Yapıştır iletişim kutusunu açın. Ekran görüntüsüne bakın:

3. Ardından, Tümü seçeneğini Yapıştır bölümünden ve Çarp seçeneğini İşlem bölümünden seçin.

4. Ardından Tamam düğmesine tıklayın; tüm pozitif sayılar negatif sayılara dönüştürülmüştür.

5. Son olarak, gerekirse -1 sayısını silebilirsiniz.

Pozitif sayıları negatif yapın veya tam tersini Kutools for Excel ile yapın

Ayrıca, Kutools for Excel’nin Sayı İşaretini Değiştir aracını kullanarak tüm pozitif sayıları anında negatif yapabilirsiniz.

Eğer Kutools for Excelyüklüyse, pozitif sayıları aşağıdaki gibi negatif yapabilirsiniz:

1. Değiştirmek istediğiniz aralığı seçin.

2. Kutools > İçerik > Sayı İşaretini Değiştir seçeneğine tıklayın. Ekran görüntüsüne bakın:

3. Ardından, Sayı İşaretini Değiştir iletişim kutusunda Tüm pozitif sayıları negatif yap seçeneğini işaretleyin.

4. Ardından Tamam veya Uygula düğmesine tıklayın. Böylece tüm pozitif sayılar negatif sayılara dönüştürülmüş olur.

Pozitif sayıları VBA koduyla negatif yapın

VBA kodu kullanarak pozitif sayıları negatif yapabilirsiniz; ancak bunun için VBA bilgisine sahip olmanız gerekir. Aşağıdaki adımları izleyin:

1. Değiştirmek istediğiniz aralığı seçin.

2. Geliştirici > Visual Basic seçeneğine tıklayın. Yeni bir Microsoft Visual Basic for Applications penceresi açılacak. Ardından, Ekle > Modül seçeneğine tıklayıp aşağıdaki kodları modüle kopyalayın ve yapıştırın:

Sub ChangeToNegative()
'Updateby Extendoffice
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
    xValue = rng.Value
    If xValue > 0 Then
        rng.Value = xValue * -1
    End If
Next
End Sub

3. Kodu çalıştırmak için düğmesine tıklayın. Pozitif değerleri negatif değerlere dönüştürmek istediğiniz aralığı seçmeniz için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:

4. Tamam düğmesine tıklayın; böylece Aralık seç içindeki pozitif değerler anında negatif değerlere dönüştürülecektir.

Demo: Kutools for Excel ile pozitif sayıları negatif yapın veya tam tersini uygulayın

İlgili makaleler