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

返回列表下一主題上一主題發帖

[發問] 請教 VBA

　暱稱: duck_simon

中學生 Rank: 2

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2021-6-22 17:50 | 只看該作者

[發問] 請教 VBA

說明在內..謝謝指導

活頁簿1.rar (15 KB)

樓主熱帖

收藏

　暱稱: duck_simon

中學生 Rank: 2

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

13^#

發表於 2021-6-27 10:32 | 只看該作者

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

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2021-6-24 06:11 | 只看該作者

回復 10# duck_simon

維2 v1.zip (68.72 KB)

大學生 Rank: 4

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

11^#

發表於 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

　暱稱: duck_simon

中學生 Rank: 2

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

10^#

發表於 2021-6-23 11:55 | 只看該作者

回復 9# samwang

謝謝先進指導囉!

維2.rar (73.76 KB)

大學生 Rank: 4

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

9^#

發表於 2021-6-23 11:40 | 只看該作者

回復 8# duck_simon

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

　暱稱: duck_simon

中學生 Rank: 2

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

8^#

發表於 2021-6-23 10:52 | 只看該作者

回復 7# duck_simon

現在控制項產生現象原因為何?

　暱稱: duck_simon

中學生 Rank: 2

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

7^#

發表於 2021-6-23 10:46 | 只看該作者

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

感謝大大指導謝謝

　暱稱: duck_simon

中學生 Rank: 2

帖子: 120
主題: 34
精華: 0
積分: 174
點名: 0
作業系統: win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2010-5-4
最後登錄: 2024-11-20

6^#

發表於 2021-6-23 10:40 | 只看該作者

回復 duck_simon

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

感謝先進指導謝謝

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2021-6-23 09:46 | 只看該作者

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

靜思自在 : 君子為目標，小人為目的。

返回列表下一主題上一主題