不同工作表但相對應的儲存格重複 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 不同工作表但相對應的儲存格重複

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

11^# 跳轉到 »

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

回復 9# Hsieh

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

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

高中生 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

複製代碼

中學生 Rank: 2

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

13^#

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

回復 12# yen956

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

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題