返回列表 上一主題 發帖

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

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2014-3-10 15:48 | 顯示全部帖子
回復 6# j88141
你的意思是不是這個?


如果是, 可試試看：
  1. '未決解前後空白的問題
  2. '例如: "台北"、" 台北"、"台北 " 會視為不同的名詞, 不知如何解決
  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     '////////////
  5.     Dim myRange As Range, str1 As String
  6.     Set myRange = Worksheets(1).Range("A1:H10")
  7.    
  8.     If Not Intersect(Target, myRange) Is Nothing Then
  9.         Range("I1") = Target
  10.         If Target <> "" Then
  11.             Range("I2") = "=COUNTIF(A1:H10,I1)"
  12.             If Range("I2") >= 4 Then
  13.                 MsgBox Target & "已經輸入" & Range("I2") & "次了。", vbExclamation
  14.             End If
  15.         Else
  16.             Range("I1") = ""
  17.             Range("I2") = ""
  18.         End If
  19.     End If
  20.     '///////////////
  21. End Sub

  23. '可將兩行 '////////// 之間的 VBA 剪下, 貼到下面, 效果不同, 試試看
  24. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  25. End Sub
複製代碼

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題