- ©«¤l
- 95
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-11-10
- ³Ì«áµn¿ý
- 2020-5-25
|
¦^´_ 6# RCRG
ÁÂÁÂã¤j«ü¾É¡AÅý§Ú¤]¥i¥H¤@¨ÃקïGBKEE¤jªºVBA
'¤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) And E(1, 2) <> "" Then MsgBox E.Address(0, 0) & "= " & E & " ¶ñ¤J¸¹½X»P¹w³]¤£¦P"
End If
Next
End Sub |
|