帖子: 46
主題: 10
精華: 0
積分: 88
點名: 0
作業系統: WIN10
軟體版本: excel2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2014-1-27
最後登錄: 2018-3-30

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-3-4 22:48 | 只看該作者

[發問] 不同工作表但相對應的儲存格重複

請問有沒有辦法做到在不同工作表上面相對應的儲存格篩選出重複的值

比如說
工作表1 上的儲存格A1
和
工作表2上的儲存格A1
和
工作表3上的儲存格A1
出現相同的文字或數字

那就會顯示顏色或警示
我可以在同一個工作表示可以做到(用設定格式化的條件)
可是在不同工作表上一直無法做出來

樓主熱帖

j88141

中學生 Rank: 2

帖子: 46
主題: 10
精華: 0
積分: 88
點名: 0
作業系統: WIN10
軟體版本: excel2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2014-1-27
最後登錄: 2018-3-30

13^#

發表於 2014-3-11 00:22 | 只看該作者

回復 12# yen956

謝謝囉~
這是我想要的
:)

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

12^#

發表於 2014-3-10 15:48 | 只看該作者

回復 6# j88141
你的意思是不是這個?

如果是, 可試試看：

'未決解前後空白的問題
'例如: "台北"、" 台北"、"台北 " 會視為不同的名詞, 不知如何解決
Private Sub Worksheet_Change(ByVal Target As Range)
'////////////
Dim myRange As Range, str1 As String
Set myRange = Worksheets(1).Range("A1:H10")
If Not Intersect(Target, myRange) Is Nothing Then
Range("I1") = Target
If Target <> "" Then
Range("I2") = "=COUNTIF(A1:H10,I1)"
If Range("I2") >= 4 Then
MsgBox Target & "已經輸入" & Range("I2") & "次了。", vbExclamation
End If
Else
Range("I1") = ""
Range("I2") = ""
End If
End If
'///////////////
End Sub
'可將兩行 '////////// 之間的 VBA 剪下, 貼到下面, 效果不同, 試試看
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

複製代碼

TOP

j88141

中學生 Rank: 2

帖子: 46
主題: 10
精華: 0
積分: 88
點名: 0
作業系統: WIN10
軟體版本: excel2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2014-1-27
最後登錄: 2018-3-30

11^#

發表於 2014-3-8 11:07 | 只看該作者

回復 9# Hsieh

呼~試了很久終於試出來了
原來 [忽略空白]需要取消勾選不然做不出來

我還可以問一下嗎
因為我現在原本的儲存格已經有資料驗證了(有下拉式選單)
好像不能再用資料驗證了
有什麼方法讓兩個同時存在嗎?
謝謝~

TOP

ricky8751

小學生 Rank: 1

帖子: 31
主題: 6
精華: 0
積分: 37
點名: 0
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 10
性別: 男
來自: HK
註冊時間: 2010-10-31
最後登錄: 2017-10-26

10^#

發表於 2014-3-8 00:24 | 只看該作者

學習試了一下, 如果不是輸入而是複制貼上去是不會有錯誤提示, 樓主使用時要注意啊!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 149
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2014-3-7 23:23 | 只看該作者

回復 8# j88141

選取A1，建立名稱X
=COUNTIF(工作表1!$A$1:$H$10,工作表1!A1)
選取A1:H10，設置驗證/自訂
=x<>4

學海無涯_不恥下問

TOP

j88141

中學生 Rank: 2

帖子: 46
主題: 10
精華: 0
積分: 88
點名: 0
作業系統: WIN10
軟體版本: excel2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2014-1-27
最後登錄: 2018-3-30

8^#

發表於 2014-3-7 19:46 | 只看該作者

回復 7# Hsieh

那如果說先在E4儲存格輸入公式
當E4等於 4的時候
讓他自動出現警示訊息
這樣可否做得出來

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 149
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2014-3-7 11:13 | 只看該作者

回復 6# j88141

要找到第四個輸入位置應該不可能，或許可找到第四個位置
意思是無法取得第四個輸入順序，但如果是第四個位置，不依輸入順序倒可以試試

學海無涯_不恥下問

TOP

j88141