Excel'de yalnızca seçilen aralığın kenarlıkları nasıl kopyalanır?
Microsoft Excel kullanırken, Özel Yapıştır işlevi ile bir aralıktan yalnızca hücre değerlerini, hücre biçimlendirmesini, hücre formüllerini vb. Kopyalamak kolaydır. Ancak Excel'deki bir aralıktan yalnızca kenarlık stilini kopyalamayı hiç denediniz mi? Bu makale, yalnızca seçilen aralığın kenarlıklarını Excel'deki yeni bir aralığa kopyalama yöntemini gösterecektir.
VBA kodu ile yalnızca seçilen aralığın sınırlarını kopyala
VBA kodu ile yalnızca seçilen aralığın sınırlarını kopyala
Aşağıdaki VBA kodu, yalnızca seçili hücrelerin kenarlık stilini kopyalamanıza ve ardından bu kenarlık stilini Excel'deki yeni bir aralığa uygulamanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modülve ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.
VBA kodu: Excel'de yalnızca seçilen aralığın kenarlıklarını kopyala
Sub CopyBorders()
'Updated by Extendoffice 20211203
Dim xRg, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
With yRg.Borders(xlEdgeLeft)
.LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
.ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
.Weight = xRg.Borders(xlEdgeLeft).Weight
End With
With yRg.Borders(xlEdgeTop)
.LineStyle = xRg.Borders(xlEdgeTop).LineStyle
.ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
.Weight = xRg.Borders(xlEdgeTop).Weight
End With
With yRg.Borders(xlEdgeBottom)
.LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
.ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
.Weight = xRg.Borders(xlEdgeBottom).Weight
End With
With yRg.Borders(xlEdgeRight)
.LineStyle = xRg.Borders(xlEdgeRight).LineStyle
.ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
.Weight = xRg.Borders(xlEdgeRight).Weight
End With
With yRg.Borders(xlInsideHorizontal)
.LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
.ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
.TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
.Weight = xRg.Borders(xlInsideHorizontal).Weight
End With
With yRg.Borders(xlInsideVertical)
.LineStyle = xRg.Borders(xlInsideVertical).LineStyle
.ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
.TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
.Weight = xRg.Borders(xlInsideVertical).Weight
End With
End Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. İlk patlamada Kutools for Excel iletişim kutusu, lütfen kopyalamanız gereken kenarlıkları olan aralığı seçin ve ardından OK düğmesine basın.
4. saniyede Kutools for Excel iletişim kutusu, lütfen kopyalanan kenarlığı uygulamak için bir hücre seçin ve ardından OK buton. Ekran görüntüsüne bakın:
Ardından, aşağıda gösterilen ekran görüntüsü gibi yalnızca seçilen aralığın sınır stilinin kopyalandığını ve yeni bir aralığa uygulandığını görebilirsiniz.
İlgili Makaleler:
- Excel'de kopyaları atlayan değerleri nasıl kopyalayıp yapıştırabilirim?
- Excel'de satır yüksekliği ve sütun genişliği olan hücre verilerini nasıl kopyalayabilirim?
- Hücreyi Excel'de formül değil metin değeri olarak nasıl kopyalayabilirim?
- Verileri Excel'deki başka bir çalışma sayfasının bir sonraki boş satırına nasıl kopyalayabilirim?
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!