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 並且可以一直增加資料

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

老夏

中學生 Rank: 2

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

論壇貢獻勳章

2^#

發表於 2010-5-11 08:52 | 只看該作者

本帖最後由老夏於 2010-5-11 20:08 編輯

[Sub Macro1()
[A].Copy [N]
End Sub

Sheet1.JPG (87.4 KB)

Sheet3.JPG (91.2 KB)

TOP

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

3^#

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

不會吧這麼簡單

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

老夏

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

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

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

luhpro

高中生 Rank: 3 Rank: 3

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

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

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

老夏

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

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

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

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

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