麻辣家族討論版版 » 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)

樓主熱帖

收藏

大學生 Rank: 4

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

2^#

發表於 2021-6-22 19:41 | 只看該作者

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

回復 1# duck_simon

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

　暱稱: duck_simon

中學生 Rank: 2

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

3^#

發表於 2021-6-22 20:57 | 只看該作者

回復 2# samwang

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

大學生 Rank: 4

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

4^#

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

版主 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 三鍵輸入公式

　暱稱: 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

感謝先進指導謝謝

　暱稱: 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

8^#

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

回復 7# duck_simon

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

大學生 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

10^#

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

回復 9# samwang

謝謝先進指導囉!

維2.rar (73.76 KB)

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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