kcho

帖子: 2
主題: 1
精華: 0
積分: 2
點名: 0
作業系統: windows xP
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2010-5-11
最後登錄: 2019-2-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-5-11 06:39 | 只看該作者

[發問] 如何從sheet1 儲存至Sheet3

我在sheet1工作表從b6:h25裡輸入資料後，按儲存按鈕( CommandButton1_Click() ) 後，可直接存至sheet3 的b6：h6 並且可以一直增加資料

請問該程式如何寫呢？麻煩請高手幫我解答謝謝

steven_lkk

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: MaC OS 10.10.5
軟體版本: office 2011
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-8-26
最後登錄: 2017-7-12

12^#

發表於 2010-8-27 00:18 | 只看該作者

您好~我剛剛開始學著製作一些excel 功能,我遇到同樣的問題,而更不瞭解如何製作儲存按鈕( CommandButton1_Click() ) ,但是我是新成員,所以無法下載各位前輩的範例來研究,所以各位前輩可否再教育一下小弟,或可以將前輩的範例寄給我呢? [email protected] ,感恩.

Steven

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

11^#

發表於 2010-5-15 21:58 | 只看該作者

這一題大家回覆的很踴躍
但有點複雜化了
*********************************
我們來看看這一題為什麼夏兄
回的很妙的原因

我看了很認同夏兄的做法
也很有感觸這很重要
首先是觀念性問題 OFFICE能用基本功能就用基本功能能不用巨集就盡量不用巨集
在這原則下夏兄做到了用定義函數運算主程式然後再將結果放到巨集
就單這兩行定義算出了複製區與要貼到哪裡的定位點
A=OFFSET(Sheet1!$B$6,,,COUNTA(Sheet1!$B$6

B$25),7)
N=OFFSET(Sheet3!$B$5,COUNTA(Sheet3!$B$5

B$65536),)

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

老夏

中學生 Rank: 2

帖子: 109
主題: 22
精華: 0
積分: 134
點名: 0
作業系統: Win7
軟體版本: Office 2000
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-5-1
最後登錄: 2023-3-5

論壇貢獻勳章

10^#

發表於 2010-5-13 08:02 | 只看該作者

本帖最後由老夏於 2010-5-13 14:13 編輯

111.rar (8.59 KB)

從善如流,那就脫褲子吧!

定義名稱
A=OFFSET(Sheet1!$B$6,,,COUNTA(Sheet1!$B$6:$B$25),7)
N=OFFSET(Sheet3!$B$5,COUNTA(Sheet3!$B$5:$B$65536),)

Sub 脫褲子放屁()
[A].Copy [N]'複製到
[A].ClearContents'清除
End Sub

**************************************************
工作表可以
更名
刪除A欄

VBA無宣告

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

9^#

發表於 2010-5-12 22:00 | 只看該作者

您要的是這樣嗎?
Sub ValCopy()
Dim lRowEnd As Long

lRowEnd = Worksheets("Sheet3").Range("B65536").End(xlUp).Row + 1
Worksheets("Sheet1").Range("B2:K2").Copy Worksheets("Sheet3").Cells(lRowEnd, 2)

End Sub

Book1.rar (6.91 KB)

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

8^#

發表於 2010-5-12 21:52 | 只看該作者

本帖最後由 luhpro 於 2010-5-12 21:55 編輯

我大概知道你的意思了,你是希望每次按下 Botton 時都能把目前在Sheet1 的資料 "新增" 到 Sheet3 現有的資料下方,而把歷次所增加的資料合起來當成一個資料庫來用.

基本上 Copy 資料的方式就參照上方即可, 至於判斷 Sheet3 目前最後一筆資料是從哪裡開始,則可以利用 Sheet3.Range("B65536").End(xlUp).Row 的方式取得.
關鍵部份程式如下,就看你怎麼套用囉 :

因為你的資料庫想從 Sheet3 的 b6 儲存格開始放資料, 為簡化程式的判斷, 建議可以考慮事先在 Sheet3 的 b5 儲存格隨便放個資料,則:
按下按鈕後 -

1. 取得 Sheet3 的資料末行位置 :
iRows = Sheet3.Range("B65536").End(xlUp).Row

2. 從 Sheet1 Copy 資料到 Sheet3
Sheet1.Range("b6:h25").Copy Sheet3.Cells(iRows + 1, 2)

3. 清除原始資料區等待使用者輸入新資料 (因為每次資料量不固定故建議應將上次的資料清除乾淨再繼續新增資料)
Sheet1.Range("b6:h25").Clear

如此應該就是你想要的功能.

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

7^#

發表於 2010-5-12 21:00 | 只看該作者

夏兄這題回的很妙
是個好答案

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2010-5-12 17:22 | 只看該作者

本帖最後由 PD961A 於 2010-5-12 17:26 編輯

謝謝樓上大大的幫忙.

可是我遇到一個問題,因我想要sheet1當作是類似資料輸入，而sheet3是類似資料庫,當 ...
kcho 發表於 2010-5-12 00:50

夏板主的意思是
你一開始的需求
"我在sheet1工作表從b6:h25裡輸入資料後，按儲存按鈕( CommandButton1_Click() ) 後，可直接存至sheet3 的b6：h6 並且可以一直增加資料--請問該程式如何寫呢？
當時你是希望用到 "CommandButton1的鍵持續在SHEET1增加資料到SHEET3的功能"所以你的SHEET3當然不能再當成資料庫使用
會跟你的定義名稱相衝突的.....
謝謝!

TOP

老夏

中學生 Rank: 2

帖子: 109
主題: 22
精華: 0
積分: 134
點名: 0
作業系統: Win7
軟體版本: Office 2000
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-5-1
最後登錄: 2023-3-5

論壇貢獻勳章

5^#

發表於 2010-5-12 11:14 | 只看該作者

脫褲子放屁

sheet3資料清單
資料直接輸入便是

TOP

kcho

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 2
點名: 0
作業系統: windows xP
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2010-5-11
最後登錄: 2019-2-25

4^#

發表於 2010-5-12 00:50 | 只看該作者

謝謝樓上大大的幫忙.

可是我遇到一個問題,因我想要sheet1當作是類似資料輸入，而sheet3是類似資料庫,當我第一次在sheet1 b6:h25 輸入有三筆資料時再按儲存後至sheet3 後有copy ,但第二次輸入時可能五筆資料他會把前面的三筆覆蓋上去而無法一直在往下列增加資料請問該怎麼做呢?

TOP

[發問] 如何從sheet1 儲存至Sheet3

[發問] 如何從sheet1 儲存至Sheet3

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]