it-swarm.asia

Bagaimana saya bisa mendapatkan sel di Excel untuk secara otomatis menyesuaikan tingginya agar sesuai dengan isi teks yang dibungkus?

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?

22
Manga Lee

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

24
vaichidrewar

Mencoba

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

10
hyperslug

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

Lihat jawaban Microsoft ini:

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

4
abruti

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).

2
Lance Roberts

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 menampilkan peringatan bahwa tanggal ini, dalam kartu absen, akan masuk ke Week1 of 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
0
Mickg01

Apakah Anda tahu makro? Masukkan kode berikut

Application.ActiveCell.WrapText = Benar

di dalam subrutin Worksheet_SelectionChange Anda.

0
Toc

Solusi VBA adalah menggunakan yang berikut ini:

 Call Application.ActiveCell.AutoFit
0
richardtallent

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.

0
simpleuser