Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menukar ketinggian baris berdasarkan nilai sel dalam Excel?

ketinggalan perubahan baris doc dengan nilai 1

Untuk menukar ketinggian baris dalam lembaran kerja, kebanyakan kita mungkin menggunakan ciri Ketinggian Lajur untuk menetapkan ketinggian baris yang dipilih. Walau bagaimanapun jika anda mempunyai senarai nombor, dan sekarang, anda mahu menetapkan ketinggian baris berdasarkan nilai sel seperti tangkapan skrin berikut, bagaimana anda boleh menangani tugas ini dalam Excel?

Tukar ketinggian baris berdasarkan nilai sel dengan kod VBA


anak panah gelembung kanan biru Tukar ketinggian baris berdasarkan nilai sel dengan kod VBA

Tidak ada cara langsung bagi anda untuk menukar ketinggian berganda berdasarkan nilai sel sekaligus, tetapi, dengan kod VBA berikut, dapat membantu anda menyelesaikan tugas ini secepat mungkin.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Tukar ketinggian baris berdasarkan nilai sel:

Sub rowheight()
'Updateby Extendoffice 20161123
    Dim hgt As Variant
    Dim WorkRng As Range
    xTxt = ActiveWindow.RangeSelection.Address
    Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan kotak petanda muncul untuk mengingatkan anda memilih sel yang anda mahu tetapkan ketinggian baris oleh nilai sel, lihat tangkapan skrin:

ketinggalan perubahan baris doc dengan nilai 2

4. Kemudian klik OK butang, ketinggian baris telah diubah oleh nilai sel seperti berikut:

ketinggalan perubahan baris doc dengan nilai 1

Nota: Di atas kod VBA, Jika H.Value> 15 Kemudian menunjukkan bahawa jika nilai sel lebih besar daripada 15, ketinggian baris akan diubah, jika nilai sel kurang daripada 15, ketinggian baris akan kekal ketinggian lalai. Anda boleh mengubahnya seperti yang anda perlukan.


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.