[發問] 如何只複製一個定義名稱內的框線格式(例如只包含linestyle,colorindex,weight)?

swatt

各位高手大大,
如題,
在一個sheet內有多筆相同範圍的定義名稱，先會在第一個定義名稱內畫好框線，目標是將畫好的框線格式複製給其他定義名稱。
起初想用手動pasteformat但發現會把底色資料貼上去，無法只畫框線。後來搜尋資料發現以下語法可用
ActiveCell.Offset(0, 5).Borders().LineStyle = ActiveCell.Borders().LineStyle
所以稍微做個實驗改變如下, c4:D5是有畫框線的，要將其框線格式複製給沒畫框線的a1:b2 ，
ActiveSheet.Range("a1:B2").Borders().LineStyle = ActiveSheet.Range("c4:D5").Borders().LineStyle
結果卻無法執行!!!! 不知問題出在哪裡?

請問各位高手大大，是否還有其他方式可以只複製框線格式，然後貼給相同大小範圍的range??

swatt

回復 2# Hsieh

感謝超級版主的幫忙...
果然是需要掃描每個cell的框線才有辦法完全複製，雖然需花多一點時間但問題解決了，讚讚讚啦.....
套用時發現一個小問題，如果將weight擺在最後一項(因錄製macro時weight都擺在最後)會多出不必要的線如附圖,
但只要不要擺在最後一項就沒問題，不知為什麼?
如果超級版主有時間的話，再幫忙答覆一下，再次感謝囉~~~

Sub nn()
Dim Rng As Range, Rng1 As Range
Set Rng = Range("C4:D5") '來源範圍
Set Rng1 = Range("A1:B2") '改變範圍
Rng1.ClearFormats
For i = 1 To Rng.Rows.Count
   For j = 1 To Rng.Columns.Count
     For k = 1 To Rng.Borders.Count
       'Rng1(i, j).Borders(k).Weight = Rng(i, j).Borders(k).Weight
       Rng1(i, j).Borders(k).ColorIndex = Rng(i, j).Borders(k).ColorIndex
       Rng1(i, j).Borders(k).LineStyle = Rng(i, j).Borders(k).LineStyle
       Rng1(i, j).Borders(k).Weight = Rng(i, j).Borders(k).Weight
     Next
   Next
Next
End Sub

   

下載 (16.67 KB)

2012-8-23 11:17

Hsieh

回復 1# swatt
要每條格線逐一設定

1. Sub nn()
   
2. Dim Rng As Range, Rng1 As Range
   
3. Set Rng = Range("C4:D5") '來源範圍
   
4. Set Rng1 = Range("A1:B2") '改變範圍
   
5. Rng1.ClearFormats
   
6. For i = 1 To Rng.Rows.Count
   
7.    For j = 1 To Rng.Columns.Count
   
8.      For k = 1 To Rng.Borders.Count
   
9.        Rng1(i, j).Borders(k).Weight = Rng(i, j).Borders(k).Weight
   
10.        Rng1(i, j).Borders(k).ColorIndex = Rng(i, j).Borders(k).ColorIndex
    
11.        Rng1(i, j).Borders(k).LineStyle = Rng(i, j).Borders(k).LineStyle
    
12.      Next
    
13.    Next
    
14. Next
    
15. End Sub

複製代碼