返回列表 上一主題 發帖

自動複製框線

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-2-20 18:51 | 只看該作者

自動複製框線

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

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
6#
發表於 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
lmh

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
5#
發表於 2014-2-21 13:56 | 只看該作者
回復 4# bear0925900003


    請參考。
http://www.FunP.Net/68055
[b]Kubi[/b]

TOP

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
4#
發表於 2014-2-21 10:56 | 只看該作者
本帖最後由 bear0925900003 於 2014-2-21 11:06 編輯

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

TOP

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
3#
發表於 2014-2-21 10:39 | 只看該作者
回復 2# Kubi[/i
無限感激
你猜!!

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
2#
發表於 2014-2-21 09:33 | 只看該作者
回復 1# bear0925900003


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

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題