Loncat ke daftar isi utama

Bagaimana cara mengizinkan angka negatif di Excel?

Di Excel, bagaimana cara memasukkan angka negatif saja? Artikel ini akan memperkenalkan beberapa trik yang berguna dan cepat bagi Anda untuk menyelesaikan tugas ini.

Hanya izinkan angka negatif di Excel dengan Validasi Data

Hanya izinkan angka negatif di Excel dengan kode VBA


panah gelembung kanan biru Hanya izinkan angka negatif di Excel dengan Validasi Data

Biasanya, Validasi Data fungsi dapat membantu Anda, lakukan hal berikut:

1. Pilih sel atau kolom yang Anda izinkan untuk memasukkan hanya angka negatif, lalu klik Data > Validasi Data > Validasi Data, lihat tangkapan layar:

dokter hanya mengizinkan negatif 1

2. di Validasi Data kotak dialog, di bawah Settings tab, lakukan opsi berikut:

(1.) Di mengizinkan bagian, pilih Desimal dari daftar drop-down;

(2.) Di Data bagian, pilih kurang dari atau sama dengan pilihan;

(3.) Akhirnya, masukkan nomornya 0 ke dalam Maksimum kolom tulisan.

dokter hanya mengizinkan negatif 2

3. Lalu klik OK, dan sekarang hanya angka negatif dan 0 yang boleh dimasukkan, jika angka positif dimasukkan, maka akan muncul pesan peringatan, lihat tangkapan layar:

dokter hanya mengizinkan negatif 3


panah gelembung kanan biru Hanya izinkan angka negatif di Excel dengan kode VBA

Berikut adalah kode VBA juga dapat membantu Anda, dengan kode berikut, ketika Anda memasukkan angka positif, itu akan diubah menjadi negatif secara otomatis, lakukan hal berikut:

1. Klik kanan tab lembar yang ingin Anda izinkan hanya angka negatif, dan pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, harap salin dan tempel kode berikut ke dalam kolom kosong Modul:

Kode VBA: Hanya izinkan angka negatif di lembar kerja:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Const sRg As String = "A1:A1000"
    Dim xRg As Range
    On Error GoTo err_exit:
    Application.EnableEvents = False
    If Not Intersect(Target, Range(sRg)) Is Nothing Then
        For Each xRg In Target
            If Left(xRg.Value, 1) <> "-" Then
                xRg.Value = xRg.Value * -1
            End If
        Next xRg
    End If
err_exit:
    Application.EnableEvents = True
End Sub

dokter hanya mengizinkan negatif 4

Note: Pada kode di atas, A1: A1000 adalah sel yang ingin Anda masukkan hanya masukan bilangan negatif.

2. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja, dan sekarang, ketika Anda memasukkan beberapa angka positif ke dalam sel yang Anda tentukan dalam kode, angka positif akan diubah menjadi negatif secara otomatis.

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I change the automatic formatting with this code from Currency to Accounting ?
This comment was minimized by the moderator on the site
Hi! Great article. One question: if, instead of a coherent group of cells, I want to apply this in different parts of the sheet (e.g. A1:A2 AND A6:A8), is there a way to do that with the VBA solution? I.e.: how do I replace the "A1:A1000" with several sets of cells?
This comment was minimized by the moderator on the site
Hello, GB,
To apply this code for multiple ranges, please use the following code:

Note: when using this code, first, you should right click the sheet tab, and then click View code from the context menu, and then copy the following code into the module.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Separate the ranges by commas
Dim xRg As Range
Dim xSRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
Set xSRg = Range(sRg)
If Not Intersect(Target, xSRg) Is Nothing Then
For Each xRg In Target
If Left(xRg.Value, 1) <> "-" Then
xRg.Value = xRg.Value * -1
End If
Next xRg
End If
err_exit:
Application.EnableEvents = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Super, thanks! Very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations