帖子: 248
主題: 55
精華: 0
積分: 314
點名: 209
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-2-15 09:23 | 只看該作者

[發問] 不同Sheet欄位資料同步移除

我有兩張工作表(Sheet1、Sheet2)

我想要在Sheet1刪除整欄的時候

Sheet2也把該欄刪除

目前是想到用Private Sub Worksheet_Change(ByVal Target As Range)來判斷Target.Row

可是USER如果在Sheet1一次刪除多欄(選ROW1~ROW3後刪除) Target.Row只會抓到ROW1

這樣我沒辦法告訴Sheet2也需要刪除ROW2~ROW3

註:
1. USER的刪除行為會是整欄刪除，不會只刪除某個CELL
2. Sheet1&Sheet2欄位對應，但資料不完全相同
3. Sheet1&Sheet2不須判斷資料內容，只要Sheet1刪除，Sheet2也跟著刪除對應的ROW即可

再請各位指教

謝謝 !

RemoveSheetData.zip (3.97 KB)

樓主熱帖

用功到世界末日那一天～～～

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

2^#

發表於 2019-2-15 10:06 | 只看該作者

change 可以判斷刪除還是更新數據嗎???
可考慮用[按鈕]執行刪除

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 209
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2019-2-15 10:17 | 只看該作者

回復 2# 准提部林

我用change想說Sheet1跟Sheet2的總欄位來比
(可能用=COUNTA(A:A)來算)

如果Sheet1比Sheet2的欄位少就是USER有刪除

那我就抓Target.row來刪Sheet2的欄位
(可是現在刪多欄Target.row抓不到)

目前希望讓USER直覺的方式來直接刪除

不用再點選按鈕來觸發條件

還是您有建議的按鈕操作方式

再請指教

謝謝

用功到世界末日那一天～～～

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

4^#

發表於 2019-2-15 12:30 | 只看該作者

應是 [整列] 刪除吧~~

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRng As Range
On Error Resume Next
Set xRng = Sheets("Sheet1").Range("XXXX") '檢測定義名稱(Sheet1)是否有效
If Not xRng Is Nothing Then Exit Sub '若XXXX定義名稱還有效, 表示不是刪除, 跳出
Set xRng = Sheets("Sheet2").Range("YYYY") '檢測定義名稱(Sheet2)是否有效
On Error GoTo 0
If Not xRng Is Nothing Then xRng.EntireRow.Delete '同步刪除Sheet2的YYYY位址列
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ThisWorkbook.Names("XXXX").Delete '刪除定義名稱
ThisWorkbook.Names("YYYY").Delete '刪除定義名稱
On Error GoTo 0
With Target
   If .Columns.Count <> Columns.Count Then Exit Sub '非選取[整列]跳出
   .Cells.Name = "XXXX" '定義名稱(Sheet1)
   Sheets("Sheet2").Range(.Address).Name = "YYYY" '定義名稱(Sheet2)
End With
End Sub

TOP

li_hsien