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

Bagaimana cara menyembunyikan kesalahan rumus yang tidak konsisten di Excel?

Seperti gambar di bawah ini yang ditunjukkan, indikator kesalahan hijau akan muncul di sel ketika rumus tidak cocok dengan pola rumus sel lain yang berada di dekatnya. Sebenarnya, Anda dapat menyembunyikan kesalahan rumus yang tidak konsisten ini. Artikel ini akan menunjukkan kepada Anda metode untuk mencapainya.

Sembunyikan kesalahan rumus tunggal yang tidak konsisten dengan kesalahan pengabaian
Sembunyikan semua kesalahan rumus yang tidak konsisten dalam pemilihan dengan kode VBA


Sembunyikan kesalahan rumus tunggal yang tidak konsisten dengan kesalahan pengabaian

Anda bisa menyembunyikan satu kesalahan rumus yang tidak konsisten setiap kali dengan mengabaikan kesalahan di Excel. Silakan lakukan sebagai berikut.

1. Pilih sel yang berisi indikator kesalahan yang ingin Anda sembunyikan, lalu klik tombol tampilkan di samping sel. Lihat tangkapan layar:

2. Memilih Abaikan Kesalahan dari daftar drop-down seperti gambar di bawah ini yang ditampilkan.

Kemudian indikator kesalahan akan segera disembunyikan.


Sembunyikan semua kesalahan rumus yang tidak konsisten dalam pemilihan dengan kode VBA

Metode VBA berikut dapat membantu Anda menyembunyikan semua kesalahan rumus yang tidak konsisten dalam pilihan di lembar kerja Anda. Silakan lakukan sebagai berikut.

1. Di lembar kerja, Anda perlu menyembunyikan semua kesalahan rumus yang tidak konsisten, tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul, lalu salin dan tempel kode VBA ke jendela Kode.

Kode VBA: Sembunyikan semua kesalahan rumus yang tidak konsisten di lembar kerja

Sub HideInconsistentFormulaError()
    Dim xRg As Range, xCell As Range
    Dim xError As Byte
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the range:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Errors(xlInconsistentFormula).Value Then
            xCell.Errors(xlInconsistentFormula).Ignore = True
        End If
    Next
End Sub

3. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel kotak dialog, pilih kisaran yang Anda perlukan untuk menyembunyikan semua kesalahan rumus yang tidak konsisten, lalu klik OK tombol. Lihat tangkapan layar:

Kemudian semua kesalahan rumus yang tidak konsisten segera disembunyikan dari kisaran yang dipilih. Lihat tangkapan layar:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda dengan
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 yang kuat
    . Mendukung Office/Excel
    2007-2019 dan 365
    . Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap
    30
    percobaan gratis -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 dengan
    50%
    , dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (7)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo,

terima kasih telah berbagi solusi Anda, tetapi tidak berfungsi di Excel 365 terbaru
Tidak ada VBA-Errors, tetapi Excel masih menunjukkan kesalahan yang tidak konsisten
Komentar ini diminimalkan oleh moderator di situs
Hai cepat,
Bisakah Anda memberi tahu saya versi Excel 365 yang Anda miliki?
Saya telah menguji kode di Excel 365 dan berfungsi dengan baik. sehingga masalah tidak dapat direproduksi.
Komentar ini diminimalkan oleh moderator di situs
Halo Kristal,

Versi terbaru Excel 365 2207 (Build 15427.20210)
Komentar ini diminimalkan oleh moderator di situs
Hai cepat,
Saya telah menguji kode dalam versi yang sama (2207 (Build 15425.20210)) dan masih berfungsi.
Bisakah Anda mengunggah file sampel data Anda di sini?
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/365_version.png
Komentar ini diminimalkan oleh moderator di situs
Halo Kristal,

terima kasih atas waktu pengujian Anda.

Apakah Anda hanya menggunakan sekolah lama dasar (tabel yang diformat pengguna) atau apakah itu tabel dengan desain excel dan fungsi filter di kepala kolom?
Seperti yang ditunjukkan di sini:
https://support.microsoft.com/de-de/office/%C3%BCbersicht-zu-excel-tabellen-7ab0bb7d-3a9e-4b56-a3c9-6c94334e492c

Terbaru adalah apa yang saya gunakan.

Saya tidak dapat membagikan "program" saya - ini adalah alat keuangan untuk penggunaan pribadi.
Sel-sel dengan konten ini:
=HYPERLINK("https://www.domain.de/abc.html";"www")

Karena setiap baris memiliki tautan lain, saya mendapatkan kesalahan yang tidak konsisten.
Saya bisa menyembunyikannya secara manual, tetapi tidak dengan VBA.

Saya tidak tahu apakah vba Anda hanya berfungsi selama beberapa detik dan kemudian kesalahan muncul lagi.
Komentar ini diminimalkan oleh moderator di situs
Hai cepat,
Terima kasih banyak atas tanggapan Anda. Kode asli tidak memperhitungkan data format Tabel. Kode telah diperbarui sebagai berikut, silakan coba.

Sub HideInconsistentFormulaError()
'Updated by Extendoffice 20220902
    Dim xRg As Range, xCell As Range
    Dim xError As Byte
    On Error Resume Next
   Set xRg = Application.InputBox("Please select the range:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Errors(xlEmptyCellReferences).Value Then
            xCell.Errors(xlEmptyCellReferences).Ignore = True
        ElseIf xCell.Errors(xlEvaluateToError).Value Then
            xCell.Errors(xlEvaluateToError).Ignore = True
        ElseIf xCell.Errors(xlInconsistentFormula).Value Then
            xCell.Errors(xlInconsistentFormula).Ignore = True
        ElseIf xCell.Errors(xlInconsistentListFormula).Value Then
            xCell.Errors(xlInconsistentListFormula).Ignore = True
        ElseIf xCell.Errors(xlListDataValidation).Value Then
           xCell.Errors(xlListDataValidation).Ignore = True
        ElseIf xCell.Errors(xlNumberAsText).Value Then
            xCell.Errors(xlNumberAsText).Ignore = True
        ElseIf xCell.Errors(xlOmittedCells).Value Then
            xCell.Errors(xlOmittedCells).Ignore = True
        ElseIf xCell.Errors(xlTextDate).Value Then
            xCell.Errors(xlTextDate).Ignore = True
        ElseIf xCell.Errors(xlUnlockedFormulaCells).Value Then
            xCell.Errors(xlUnlockedFormulaCells).Ignore = True
        End If
    Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo Kristal,

terima kasih banyak untuk kodenya, ini berfungsi sekarang :)


Salam

cepat
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