Excel'de seçili hücreleri nasıl yakınlaştırabilir veya büyütebilirim?
Hepimizin bildiği gibi, Excel, tüm çalışma sayfasındaki hücre değerinin boyutunu artırmamıza yardımcı olacak bir Yakınlaştırma özelliğine sahiptir. Ancak bazen, yalnızca seçili hücreleri yakınlaştırmamız veya büyütmemiz gerekir. Seçili hücreleri yalnızca bir çalışma sayfasında büyütmemiz için iyi fikirler var mı?
Seçili hücreyi VBA kodu ile yakınlaştırın veya büyütün
Seçili hücreyi VBA kodu ile yakınlaştırın veya büyütün
Excel'de seçili hücreleri büyütmemizin doğrudan bir yolu olmayabilir, ancak burada, bu işi geçici çözüm olarak ele almak için bir VBA kodu ekleyebilirim. Lütfen aşağıdaki işlemleri yapın:
1. Seçili hücreleri otomatik olarak büyütmek istediğiniz sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden, açılan Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki kodu boş Modüle kopyalayıp yapıştırın:
VBA kodu: Seçili hücreleri yakınlaştırın veya büyütün:
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. Ardından, bu kod penceresini kaydedin ve kapatın, şimdi, bazı veri hücrelerini seçtiğinizde veya tıkladığınızda, hücreler otomatik olarak bir resim olarak büyütülecek, ekran görüntüsüne bakın:
not: Seçilen hücreler, diğer hücreler seçildikten sonra orijinal boyutuna geri dönecektir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!