½Ð°Ý¼¶¼g§PÂ_¦¡¡A¤§«á¸õ¥Xĵ§iµøµ¡¡C
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
½Ð°Ý¼¶¼g§PÂ_¦¡¡A¤§«á¸õ¥Xĵ§iµøµ¡¡C
¦U¦ì¤j¤j¦n¡A
§Ú¦³¤@Ó3*4ªºªí®æ¡A¨C®æ³£¬O¼Æ¦r¡A³o¨Ç¼Æ¦r·|¨Ì·Ó¨Ï¥ÎªÌªº¶ñ¼g¦Ó²Ö¥[¡A§Ún¦bVBA¸Ì¼gµ{¦¡Åý¥L¦b¤j©ó¬YӼƦrªº®ÉÔ¡A¸õ¥X¾ðµ¡»¡¤w¸g¹F¨ì¹w©w¼Æ¦r¡C
§Ú¦³·Q¹L¥Îif then¨Ó¼g¡A¦ý³o¼Ë§Ún¼g12¦¸¡A¥H¤U½Ð±Ð¨âÓ°ÝÃD¡G
1.§Úµo²{·í§Ú¬Y¤@®æ¨ì¹F¹w©w¼Æ¦r®É¡Aĵ§iµøµ¡·|¸õ¥X¡A¦ý¤§«á¥L´N¤@ª½¸õ¥X¤F¡C
2.¬O§_¥i¥H¥Î°j°é¨Ó²¤Æ¼g12¦¸ªº¹Lµ{¡H
ÁÂÁ¡C |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1:d3]) Is Nothing Then
If Target > 100 Then MsgBox "¶W¹L¤F"
End If
End Sub |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
¦hÁª©¥D¦^ÂСA
·Qªþ±a¸ß°Ý¤@Ó°ÝÃD¡G´N¬O§Ú¬Ý¦U¦ìªºµ{¦¡¼gªk¡A³£¬O¥H¡§Private Sub Worksheet_Change(ByVal Target As Range)¡¨¶}ÀY¡A³o¬O¤£¬O¤@Ó©T©w¥Îªk¡H¦]¬°§Ú¥Ø«e¥u¦³¥Î¨ì²K¥[¤@Ó«ö¶s¡A©Ò¥H§Ú³£¬O¥Î¡§Private Sub CommandButton1_Click()¡¨·í¶}ÀY¡C
ÁÙ¦³½Ð°Ý³o¬qµ{¦¡½X¡§If Not Intersect(Target, [j18:l18]) Is Nothing Then¡¨©Ò¥Nªíªº·N¸q¡AÁÂÁ¡C |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
·PÁª©¥D̪º¦^ÂСA¤@¦¸¤ñ¤@¦¸²M·¡¤F¡C |
|
|
|
|
|
|