1234
返回列表 上一主題 發帖

工作表同步增加資料

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-11 22:39 | 只看該作者

工作表同步增加資料

問題：
sheet2工作表的a欄及b欄是抓取sheet1的a欄及b欄，sheet1的a,b欄資料會不斷增加，則sheet2的a,b欄也要同步增加
請問要如何設定公式？

Book1.rar (6.15 KB)

收藏 分享
joyce

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
2#
發表於 2015-2-12 10:18 | 只看該作者
A2=IF(Sheet1!A2="","",Sheet1!A2)

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2015-2-12 10:38 | 只看該作者
DEAR SIR
  用VBA如下放於 SHEET1 內

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet2.[A1:b65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[B65536].End(xlUp).Row
For M = 1 To X
Sheet2.Cells(M, 1) = Sheet1.Cells(M, 1)
Next
For N = 1 To Y
Sheet2.Cells(N, 2) = Sheet1.Cells(N, 2)
Next
End Sub
羅

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
4#
發表於 2015-2-12 11:15 | 只看該作者
回復 1# leiru


    試試看
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. With Target
  3.   If .Row >= 2 And .Column = 1 Or .Column = 2 Then
  4.     tar = .Address(0, 0)
  5.     Sheets("sheet2").Range(tar) = .Value
  6.   End If
  7. End With
  8. End Sub
複製代碼

TOP

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
5#
發表於 2015-2-12 12:06 | 只看該作者
謝謝ANGELA 及rouber590324 及owen06 回覆...
不會vba,請問是否可以設定函數....

angela大師,此公式在sheet2是要下拉,想設定的公式可以自動產生,不用作下拉式才產生新的資料
joyce

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
6#
發表於 2015-2-12 14:54 | 只看該作者
本帖最後由 owen06 於 2015-2-12 14:59 編輯

回復 5# leiru


    vba又不難，何必要排斥呢？畢竟只靠公式，很難達成這種自動的動作。
    先點上面的『複製代碼』，然後在你的檔案裡按alt+F11，跳出vba編輯視窗，然後點『工作表1』2下，貼上代碼，就完成了呀。

TOP

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
7#
發表於 2015-2-12 16:12 | 只看該作者
回復 6# owen06


   謝謝您的回覆,我再試試看
joyce

TOP

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
8#
發表於 2015-2-12 23:22 | 只看該作者
回復 4# owen06


    請問,若SHEET1再增加欄位,此VBA要如何修改
謝謝
joyce

TOP

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-8-2 
9#
發表於 2015-2-13 15:15 | 只看該作者
If .Row >= 2 And .Column = 1 Or .Column = 2 Then
Column是欄 1或2
若要增加應該是改這邊的數值

TOP

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
10#
發表於 2015-2-13 15:44 | 只看該作者
回復 9# fantersy


   再試試看....
  請問,若工作表名稱也改名,要如何修改模組內容
joyce

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
1234
返回列表 上一主題