ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý¼¶¼g§PÂ_¦¡¡A¤§«á¸õ¥Xĵ§iµøµ¡¡C

½Ð°Ý¼¶¼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

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

TOP

¦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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-17 11:46 ½s¿è

¦^´_ 3# tku0216
Private Sub CommandButton1_Click()¡¨  «ö¤Uª«¥óªº¨Æ¥ó  ¤u§@ªí±±¨î¤u¨ã½c , vba  ªí³æ.

Private Sub Ex()      Private  (¼Ò²Õ: ¨p¥Î)   ¤£Åã¥Ü¦b «ü¥O->¥¨¶° µøµ¡¤¤   
¦b³o¼Ò²Õªºµ{§Ç¤¤  ¥iª½±µ Ex ¨Ó¥G¥s ,  ¨ä¥L¼Ò²Õ»Ý¥Î  Run "Sheet1.Ex"  ¨Ó©I¥s

Intersect ¤èªk ¶Ç¦^ Range ª«¥ó  :  ¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò  
If Not Intersect(Target, [j18:l18]) Is Nothing Then  
Not ???    Nothing   ª«¥ó¤£¦s¦b

TOP

·PÁª©¥D­Ìªº¦^ÂСA¤@¦¸¤ñ¤@¦¸²M·¡¤F¡C

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD