Bagaimana saya bisa mendapatkan sel di Excel untuk secara otomatis menyesuaikan ketinggiannya agar sesuai dengan isi teks yang dibungkus? [duplikat]

23

Saya memiliki sel dengan konten teks terbungkus dalam Excel dan saya ingin memformat sel sehingga tingginya akan menyesuaikan agar sesuai dengan konten yang dapat menjangkau beberapa baris. Bagaimana saya bisa mencapai perilaku ini?

microsoft-excel microsoft-excel-2007

— Manga Lee
sumber

tidak yakin tentang excel 2007, tapi saya menggunakan excel 2003 dan ada yang berjalan secara otomatis, ketika saya memasukkan data multi-line dalam sel, tinggi baris diperbaiki ketika saya menekan enter.

— fretje

26

Dari http://support.microsoft.com/kb/149663

Untuk menyesuaikan ketinggian baris agar sesuai dengan semua teks dalam sel, ikuti langkah-langkah ini:

Pilih baris.

Di Microsoft Office Excel 2003 dan versi Excel yang lebih lama, arahkan ke Baris pada menu Format, lalu klik AutoFit.

Di Microsoft Office Excel 2007, klik tab Beranda, klik Format di grup Sel, lalu klik Ketinggian Baris AutoFit.

Juga berfungsi ketika semua baris dipilih

— vaichidrewar
sumber

11

Mencoba

Pilih kolom -> kolom klik kanan -> Format Sel -> tab Alignment -> Bungkus teks

— hyperslug
sumber

2

Sel sudah memiliki format ini dan saya ingin sel juga menyesuaikan ketinggiannya. Saya ingin ketinggian baris sel untuk menyesuaikan sehingga seluruh konten sel yang dibungkus terlihat.

— Manga Lee

3

Saya tidak yakin apakah Anda dapat membuat ini terjadi karena isi sel berubah, tetapi begitu Anda selesai mengklik dua kali pada perbatasan antara nomor baris dan yang di bawah ini, ukurannya otomatis agar sesuai dengan isinya.

— Kol.

+1: Ini bukan jawaban yang buruk. Jika Anda beralih Wrap Textdan menghidupkan lagi, Excel akan mengubah ukuran ketinggian baris agar sesuai dengan baris tertinggi. Tidak cocok jika ketinggian baris berubah secara dinamis tetapi jika Anda berurusan dengan teks statis, itu harus OK.

— Li-aung Yip

Ini bekerja untuk saya di Excel 2019.

— 猫 IT

4

Perhatikan bahwa autofit tidak berfungsi pada sel yang digabungkan. Anda harus melakukannya secara manual.

Lihat jawaban Microsoft ini:

Anda tidak bisa menggunakan fitur AutoFit untuk baris atau kolom yang berisi sel yang digabungkan di Excel

— abruti
sumber

2

Jika tidak secara otomatis melakukannya, maka tempatkan kursor Anda di atas garis kecil antara nomor baris (mis: antara 1 dan 2) dan klik dua kali, ini akan mengubah ukuran baris (langsung di atas garis kecil, dalam contoh: 1) sehingga semuanya terlihat (dari aspek vertikal).

— Lance Roberts
sumber

Itu adalah sesuatu yang dapat Anda lakukan ketika Anda memiliki sedikit dari ini untuk dilakukan tetapi semakin kompleks Anda akan harus berurusan dengan itu dan itu berarti membuang-buang waktu dan energi, mendapatkan fokus dan momentum rusak karena tugas-tugas seperti itu. Solusi yang diberikan oleh Bertieb bekerja seperti pesona di Excel 2019.

— 猫 IT

0

Apakah Anda tahu makro? Masukkan kode berikut

Application.ActiveCell.WrapText = Benar

di dalam subrutin Worksheet_SelectionChange Anda.

— Toc
sumber

0

Solusi VBA adalah menggunakan yang berikut ini:

 Call Application.ActiveCell.AutoFit

— richardtallent
sumber

0

Satu-satunya cara saya dapat membuatnya berfungsi seperti yang diharapkan adalah menyorot seluruh lembar dengan CTRL-A, hapus centang tombol "Bungkus Teks" di bilah alat, lalu pilih kembali. Tidak ada pengaturan lain yang berubah, tetapi setiap baris sekarang merupakan ketinggian yang "tepat" untuk isinya.

— pengguna sederhana
sumber

0

Saya membuat kode VB berikut untuk mengubah ukuran baris tajuk saat sel dalam rentang (B2: B1500) karena nilai tanggal di atas 12/28/2014 akan menyebabkan tajuk untuk menampilkan peringatan bahwa tanggal ini, dalam kartu absen, akan masuk ke Minggu1 2015:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub

— Mickg01
sumber