Bagaimana cara memperbesar atau memperbesar sel yang dipilih di Excel?
Seperti yang kita semua tahu, Excel memiliki fitur Zoom untuk membantu kita meningkatkan ukuran nilai sel di seluruh lembar kerja. Tapi, terkadang, kita hanya perlu memperbesar atau memperbesar sel yang dipilih saja. Adakah ide bagus bagi kami untuk memperbesar sel yang dipilih hanya di lembar kerja?
Zoom atau perbesar sel yang dipilih dengan kode VBA
Zoom atau perbesar sel yang dipilih dengan kode VBA
Mungkin tidak ada cara langsung bagi kami untuk memperbesar sel yang dipilih di Excel, tetapi, di sini, saya dapat memperkenalkan kode VBA untuk menangani pekerjaan ini sebagai solusi. Harap lakukan sebagai berikut:
1. Klik kanan tab lembar yang Anda inginkan untuk memperbesar sel yang dipilih secara otomatis, lalu pilih Lihat kode dari menu konteks, di buka Microsoft Visual Basic untuk aplikasi jendela, salin dan tempel kode berikut ke dalam Modul kosong:
Kode VBA: Memperbesar atau memperbesar sel yang dipilih:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. Kemudian simpan dan tutup jendela kode ini, sekarang, ketika Anda memilih atau mengklik beberapa sel data, sel akan diperbesar seperti gambar secara otomatis, lihat tangkapan layar:
Note: Sel yang dipilih akan diubah kembali ke ukuran aslinya setelah memilih sel lain.
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!
