Excel - Mencegah teks sel agar tidak meluap ke sel berikutnya (kosong)

Saat Anda memiliki teks dalam sel Excel yang terlalu panjang untuk ditampilkan di area sel yang terlihat, dan sel berikutnya di sebelah kanan kosong, Excel memungkinkan teks ditampilkan di sel berikutnya (dan berikutnya, dan selanjutnya, sesuai kebutuhan). Saya ingin mengubah ini; Saya ingin menghindari limpahan teks ini.

Saya tahu saya bisa menghindari ini dengan mengaktifkan "bungkus kata" dan menyesuaikan tinggi baris. Tapi bukan itu yang saya inginkan.

Saya ingin mengubah perilaku DEFAULT Excel sehingga ini menunjukkan nilai setiap sel hanya di area yang terlihat dari sel itu. Tidak ada luapan, tidak ada bungkus kata.

Apakah ini mungkin? (Omong-omong, saya menggunakan Excel 2010.)

Ini mungkin bukan opsi untuk semua orang, tetapi jika Anda mengimpor dokumen ke Google Sheets, fungsi ini didukung secara default. Di bilah menu atas, tiga jenis pembungkus teks didukung. Overflow, bungkus, dan klip. Anda mencari klip.

Tergantung pada persyaratan, ini mungkin merupakan opsi yang layak untuk beberapa orang.

Ya, Anda dapat mengubah perilaku ini, tetapi Anda mungkin tidak ingin efek samping yang ditimbulkannya.

Kunci untuk membatasi konten sel ke batas sel terlepas dari apakah sel yang berdekatan berisi data adalah perataan teks Fill. Pilih sel-sel Anda tidak ingin meluap dan klik kanan mereka> sel Format ... > tab Penyelarasan > Horizontal keselarasan > Isi

The masalah dengan metode ini adalah bahwa ini benar-benar akan mengisi sel dengan mengulang konten mereka ketika cukup singkat untuk cocok dalam sel beberapa kali. Lihat screenshot di bawah ini untuk apa artinya ini. (Perhatikan bahwa B7ini diisi dengan 'teks singkat'.)

Sepertinya Anda akan terjebak dengan solusi di pos Benedikt

Perhatikan bahwa Anda juga bisa mengisi sel yang berdekatan dengan karakter centang ( ') menggunakan metode pertama yang sangat pintar dari Benedikt . Dengan cara ini Anda tidak perlu menyembunyikan apa pun, mencegah overflow sel dan jika Anda menyalin sel sebagai teks (misalkan notepad) Anda masih mendapatkan teks kosong dan bukan spasi atau kutu.

Begini cara saya melakukannya.

1. Opsi 1: Isi semua sel kosong dengan "N / A" dan kemudian gunakan Pemformatan Bersyarat untuk membuat teks tidak terlihat.
2. Atau Opsi 2: Isi semua sel kosong dengan 0 dan gunakan pengaturan Excel untuk menyembunyikan nilai nol.

Mengisi semua sel kosong: (diuji pada Mac)

• Edit → Pergi Ke ... → Khusus ... (Pada Windows: Home → Edit → Cari & Pilih → Pergi Ke Spesial ...)
• Pilih "Kosong" dan tekan OK.
• Semua sel kosong dipilih sekarang. Jangan klik apapun.
• Ketik "N / A" atau 0, lalu tekan Ctrl+ Enter^† . Ini akan memasukkan nilai ke semua sel yang dipilih.

Pemformatan Bersyarat untuk Menyembunyikan "N / A"

• Format → Pemformatan Bersyarat.
• Buat aturan baru.
• Gaya: Klasik, dan Gunakan rumus untuk menentukan sel mana yang akan diformat.
• Rumus: =A1="N/A"
• Format dengan: Format Kustom: Warna font putih, tanpa isi.

Sembunyikan Nol

• Excel → Pengaturan → Lihat.
• Hapus centang "Tampilkan nilai nol".

_______________
^†   Itu Ctrl+ Enter, bukan Ctrl+ Shift+Enter .

Coba masukkan rumus = "" (dua tanda kutip ganda) di sel yang berdekatan di mana Anda tidak ingin melihat melimpah. Ini mengevaluasi ke "null" yang tidak menampilkan apa pun dan tidak akan memengaruhi matematika.

Gunakan perataan Teks Horizontal "Isi" untuk sel. Anda dapat menemukannya di tempat yang sama dengan opsi Alignment lain yang harus menyelesaikan masalah Anda

Memperluas pada solusi menggunakan 'untuk memblokir tumpah kanan teks Excel ke sel kosong yang berdekatan, kadang-kadang Anda tidak ingin memodifikasi / merusak kolom data Anda dengan memasukkan nilai itu di sana.

Alih-alih memasukkan 'nilai data aktual Anda, Anda dapat membuat kolom vertikal khusus baru untuk tujuan ini, seluruhnya diisi dengan 'karakter sepenuhnya .

1. Kolom penghalang

2. Masukkan kolom "penghalang" di sebelah kiri kolom yang ingin Anda lindungi.

3. Perkecil kolom penghalang dengan mengatur lebar kolomnya ke nilai kecil

Atur lebar kolom ke nilai seperti .1, atau alternatifkan agar kolom penghalang lebih luas untuk bertindak sebagai spasi spasi margin atau antar kolom.

Perhatikan bahwa Anda harus menetapkan lebar lebih besar dari nol; mengatur lebar kolom penghalang vertikal ke nol akan kembali ke perilaku overflow sel yang tidak diinginkan.

4. Voila!

Di Excel, sesuaikan kolom dengan lebar yang diperlukan, kemudian aktifkan kata-warp pada kolom itu (yang akan menyebabkan semua ketinggian baris meningkat) dan akhirnya pilih semua baris dan sesuaikan ketinggian baris dengan ketinggian yang diinginkan. Voila! Anda sekarang memiliki teks dalam sel yang tidak meluap ke sel yang berdekatan.

(Catatan: Saya menemukan ini dan mempostingnya sebagai komentar di jawaban yang dipilih tetapi juga mempostingnya sebagai jawaban sehingga akan lebih mudah ditemukan untuk orang lain.)

Sejalan dengan pemikiran bahwa Google Sheets mungkin tidak untuk semua orang , makro ini mungkin tidak untuk semua orang tetapi mungkin untuk seseorang .

Ini berjalan melalui rentang yang dipilih dan menggantikan sel yang meluap dengan teks terpotong.

Bendera menentukan apakah:

• teks yang melanggar disalin ke alamat relatif yang sama di lembar kerja baru atau jika dibuang.

• teks terpotong dikode keras atau ditautkan melalui rumus lembar kerja =LEFT()

• teks terpotong hyperlink ke string penuh dalam lembar baru.

Default adalah untuk menyimpan data dan menggunakan kedua tautan.

Option Explicit

Sub LinkTruncatedCells()
    Dim rng As Range: Set rng = Selection
    Dim preserveValues As Boolean: preserveValues = True
    Dim linkAsFormula As Boolean: linkAsFormula = True
    Dim linkAsHyperlink As Boolean: linkAsHyperlink = True
    Dim w As Single
    Dim c As Range
    Dim r As Range
    Dim t As Long
    Dim l As Long
    Dim s As String
    Dim ws As Worksheet
    Dim ns As Worksheet
    Application.ScreenUpdating = False
    Set ws = rng.Parent
    For Each c In rng.Columns
        w = c.ColumnWidth
        t = 0
        l = 0
        For Each r In c.Rows
            If Len(r) > l Then
                s = r
                If CBool(l) Then r = Left(s, l)
                Do
                    r.Columns.AutoFit
                    If r.ColumnWidth > w And Len(s) > t Then
                        t = t + 1
                        r = Left(s, Len(s) - t)
                        l = Len(r)
                    End If
                Loop Until t = Len(s) Or r.ColumnWidth <= w
                r.ColumnWidth = w
                If r <> s And preserveValues Then
                    If ns Is Nothing Then
                        Set ns = ws.Parent.Worksheets.Add(after:=ws)
                    End If
                    ns.Range(r.Address) = s
                    If linkAsFormula Then r.Formula = "=LEFT(" & ns.Name & "!" & r.Address & "," & l & ")"
                    If linkAsHyperlink Then ws.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:= _
                            ns.Range(r.Address).Address(external:=True)
                End If
            End If
        Next r
    Next c
    ws.Activate
    Application.ScreenUpdating = True
End Sub

Catatan akhir: Saya telah menggunakannya untuk proyek pribadi dan menemukan itu dapat diandalkan tetapi tolong simpan dan buat cadangan pekerjaan Anda sebelum mencoba makro yang tidak dikenal .