返回列表 上一主題 發帖

[發問] 可否將按鍵前數個儲存格貼至另一活頁！（以解決）

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-4-20 19:53 | 顯示全部帖子
回復 8# louts
  1. Sub 按鈕1_Click()
  2. Dim a As Range
  3. Set a = Sheets("1").Shapes(Application.Caller).TopLeftCell
  4. r = a.Row
  5. Sheets("2").[A1].Resize(, 4) = Sheets("1").Cells(r, 1).Resize(, 4).Value
  6. Sheets("2").[B2].Resize(, 3) = Sheets("1").Cells(r, 5).Resize(, 3).Value
  7. End Sub
複製代碼
檔案(活頁簿)名稱 => 新增Microsoft Excel 工作表 (2).xls
工作表名稱       => 1  與  2

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題