標題: 自動複製框線 [打印本頁]

---

作者: bear0925900003    時間: 2014-2-20 18:51     標題: 自動複製框線

請問各位大大假設A1~N1均已設好框線，VBA如何寫才能讓A2儲存格輸入資料後A2~N2自動複製A1~N1之框線

---

作者: Kubi    時間: 2014-2-21 09:33

回復 1# bear0925900003


請下載並參閱附檔。
http://www.FunP.Net/412232

---

作者: bear0925900003    時間: 2014-2-21 10:39

回復 2# Kubi[/i
無限感激

---

作者: bear0925900003    時間: 2014-2-21 10:56

本帖最後由 bear0925900003 於 2014-2-21 11:06 編輯

回復 2# Kubi
再請教一下大大您的程式裡只有A2會動作，如果我希望是在A欄裡任何一格輸入資料均會產生框線該如何修改

---

作者: Kubi    時間: 2014-2-21 13:56

回復 4# bear0925900003


    請參考。
http://www.FunP.Net/68055

---

作者: mhl9mhl9    時間: 2014-3-2 01:06

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        [a1:n1].Copy
        Target.PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
    End If
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)