返回列表 上一主題 發帖

[發問] 如何化簡這幾段程式?

av8d

帖子
701 
主題
275 
精華
0 
積分
1002 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-20 16:06 | 只看該作者

[發問] 如何化簡這幾段程式?

  1.     Sheets("Sheet3").Select
  2.     Sheets("Sheet3").Range("B2:D2").Select
  3.     Selection.Copy
  4.     Sheets("Sheet1").Select
  5.     Sheets("Sheet1").Range("B2").Select
  6.     ActiveSheet.Paste
  7.     Application.Goto Reference:="R2C2:R200C4"
  8.     Application.CutCopyMode = False
  9.     Selection.FillDown
  10.     Sheets("Sheet2").Select
複製代碼
執行程式的按鈕在Sheet2
當我把第一段Sheets("Sheet3").Select取消時，他會顯是錯誤
收藏 分享

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-3-20 17:00 | 只看該作者
  1. Private Sub CommandButton1_Click()
  2. Sheets("sheet1").[b2:d2] = Sheets("sheet3").[b2:d2].Value
  3. Sheets("sheet1").Select
  4. Sheets("sheet1").[b2].Resize(199, 3).Select
  5. Selection.FillDown
  6. Sheets("Sheet2").Select
  7. End Sub
複製代碼
回復 1# av8d

這樣子可以嗎？

TOP

av8d

帖子
701 
主題
275 
精華
0 
積分
1002 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-4 
3#
發表於 2014-3-21 11:00 | 只看該作者
回復 2# owen06


    讓我學習了很多
如果b2:d2 是公式 也能這樣用嗎？
再次感謝

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
4#
發表於 2014-3-21 11:13 | 只看該作者
回復 3# av8d


    可以，因為Sheets("sheet1").[b2:d2] = Sheets("sheet3").[b2:d2].value
    Sheets("sheet3").[b2:d2].value就是只取他的『值』，
    所以sheet1的b2:d2只會取得sheet3的b2:d2公式所得到的值。

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題