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

[µo°Ý] ¦p¦ó¹ê²{,Àx¦s®æ¤º®e§ïÅÜ,´N·|IJµoVBAµ{§Ç°õ¦æ

[µo°Ý] ¦p¦ó¹ê²{,Àx¦s®æ¤º®e§ïÅÜ,´N·|IJµoVBAµ{§Ç°õ¦æ

¦p¦ó¹ê²{,¬Y¤@Àx¦s®æ¤º®e,¥u­n¦³Åܧó,´N·|IJµoVBAµ{§Ç°õ¦æ
½Ð±Ð°ª¤â¤j¤j,µ{¦¡½XÀ³­n¦p¦ó¼g?   ÁÂÁÂ!

¦^´_ 1# blue2263
·j´M Worksheet_Change ,¦³³\¦hªº¤º®e¥i¬Ý
  1. Private Sub Worksheet_Change(ByVal Target As Range)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ blue2263 ©ó 2014-2-17 10:39 ½s¿è

ÁÂÁÂG¤j
§Ú±Nµ{¦¡½X¼g¦b¤u§@ªí1
²{¦b¤u§@ªí1,Àx¦s®æ¤º®e,¥u­n¦³Åܧó,¤v¥i¥HIJµoVBAµ{§Ç°õ¦æ
²{¦bªº³]©w¬O,¥þ³¡Àx¦s®æ,¤º®e¥u­n¦³Åܧó,´N·|IJµoµ{¦¡°õ¦æ,
§Ú¦pªG­n, ¯S©wÀx¦s®æA1, ¤º®eÅܧó,¤~·|°õ¦æµ{¦¡
½Ð±Ðµ{¦¡½X­n¦p¦ó§ó§ï?
ÁÂÁÂ

TOP

  1. Private Sub Worksheet_Change(ByVal Target As Range)

  2. With Target
  3. If .Row = 1 And .Column = 1 Then
  4.     If .Value > 10 Then
  5.     .Offset(0, 1) = "OK"
  6.     Else: .Offset(0, 1) = ""
  7.     End If
  8. End If
  9. End With
  10. End Sub
½Æ»s¥N½X
¦^´_ 3# blue2263

³o¼Ëªº¨Ò¤lÀ³¸Óº¡¦nÀ´ªº¡A¸Õ¸Õ§a

TOP

·PÁÂK ¤j, O¤jªº¸Ñµª
¤v¸Ñ¨M§Úªº°ÝÃD

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD