Excel'de pozitif sayıları negatif yapma konusunda nasıl değişiklik yapılır?

Excel'de tüm pozitif sayıları veya değerleri hızlıca negatif yapmak için ne yapabilirsiniz? Aşağıdaki yöntemler, Excel'de tüm pozitif sayıları hızlıca negatif yapmanıza yardımcı olabilir.

Özel Yapıştır işleviyle pozitif sayıları negatif yapma

Kutools for Excel ile pozitif sayıları negatif yapma veya tam tersi

VBA kodu ile pozitif sayıları negatif yapma

Özel Yapıştır işleviyle pozitif sayıları negatif yapma

Excel'de Özel Yapıştır işlevini kullanarak pozitif sayıları negatif yapabilirsiniz. Lütfen aşağıdaki adımları izleyin.

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

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

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

4. Ve ardından Tamam'a tıklayın, tüm pozitif sayılar negatif sayılara dönüşmüş olacaktır.

5. Son olarak, ihtiyacınıza göre -1 sayısını silebilirsiniz.

Kutools for Excel ile pozitif sayıları negatif yapma veya tam tersi

Ayrıca, Kutools for Excel'in Sayıların İşaretini Değiştir aracını kullanarak tüm pozitif sayıları hızlıca negatif yapabilirsiniz.

Kutools for Excel'i yüklediyseniz, pozitif sayıları aşağıdaki gibi negatif yapabilirsiniz:

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

2. Kutools > Metin > Sayıların İşaretini Değiştir'e tıklayın, ekran görüntüsüne bakın:

3. Ve Sayıların İşaretini Değiştir iletişim kutusunda, Tüm pozitif değerleri negatif yap seçeneğini seçin.

4. Ardından Tamam veya Uygula'ya tıklayın. Ve tüm pozitif sayılar negatif sayılara dönüştürülmüştür.

VBA kodu ile pozitif sayıları negatif yapma

VBA kodunu kullanarak pozitif sayıları negatif yapabilirsiniz, ancak VBA'nın nasıl kullanılacağını bilmelisiniz. Lütfen aşağıdaki adımları izleyin:

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

2. Geliştirici > Visual Basic'e tıklayın, yeni bir Microsoft Visual Basic for Applications penceresi açılacak, Ekle > Modül'e tıklayın ve ardından aşağıdaki kodları modüle kopyalayıp 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. Tıklayın  düğmesine basarak kodu çalıştırın, dönüştürmek istediğiniz aralığı seçmek için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:

4. Tamam'a tıklayın, ardından seçilen aralıktaki pozitif değerler anında negatife dönüşecektir.

Demo: Kutools for Excel ile pozitif sayıları negatif yapma veya tam tersi

İlgili makaleler