請教 VBA - Excel程式區 - 麻辣家族討論版版

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

1^# 跳轉到 »

發表於 2021-6-22 19:41 | 顯示全部帖子

本帖最後由 samwang 於 2021-6-22 19:53 編輯

回復 1# duck_simon

原本您自己的程式碼就可以執行那個需求了吧?

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

2^#

發表於 2021-6-23 07:35 | 顯示全部帖子

回復 3# duck_simon

只要從工作表控制項  執行複製數據..就可以執行該動作
--> 您原本那段程式碼就有那個功能，因為只要A1有動作，就將A1值複製到B欄有數值的最後一個
   或者可以直接將你原本的"A1 是由他工作表 copy過來"，那段程式碼直接copy 到B欄有數值的最後一個如下範例
      [A1].Copy [B65536].End(xlUp).Offset(1, 0)
      資料來源.Copy [B65536].End(xlUp).Offset(1, 0)

活頁簿1.zip (20.91 KB)

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

3^#

發表於 2021-6-23 11:40 | 顯示全部帖子

回復 8# duck_simon

方便提供附件，這樣比較容易知道問題和需求，感謝。

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

4^#

發表於 2021-6-23 13:06 | 顯示全部帖子

本帖最後由 samwang 於 2021-6-23 13:13 編輯

回復 10# duck_simon

因為你把程式碼放在sheet1 no，所以要修改如下，謝謝

Private Sub CommandButton5_Click()
' 巨集23 巨集
' 差值
'
Range("AE1").Select
Selection.Copy
Sheets("差值").Select
Sheets("差值").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("差值").Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("差值").Range("B1").Select
End Sub

或者可以直接將你原本的"A1 是由他工作表 copy過來"，那段程式碼直接copy 到B欄有數值的最後一個如下
Sub test()
Sheets("no").[AE1].Copy Sheets("差值").[B65536].End(xlUp).Offset(1, 0)
End Sub