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

kcho

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

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

老夏

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

john2006168

不會吧這麼簡單

kcho

謝謝樓上大大的幫忙.

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

老夏

脫褲子放屁

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

PD961A

謝謝樓上大大的幫忙.

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

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

HUNGCHILIN

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

luhpro

我大概知道你的意思了,你是希望每次按下 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

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

Min

您要的是這樣嗎?
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

老夏

111.rar (8.59 KB)

下載次數: 19

2010-5-13 08:02

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


定義名稱
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無宣告