麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 請教 VBA [打印本頁]

作者: duck_simon 時間: 2021-6-22 17:50 標題: 請教 VBA

說明在內..謝謝指導
[attach]33439[/attach][attach]33439[/attach]

作者: samwang 時間: 2021-6-22 19:41

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

回復 1# duck_simon

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

作者: duck_simon 時間: 2021-6-22 20:57

回復 2# samwang

回大大原先要keyin 一次..想改為
只要從工作表控制項執行複製數據..就可以執行該動作

作者: samwang 時間: 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)

作者: ML089 時間: 2021-6-23 09:46

後面在加一行，讓輸入更順暢
[A1].Select

作者: duck_simon 時間: 2021-6-23 10:40

回復 duck_simon

只要從工作表控制項執行複製數據..就可以執行該動作
--> 您原本那段程式碼就有 ...
samwang 發表於 2021-6-23 07:35

感謝先進指導謝謝

作者: duck_simon 時間: 2021-6-23 10:46

後面在加一行，讓輸入更順暢
[A1].Select
ML089 發表於 2021-6-23 09:46

感謝大大指導謝謝

作者: duck_simon 時間: 2021-6-23 10:52

回復 7# duck_simon

[attach]33445[/attach]
現在控制項產生現象原因為何?

作者: samwang 時間: 2021-6-23 11:40

回復 8# duck_simon

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

作者: duck_simon 時間: 2021-6-23 11:55

回復 9# samwang

謝謝先進指導囉!

作者: samwang 時間: 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

作者: singo1232001 時間: 2021-6-24 06:11

回復 10# duck_simon

作者: duck_simon 時間: 2021-6-27 10:32

非常感謝二位先進指導..萬分感謝..

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)