工作表同步增加資料

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

13^#

發表於 2015-2-16 21:04 | 只看該作者

回復 12# leiru

請問調整跟上傳這二個表，是要做怎麼樣的連動呢？可否簡述一下，謝謝~

帖子: 334
主題: 139
精華: 0
積分: 621
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2022-11-3

12^#

發表於 2015-2-14 19:22 | 只看該作者

回復 11# owen06

謝謝owen06耐心指導,照步驟操作,仍做不出來,再麻煩指導....
感謝

統計.rar (85.65 KB)

joyce

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

11^#

發表於 2015-2-14 12:10 | 只看該作者

回復 10# leiru

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row >= 2 And .Column = 1 Or .Column = 2 Then
tar = .Address(0, 0)
Sheets("sheet2").Range(tar) = .Value
End If
End With
End Sub

複製代碼

若要增加欄，就再多加： or .column=X 即可
若要改工作表名 Sheets("XXX").Range(tar) = .Value
以上都修改X的部份即可

帖子: 334
主題: 139
精華: 0
積分: 621
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2022-11-3

10^#

發表於 2015-2-13 15:44 | 只看該作者

回復 9# fantersy

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

joyce

fantersy

帖子: 132
主題: 35
精華: 0
積分: 179
點名: 0
作業系統: Windows
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-24
最後登錄: 2024-3-13

9^#

發表於 2015-2-13 15:15 | 只看該作者

If .Row >= 2 And .Column = 1 Or .Column = 2 Then
Column是欄 1或2
若要增加應該是改這邊的數值

帖子: 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

帖子: 334
主題: 139
精華: 0
積分: 621
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2022-11-3

7^#

發表於 2015-2-12 16:12 | 只看該作者

回復 6# owen06

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

joyce

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2015-2-12 14:54 | 只看該作者

本帖最後由 owen06 於 2015-2-12 14:59 編輯

回復 5# leiru

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

帖子: 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