Excel'de seçili aralığın yalnızca kenarlıklarını nasıl kopyalayabilirsiniz?
Microsoft Excel kullanırken, bir aralıktan yalnızca hücre değerlerini, hücre biçimlendirmesini, hücre formüllerini vb. Özel Yapıştır işleviyle kopyalamak kolaydır. Ancak, Excel'de bir aralıktan yalnızca kenarlık stilini kopyalamayı denediniz mi? Bu makale, Excel'de seçili aralığın yalnızca kenarlıklarını yeni bir aralığa kopyalama yöntemini gösterecektir.
Yalnızca seçili aralığın kenarlıklarını kopyalamak için VBA kodu kullanın
Yalnızca seçili aralığın kenarlıklarını kopyalamak için VBA kodu kullanın
Aşağıdaki VBA kodu, seçili hücrelerin yalnızca 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 adımları izleyin.
1. "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın.
2. "Microsoft Visual Basic for Applications" penceresinde, "Ekle" > "Modül"'e tıklayın ve ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.
VBA kodu: Excel'de seçili aralığın yalnızca kenarlıklarını kopyalayın
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. Kodu çalıştırmak için "F5" tuşuna basın. İlk açılan "Kutools for Excel" iletişim kutusunda, kopyalamak istediğiniz kenarlık içeren aralığı seçin ve ardından "Tamam" düğmesine tıklayın.
4. İkinci "Kutools for Excel" iletişim kutusunda, kopyalanan kenarlığı uygulamak için bir hücre seçin ve ardından "Tamam" düğmesine tıklayın. Ekran görüntüsüne bakın:
Daha sonra, seçili aralığın yalnızca kenarlık stili kopyalanmış ve aşağıdaki ekran görüntüsünde gösterildiği gibi yeni bir aralığa uygulanmış olabilirsiniz.
İlgili makaleler:
- Excel'de yinelenenleri atlayarak değerleri nasıl kopyalayıp yapıştırabilirsiniz?
- Excel'de satır yüksekliği ve sütun genişliği ile hücre verilerini nasıl kopyalayabilirsiniz?
- Excel'de hücreyi formül değil metin değeri olarak nasıl kopyalayabilirsiniz?
- Excel'de başka bir çalışma sayfasının sonraki boş satırına veri nasıl kopyalanır?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin