返回列表 上一主題 發帖

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

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 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

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題