- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 2# RCRG
¸Õ¸Õ¬Ý- '¤u§@ªíA ¼Ò²Õ
- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim E As Range, M As String
- 'Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨âөΦhÓ½d³ò«Å|ªº¯x§Î½d³ò¡C
- For Each E In Target
- If Not Application.Intersect(E, [B3:B79]) Is Nothing Then
- 'IF(C3="""","""",3^(1-COUNT(MATCH(C3,AA$3:AA$500,))))"
- M = "IF(" & E(1, 2).Address & "="""","""",3^(1-COUNT(MATCH(" & E(1, 2).Address & ",AA$3:AA$500,))))"
- If E <> Application.Evaluate(M) Then MsgBox E.Address(0, 0) & "= " & E & " ¶ñ¤J¸¹½X»P¹w³]¤£¦P"
- End If
- Next
- End Sub
½Æ»s¥N½X |
|