ÂŤÑÄR¦À

¦^´_ 18# c_c_lai


    ¹ï

ÂŤÑÄR¦À

¦^´_ 18# c_c_lai

¦]¬°§Ú¨ì®É­Ô¥i¯à·|§ì100¤äªÑ²¼¡A©È¸ê®Æ¶q¤Ó¤j¹q¸£¶]¤£°Ê¡A©Ò¥H¤~­nºÉ¥i¯à´î¤Ö¤£¥²­nªº¸ê®Æ

ÂŤÑÄR¦À

¦^´_ 22# c_c_lai

Private Sub Worksheet_Change(ByVal Target As Range)

    '  ·í D2 Äæ¦ì¦³²§°Ê®É¡A «h¥h©I¥s RecordPrice ªº¤èªk (Method)¡C

    If Target.Address = "$C$2" Or Target.Address = "$E$2" Or Target.Address = "$G$2" Or Target.Address = "$I$2" Or _

              Target.Address = "$K$2" Or Target.Address = "$M$2" Or Target.Address = "$O$2" Or _

              Target.Address = "$Q$2" Or Target.Address = "$S$2" Or Target.Address = "$U$2" Then

        Call RecordPrice(Target.Address)

    End If

End Sub


C¤j¥H¤Wªº¦a¤è¦pªG§Ú¦³100ÀɪѲ¼¡A¬O­n¥´100­Ó¶Ü??:'(

ÂŤÑÄR¦À

¦^´_ 25# c_c_lai
´ú¸Õ«á¨S¦³¥ô¦ó¤ÏÀ³

ÂŤÑÄR¦À

¦^´_ 27# c_c_lai


    ¦³ªü¡A¦ý¬O¨S¦³¥ô¦ó¤ÏÀ³
¹ï¡A§A­è­èµ¹§ÚªºªÑ²¼0§Ú§â¤½¦¡©ñ¶i¥h«á¨S¦³¤ÏÀ³

ÂŤÑÄR¦À

¦^´_ 30# c_c_lai


    C¤j§Ú¬O¥Î§AªºÀɮסAµM«á§â²Ä¤G¦C¤½¦¡¥N¤J¡A´ú¸Õµ²ªG¨S¦³¤ÏÀ³¡A§Ú²{¦b¥Xªù¤F¡A§Ú¦^®a«á·|±NÀɮפW¶Ç
´ú¸Õµ²ªG¬OÁ`¶q¤@ª½¦³ÅÜ°Ê¡A¦ýµ{¦¡³£¨S°Ê§@

ÂŤÑÄR¦À

¦^´_ 32# c_c_lai


    C¤jÁÂÁ¡A§Ú¦^®a«á´ú¸Õ¡A¦ý­è­è¨º­ÓÀɮ׬°¤°»ò·|¨S°Ê§@¡H
§Ú¥þ³¡ªºµ{¦¡³£¨S¦³°Ê¡A¥u§â²Ä¤G¦Cªº¤½¦¡¥N¤J¦Ó¤w°Ú¡A«ç»ò·|³o¼Ë¡H

¤W­z¼W¥[ªºµ{¦¡¥Î·N¬O´ú¸Õ¦³¨S¦³¼W¥[¦C¶Ü¡H¨º¸ò­ì¥»ªºµ{¦¡¦³Ãö«Y¶Ü¡H

ÂŤÑÄR¦À

¦^´_ 35# c_c_lai

ªÑ²¼0.rar (18.55 KB)

¤U¸ü¦¸¼Æ: 4

2016-4-8 22:25

    C¤j¡A¥þ³¡³£¨S¿ù­ò¡A§Ú¬O¥Î§AªºÀɮסA©Ò¥H§¹¥þ¨S§ï¡A§Ú¤W¶Ç§A¬Ý¬Ý
¥´¶}¤§«á¨S¦³¥ô¦ó°Ê§@¡A¬Æ¦Ü§Ú¤â°Ê¥h§ó§ï¶q¡AÁÙ·|¥X²{¿ù»~

ÂŤÑÄR¦À

¦^´_ 35# c_c_lai

ªÑ²¼10.rar (26.63 KB)

¤U¸ü¦¸¼Æ: 6

2016-4-8 23:41

C¤jªþ¥ó¬O³Ì²×ª©¥»¡A¦¹ª©¥»¤£¥Î½Æ»s®É¶¡¡A¥u­n©¹¤U¼gB2-E2¡BF2-I2...¥H¦¹Ãþ±À¡A§Ú¤£ª¾¹D¦pªG³o¼Ëªº¸Ü¥H¤U­n¦p¦ó§ó§ï

Private Sub Worksheet_Change(ByVal Target As Range)
    '  ·í D2 Äæ¦ì¦³²§°Ê®É¡A «h¥h©I¥s RecordPrice ªº¤èªk (Method)¡C
    If Target.Address = "$D$2" Or Target.Address = "$H$2" Or Target.Address = "$L$2" Or Target.Address = "$P$2" Or _
              Target.Address = "$T$2" Or Target.Address = "$X$2" Or Target.Address = "$AB$2" Or _
              Target.Address = "$AF$2" Or Target.Address = "$AJ$2" Or Target.Address = "$AN$2" Then
        Call RecordPrice(Target.Address)
    End If
End Sub

¯uªº­n¥´100­Ó¶Ü??

ÂŤÑÄR¦À

¦^´_ 38# c_c_lai

C¤j¡A³o¼Ë»¡¦n¤F¡A§A¤@¶}©l¶Çµ¹§ÚªºªÑ²¼0§Ú¥Î¤â°Ê§ó§ï¬O¥i¥H°õ¦æªº¡A©Ò¥H§Ú´N§â­ì¥»¨º¥÷®M¤J¤½¦¡¡A¤§«á´N¤£¯à°õ¦æ¡A§Ú"§¹¥þ"¨S¦³Åܧó¡A©Ò¥H§Ú¦b·Q¤§«e¨º¥÷¥i¥H°õ¦æ¬O¦]¬°"¯Â¼Æ¦r"¡A«á¨Ó±a¤J¤½¦¡«áµLªk°õ¦æ¡A·|¤£·|¬O¦]¬°µ{¦¡¹ï¤½¦¡ªº§PÂ_¥X²{°ÝÃD??

¦]¬°­ì¥»¥Î¼Æ¦r¥i¥H°õ¦æ¡A±a¤J¤½¦¡«á´N¤£¦æ¡A©Ò¥H§Ú»{¬°°ÝÃD¤£·|¥X²{¦b¨é°Óªº³nÅé¡A¦]¬°¦pªG°ÝÃD¥X²{¦b³nÅé¡A¨º¤@¶}©lªºªÑ²¼0´N¤]·|µLªk°õ¦æªü¡A¦ý¯Â¼Æ¦rª©ªº«o¥i¥H°õ¦æ¡A¥H¤W¬O§Ú±o¬Ýªk¡AC¤j»{¬°©O??