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

[µo°Ý] ¯S©w±ø¥ó ­­¨îÀx¦s®æ¿é¤J

[µo°Ý] ¯S©w±ø¥ó ­­¨îÀx¦s®æ¿é¤J

½Ð°Ý¦U¦ì¤j¤j

§Ú¦³¨â­ÓÄæ¦ìA¡BB

AÄæ³]¤F²M³æ¡A¥u¯à¤U©ÔY©MN
¦pªGAÄæ¿ï¤FN¡A«hBÄ椣¯à¿é¤JªF¦è
¦pªGAÄæ¿ï¤FY¡A«hBÄæ´N¥i¥H¿é¤J¥ô¦óªF¦è

½Ð°Ý³o¥¨¶°¸Ó¦p¦ó³]­p©O???

§Úªì¨B·Qªº¤è¦¡¬O¥ÎWorksheet_Change
EX:
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.         
  3.       If Target.Column = 1 And Target.Value = "N" Then
  4.             Target.Offset(, 1).*******   ->³]¤£¯à¿é¤Jªº±ø¥ó
  5.       End If

  6. End Sub
½Æ»s¥N½X
¥i¬O³£¾×¤£¦í@@

¤£ª¾¸Ó¦p¦ó¼¶¼g


ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

¦^´_ 1# li_hsien
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     If Target.Column = 2 Then
  4.         If Target.Count = 1 And Target.Offset(, -1) = "N" Then Target = ""
  5.     End If
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


¸Õ¤F¤@¤UÁÙ¬OµLªk¥h°£@@

Àx¦s®æ¦³¿ìªk¨Ï¥ÎÃþ¦üENABLEªº»yªk¶Ü???

¤§«e·Q³Ì¾A·íªº¤è¦¡´N¬O·íA1¿ï¤FN
B1´N¤£¯à°µ¿é¤Jªº°Ê§@

¤£ª¾¯à¤£¯à³o¼Ë³B²z

ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 3# li_hsien
§O§â°ÝÃD·Qªº¤Ó½ÆÂø
   play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


ÁÂÁÂHª©¤j

¯uªº¬O·Q½ÆÂø¤F

­ì¨Ó¥i¥H³o¼Ë¾Þ§@

ÁÂÁÂ

¤S¾Ç¨ì¤F·sªF¦è
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 4# Hsieh

½Ð°Ý¤@¤Uª©¤j
§Ú«á¨Ó·Q¨ì

¦]¬°¥Î³o¤èªk
¦pªGA1¿ï¤FY B1¥i¥H¶ñ¼g
¦ý¶ñ§¹«áA1¤S¿ï¤FN , B1ªº­ÈÁÙ¬O·|¦s¦b

©Ò¥H·Q»¡¥[¤F³o¬qµ{¦¡½X
  1. Private Sub Worksheet_Change(ByVal Target As Range)

  2. '    Application.EnableEvents = False
  3.    
  4.     If Target.Column = 57 And Target = "N" Then
  5. '        Application.EnableEvents = True   '¥[³oÃä???
  6.         Target.Offset(, 1) = ""
  7.     End If
  8.    
  9. '    Application.EnableEvents = True   '¥[³oÃä???
  10.    
  11. End Sub
½Æ»s¥N½X
«á¨Ó·Q¬Ý¨ì¬ÛÃö¤å³¹

¦]¬°¨Ï¥ÎWorksheet_Change·|¤@ª½°õ¦æ

©Ò¥H¥i¥H¥ÎApplication.EnableEvents¨ÓIJµo

¦ý§Ú¤£¤Ó²M·¡¸Ó¦p¦ó¾Þ§@

¬O¤@¶}©l¥ý³]¬°False
IJµo¨ìA1¬ONªº®É­Ô¦AÅܦ¨True¶Ü??

¥i¬O§Ú¸Õ¹LÁÙ¬O¤@ª½Âण¦^True @@

TKS~~
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD