Note: The other languages of the website are Google-translated. Back to English

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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (4)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai! Artikel yang bagus. Satu pertanyaan: jika, alih-alih sekelompok sel yang koheren, saya ingin menerapkan ini di berbagai bagian lembar (misalnya A1:A2 DAN A6:A8), apakah ada cara untuk melakukannya dengan solusi VBA? Yaitu: bagaimana cara mengganti "A1:A1000" dengan beberapa set sel?
Komentar ini diminimalkan oleh moderator di situs
Halo, GB,
Untuk menerapkan kode ini untuk beberapa rentang, silakan gunakan kode berikut:

Catatan: saat menggunakan kode ini, pertama, Anda harus mengklik kanan tab lembar, lalu klik Lihat kode dari menu konteks, lalu salin kode berikut ke dalam modul.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
'Perbarui oleh Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Pisahkan rentang dengan koma
Redupkan xRg Sebagai Rentang
Redupkan xSRg Sebagai Rentang
Pada Kesalahan GoTo err_exit:
Application.EnableEvents = Salah
Tetapkan xSRg = Rentang (sRg)
Jika Tidak Berpotongan (Target, xSRg) Tidak Berarti
Untuk Setiap xRg Dalam Target
Jika Kiri(xRg.Value, 1) <> "-" Maka
xRg.Nilai = xRg.Nilai * -1
End If
xRg berikutnya
End If
err_keluar:
Application.EnableEvents = Benar
End Sub

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Super, terima kasih! Sangat membantu.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mengubah pemformatan otomatis dengan kode ini dari Mata Uang ke Akuntansi?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL