¦p¦ó§ïÅÜIJµo¤è¦¡

lucky12345

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
    If UCase([b20001]) = "K" Then
         [g19000:H20000] = [ g19001:H20001].Value
    End If
If [b20005] >= 22 Then [g1:H19000] = ""
    Application.EnableEvents = True
End Sub
¥H¤Wµ{¦¡½X¥Ø«e¨Ï¥Î¤¤.......
²{¦b§Ú¦³­Ó·sªº»Ý¨D.......­n§ïÅÜb20001ªºÄ²µo¤è¦¡
·íb20001>=1     [g19000:H20000] = [ g19001:H20001].Value   ½Æ»s¤@¦¸
·íb20001>=2 ¥u­n¼Æ¦r§ïÅÜ [g19000:H20000] = [ g19001:H20001].Value   ½Æ»s¤@¦¸
·íb20001>=3  ¥u­n¼Æ¦r§ïÅÜ.................................................................    ½Æ»s¤@¦¸
ps·íb20001=¤å¦r´N¤£¯àIJµo)
½Ð°Ý¦U¦ì¤j¤j  ¥H¤Wµ{¦¡º¿¥i§_­×§ï¡H  ÁÂÁ±zªº«ü¾É

Hsieh

1. Private Sub Worksheet_Calculate()
   
2. Application.EnableEvents = False
   
3.     If IsNumeric([b20001]) Then
   
4.          [g19000:H20000] = [ g19001:H20001].Value
   
5.        ElseIf [b20005] >= 22 Then
   
6.        [g1:H19000] = ""
   
7.      End If
   
8.     Application.EnableEvents = True
   
9. End Sub

½Æ»s¥N½X

¬O§_¬O³o¼Ëªº·N«ä?

lucky12345

¥i¥H¤F
ÁÂÁª©¥D«ü¾É

lucky12345

Hsieh ÁÂÁ±z¤£§[«ü¾É
±z©Ò´£¨Ñªºµ{¦¡½X.......§Ú¦A¤Tªº´ú¸Õ ,µo²{»P§Úªº»Ý¨D.¦³¤@ÂI®t²§
¬OIJµo¦ì¸m°ÝÃD.....¦p¤U
§Úªº»Ý¨D,¥u¤¹³\b20001>=1...±ø¥ó¤§¤U.....¥ub20001¼Æ­È§ïÅܤ@¦¸,´N¤¹³\IJµo¤@¦¸
¦ý¬O±z´£¨Ñªºµ{¦¡½X¥u­n¦b¥ô¤@Àx¦s®æ¥´¤J=1+1«öenter.......¤]·|IJµo¤@¦¸
¤£ª¾¦p¦ó¸Ñ¨M¡H........¦A¤T³Â·Ð±z  ¯u¬OÁÂÁ±z

GBKEE

¦^´_ 4# lucky12345

§ï¥Î Worksheet_Change ¨Æ¥ó ¸Õ¸Õ¬Ý

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target.Address(0, 0) = "B20001" And Target > 1 Then [g19000:H20000] = [ g19001:H20001].Value
   
4.     If Target.Address(0, 0) = "B20005" And Target >= 22 Then [g1:H19000] = ""
   
5.     Application.EnableEvents = True
   
6. End Sub

½Æ»s¥N½X

lucky12345

ÁÂÁ¦U¦ì¤j¤jÀ°¦£
¤£ª¾¬°¦ó¥u¸Õ¥Î¦¨¥\¤@¦¸  ½ÐÀ°§Ú¬d¬ÝªþÀÉ ÁÂÁÂ
«z¡I¤£¯à¤W¶Ç­C¡I

GBKEE

¦^´_ 6# lucky12345
¤W¶ÇÀÉ®× ¥u±µ¨ü¤U¦Cªº°ÆÀɦW  chm, pdf, zip, rar, tar, gz, bzip2, gif, jpg, jpeg, png  
¦p¤£¬O¤W¦C ªºÀÉ®×»ÝÀ£ÁY ¬° zip, rar ªºÀ£ÁYÀɤW¶Ç

lucky12345

ÁÂÁ¦U¦ì¤j¤jÀ°¦£
±H¤WªþÀÉ   ½ÐÀ°§Ú¬d¬Ý ÁÂÁÂ

GBKEE

¦^´_ 8# lucky12345
ªþÀÉ ªºB208 >=22   B205¬OªÅ¥Õªº

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Not Intersect(Target, Range("B201", "B205")) Is Nothing Then
   
4.         If [B201] > 1 Then [g190:H200] = [ g191:H201].Value
   
5.         If [B205] >= 22 Then [g1:H190] = ""
   
6.     End If
   
7.     Application.EnableEvents = True
   
8. End Sub

½Æ»s¥N½X

oobird

­Y§A´¿¸g¥X²{¿ù»~¦ÓÅýµ{¦¡¤¤³~¸õ¥Xªº¸Ü¡A§A¥²¶·³æ¿W°õ¦æ³o¤@¥y¡G
Application.EnableEvents = True