Bagaimana Anda bisa dengan cepat mengubah semua angka atau nilai positif menjadi negatif di Excel? Metode berikut dapat memandu Anda dengan cepat mengubah semua bilangan positif menjadi negatif di Excel.

Ubah angka positif menjadi negatif dengan fungsi Tempel Spesial

Ubah angka positif menjadi negatif atau sebaliknya dengan Kutools for Excel

Ubah angka positif menjadi negatif dengan kode VBA

Ubah angka positif menjadi negatif dengan fungsi Tempel Spesial

Anda dapat mengubah angka positif menjadi negatif dengan sisipkan Khusus berfungsi di Excel. Silakan lakukan sebagai berikut.

1. Ketuk nomor -1 di sel kosong dan salin.

2. Sorot rentang yang ingin Anda ubah, lalu klik kanan dan pilih sisipkan Khusus dari menu konteks untuk membuka sisipkan Khusus kotak dialog. Lihat tangkapan layar:

3. Kemudian pilih Semua pilihan dari pasta, dan Mengalikan dari Operasi.

4. Dan kemudian klik OK, semua angka positif telah diubah menjadi angka negatif.

5. Akhirnya, Anda dapat menghapus angka -1 sesuai kebutuhan.

Ubah angka positif menjadi negatif atau sebaliknya dengan Kutools for Excel

Anda juga dapat menggunakan Kutools untuk Excel'S Ubah Tanda Nilai alat untuk dengan cepat mengubah semua angka positif menjadi negatif.

Jika sudah terpasang Kutools untuk Excel, Anda dapat mengubah bilangan positif menjadi negatif sebagai berikut:

1. Pilih rentang yang ingin Anda ubah.

2. Klik Kutools > Konten > Ubah Tanda Nilai, lihat tangkapan layar:

3. Dan di Ubah Tanda Nilai kotak dialog, pilih Ubah semua nilai positif menjadi negatif .

4. Lalu klik OK or Mendaftar. Dan semua angka positif telah diubah menjadi angka negatif.

Ubah angka positif menjadi negatif dengan kode VBA

Menggunakan kode VBA, Anda juga dapat mengubah bilangan positif menjadi negatif, tetapi Anda harus tahu cara menggunakan VBA. Silakan lakukan langkah-langkah berikut:

1. Pilih rentang yang ingin Anda ubah.

2. Klik Pengembang >Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan > Modullalu salin dan tempel kode berikut di modul:

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. Klik  untuk menjalankan kode, sebuah dialog akan muncul bagi Anda untuk memilih rentang yang ingin Anda ubah nilai posItive menjadi negatif. Lihat tangkapan layar:

4. Klik Ok, kemudian nilai positif dalam rentang yang dipilih diubah menjadi negatif sekaligus.

Demo: Ubah angka positif menjadi negatif atau sebaliknya dengan Kutools for Excel

Terkait artikel