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

帖子: 11
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-4-16
最後登錄: 2016-10-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-4-20 08:46 | 顯示全部帖子

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

本帖最後由 louts 於 2012-4-20 20:41 編輯

請問各位先進：
如果要將活頁簿第一列的數值（只貼上值）貼到第二活頁簿（顏色對應位置）＆活頁簿第二列的數值（只貼上值）貼到第二活頁簿（顏色對應位置）。
請問『按鈕一』跟『按鈕二』是否可以共用同一巨集，因檔案共有有四百多列故想請教是否有更適切方式，如何撰寫，謝謝各位。

帖子: 11
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-4-16
最後登錄: 2016-10-24

2^#

發表於 2012-4-20 09:17 | 顯示全部帖子

回復 2# mark15jill

謝謝您的回覆...
我的需求只是把值帖到特定儲存格，然後進行資料比對。所以活頁簿（一）每一列的值都是要貼到活頁簿（二）的那七個儲存格，當然貼上值前會先清除前面的資料。

謝謝您

帖子: 11
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-4-16
最後登錄: 2016-10-24

3^#

發表於 2012-4-20 17:30 | 顯示全部帖子

回復 4# Hsieh

是的我的需要的效果只有這樣謝謝您板主...

帖子: 11
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-4-16
最後登錄: 2016-10-24

4^#

發表於 2012-4-20 17:47 | 顯示全部帖子

回復 4# Hsieh

Sub 按鈕1_Click()
Dim a As Range
Set a = ActiveSheet.Shapes(Application.Caller).TopLeftCell
r = a.Row
Windows(2).ActiveSheet.[A1].Resize(, 4) = Cells(r, 1).Resize(, 4).Value
Windows(2).ActiveSheet.[B2].Resize(, 3) = Cells(r, 5).Resize(, 3).Value
End Sub

複製代碼

謝謝板主，但執行時會顯示『執行階段錯誤'9':陣列索引超出範圍』不知哪個地方有誤煩請指導。

帖子: 11
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-4-16
最後登錄: 2016-10-24

5^#

發表於 2012-4-20 19:18 | 顯示全部帖子

回復 7# Hsieh

謝謝您的答覆...我的是同一個檔案兩個不同的活頁...一個是『活頁1』一個是『活頁2』謝謝您。

帖子: 11
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-4-16
最後登錄: 2016-10-24

6^#

發表於 2012-4-20 20:00 | 顯示全部帖子

回復 9# register313

謝謝您...這正是我需要的功能。