Bagaimana cara mengubah tinggi baris berdasarkan nilai sel di Excel?
Untuk mengubah tinggi baris dalam lembar kerja, kebanyakan dari kita mungkin menerapkan fitur Row Height untuk mengatur tinggi baris yang dipilih. Namun jika Anda memiliki daftar nomor, dan sekarang, Anda ingin mengatur tinggi baris berdasarkan nilai sel seperti gambar berikut yang ditampilkan, bagaimana Anda bisa menangani tugas ini di Excel?
Ubah tinggi baris berdasarkan nilai sel dengan kode VBA
Tidak ada cara langsung bagi Anda untuk mengubah beberapa tinggi baris berdasarkan nilai sel sekaligus, tetapi, dengan kode VBA berikut, ini dapat membantu Anda menyelesaikan pekerjaan ini secepat mungkin.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Ubah tinggi baris berdasarkan nilai sel:
Sub rowheight()
'Updateby Extendoffice
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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memilih sel yang ingin Anda atur tinggi baris dengan nilai sel, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, tinggi baris telah diubah dengan nilai sel sebagai berikut:
Note: Di atas kode VBA, Jika Nilai H.> 15 Kemudian menunjukkan bahwa jika nilai sel lebih besar dari 15, tinggi baris akan diubah, jika nilai sel kurang dari 15, tinggi baris akan tetap tinggi default. Anda dapat mengubahnya sesuai kebutuhan.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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 sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!