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

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¶Ç

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