返回列表 上一主題 發帖

[轉貼] VBA的寫作技巧與增進效能

wind6424

帖子
60 
主題
20 
精華
0 
積分
87 
點名
0  
作業系統
WinXP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-4 
最後登錄
2020-5-25 
1# 跳轉到 »
發表於 2011-10-19 15:01 | 顯示全部帖子
如果我復製儲存格後,只想貼上部份格式,
目前程式如下, 請問這可以在簡化嗎?
或是有其他的寫法

    Sheet9.Rows(1).Copy
    Sheet1.Rows(1).PasteSpecial Paste:=xlPasteFormats
    Sheet9.Rows(1).Copy
    Sheet1.Rows(1).PasteSpecial Paste:=xlPasteValidation

TOP

wind6424

帖子
60 
主題
20 
精華
0 
積分
87 
點名
0  
作業系統
WinXP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-4 
最後登錄
2020-5-25 
2#
發表於 2011-10-28 09:56 | 顯示全部帖子
1. 當重複參照同一標的物時
可善用 With ... End With

2. 當 Copy 後若貼上後馬上又要貼上的話,
無須 ...
luhpro 發表於 2011-10-20 23:01

請問 luhpro 大
如果我的要貼的地方是變數,是不是不能這樣寫
因為我執行會有問題
正確的方式是要如何寫??
謝謝
y = Sheet1.Range("A1").End(xlDown).Row+1
Set Sh9R = Sheets("Sheet9").Rows(1)
Set Sh1R = Sheets("Sheet1").Rows(x)

Sh9R.Copy
With Sh1R
  .PasteSpecial Paste:=xlPasteFormats
  .PasteSpecial Paste:=xlPasteValidation
End With

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題