- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¸Õ¸Õ¬Ý:- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Rng As Range, E
- '³]©w[A2],[A4:A5],[A7](Á|¨Ò,¥i¼W´î)¤@©wn¿é¤JÈ
- Set Rng = Union([A2], [A4:A5], [A7])
- '¥Ø«e¾ã±iWorksheet¥ô¦ó¦a¤è¦³²§°Ê, §¡·|IJ°Ê¥»VBA.
- '¦p·QÁY¤pIJ°Ê½d³ò¬°[A2],[A4:A5],[A7],½Ð±N¤U¦C«e±¤§¤@ºJ¡u'¡v¥h±¼
- 'If Intersect(Target, Rng) Is Nothing Then Exit Sub
- If [A2] <> "" And Application.CountA(Rng) < Rng.Count Then
- For Each E In Rng
- If E = "" Then
- MsgBox E.Address & " ¤@©wn¿é¤J¤º®e, ¤£¯à¯d¤UªÅ¥Õ¡C"
- End If
- Next
- End If
- End Sub
½Æ»s¥N½X |
|