- ©«¤l
- 471
- ¥DÃD
- 121
- ºëµØ
- 0
- ¿n¤À
- 579
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- OFFICE2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-4-16
- ³Ì«áµn¿ý
- 2023-1-17
|
¦^´_ 4# lpk187
¦nªF¦è~~¦¬¤U¤F¡I¡I¡I
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [B3].Address Then
¦³ÂI½ÆÂø...¬d¤F¤U ®e©ö²z¸Ñ¦h¤F....·Q°Ý¤U[target],¥iÀH§Ú§ó§ï¦p AA? ab?
Private¬O¡§¨p¦³¡¨¡A³o¼Ëªºµ{§Ç¥u¯à¦b«ü©w½d³ò¨Ï¥Î¡A¨Ò¦p¦bSheet¸Ì
Sub¬O¡§¤À¤ä¡¨¡A¤]´N¬O»¡¬O½Ñ¦hµ{§Ç¤§¤@
By¬O¡§¦ñÀH¡¨
val¬O¡§È¡¨
target¬OÅܶqªº¦WºÙ¡A¥i¥HÀH«K§ï¦¨¨ä¥¦ªº¡A¨Ò¦p¡§XX¡¨
As¬O¡§§@¬°¡¨
Range¬O¡§°Ï°ì¡¨¡A³o¸Ì¬OÅܶqªº¤@ºØÃþ«¬
¤@¥¹·s¿ï¾Ü¤F¤@ӳ椸®æ°Ï°ì¡A´N¤Þµo³oÓµ{§Ç¡A¦P®É²£¥Í¤@Ó¦W¦r¬°targetªºÅܶq¡A³oÓÅܶq¥Nªí©Ò¿ï¤¤ªº³æ¤¸®æ°Ï°ì¡C |
|