Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-8-22 12:49 | 只看該作者

在不同工作表中找尋底色相同的資料並刪除

各位大大~
想請教一個問題~

在工作表一id那欄找到一樣在工作表二中綠色底的id號碼後，再工作表一把綠色底的id資料刪除

#在工作表二中ID欄位(資料會增加減少，順序不會和工作表一的id一樣)綠色底的資料

想請問這樣vba要怎麼寫

結果想要呈現的樣子

有想到要用dictionary來做但沒有寫過想請求各位幫忙，謝謝

樓主熱帖

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2016-8-23 09:40 | 只看該作者

回復 1# Changbanana
試試看

Dim myRow As Integer
Sheets("sheet1").Activate
Range("B2").Select
Do While ActiveCell <> ""
myRow = WorksheetFunction.Match(ActiveCell, Sheets("sheet2").Range("A:A"), 0)
If Sheets("sheet2").Cells(myRow, "A").Interior.ColorIndex = 14 Then
Rows(ActiveCell.Row).Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

複製代碼

TOP

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

3^#

發表於 2016-8-23 10:23 | 只看該作者

回復 2# zyzzyva

z大~

把程式碼打進去後工作表都沒反應耶

不知道是那兒出了問題

附上檔案

新資料夾.zip (387.18 KB)

TOP

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

4^#

發表於 2016-8-23 10:31 | 只看該作者

回復 2# zyzzyva

顯示出的錯誤如圖

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2016-8-23 10:34 | 只看該作者

回復 3# Changbanana
顏色的問題，ColorIndex那邊要改成43。
可以簡單用msgbox檢查顏色對應的數字。

mycolor = Sheets(2).Range("A2").Interior.ColorIndex
MsgBox (mycolor)

複製代碼

TOP

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

6^#

發表於 2016-8-23 10:39 | 只看該作者

回復 5# zyzzyva

原來如此~已經沒問題了

原來可以這樣查顏色~

感謝你的解答 :)

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2016-8-23 10:42 | 只看該作者

回復 6# Changbanana
不客氣。如果sheet1的id都會在sheet2出現，只是順序不一樣，那這樣就可以了；
如果不一定的話就要加上錯誤處理，不然match找不到的時候就會出現錯誤訊息。

TOP

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

8^#

發表於 2016-8-23 10:51 | 只看該作者

回復 7# zyzzyva

對耶

因為剛剛在加資料後來又不行

正如同您所說"sheet1的id都會在sheet2出現"，這是不一定的

sheet1的ID是當月全部資料

sheet2的ID是當月部份資料外加幾筆前幾個月的ID資料

那要該怎麼加上錯誤處理呢?

現在一直出現錯誤訊息0.0

TOP

zyzzyva