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

[µo°Ý] ½Ð°Ý¦³Ãösetlinkondataªº°ÝÃD¡I

[µo°Ý] ½Ð°Ý¦³Ãösetlinkondataªº°ÝÃD¡I

½Ð±Ð¦U¦ìVBA°ª¤â¡G
¤p§Ì±NDDE³ø»ù©ñ¦bSheet11ªºÀx¦s®æL15¡A¨Ã±N±ø¥ó©ñ¦bSheet11ªºÀx¦s®æN4¡A¦A¨Ó·íL15ªº­È¤p©óN4 ªº­È®É¡A§Ú´N±NL15ªº­È¡A½Æ»s¶K¤W¦ÜÀx¦s®æN15¡A¦ý¬O§Ú¥u§Æ±æµ{¦¡¦b±ø¥óº¡¨¬®É¡A¥u°õ¦æ¤@¦¸½Æ»s¶K¤Wªº°Ê§@¡Aµ{¦¡½X¦p¤U¡G

Sub Workbook_open()
ActiveWorkbook.SetLinkOnData "DynQuote|FU!WTXm0.205", "test1"
End Sub



Sub test1()

If  Sheet11.Range("L15") <=Sheet11.Range("N4") Then

     Sheet11.Range("L15").Select
     Selection.Copy
     Sheet11.Range("N15").Select
     ActiveSheet.Paste
end if

End Sub



³Ì«áªº°ÝÃD¬O¡A¦pªG¨S¦³if±ø¥ó¦¡ªº¸Ü¡A½Æ»s¶K¤Wªº°Ê§@¬O¥i¥H°õ¦æªº¡F

¦ý¬O¡A¤@¥¹¥[¤Wif±ø¥ó¦¡ªº®É­Ô¡Aµ{¦¡´N¨S¿ìªk°õ¦æ¤F¡A¤£ª¾¹D°ÝÃD¥X¦b¨º©O¡H§Æ±æ¦U¦ìVBA°ª¤â¤j¤j¯àÀ°¤p§Ì¸Ñ´b¡A·P¿E¤£ºÉ¡I

¦^´_ 1# asdfjack


    ±ø¥ó¦¡ If  Sheet11.Range("L15") <=Sheet11.Range("N4") Then §ï¦¨
If  Sheet11.Range("L15").value <=Sheet11.Range("N4").value Then ¸Õ¸Õ©Î¬O½T»{¤@¤U
¸Ó¨âÀx¦s®æ¸ê®Æ«¬ºA¬O§_¬°¼Æ­È¡Aif not¦A¥[¤WvalÂà´«¤@¤U

TOP

¦^´_ 2# victorl

³o­Ó¤èªkÁÙ¬O¤£¦æ¡A¤£¹LÁÙ¬O·PÁ¤j¤jªº¦^µª¡A³o­Ó°ÝÃD§Ú¤w¸g¦Û¤v¸Ñ¨M¤F¡I

TOP

¦^´_  victorl

³o­Ó¤èªkÁÙ¬O¤£¦æ¡A¤£¹LÁÙ¬O·PÁ¤j¤jªº¦^µª¡A³o­Ó°ÝÃD§Ú¤w¸g¦Û¤v¸Ñ¨M¤F¡I
asdfjack µoªí©ó 2010-6-9 14:46



    ¦p¦ó¸Ñ¨Mªº?¥»½×¾Â¤£¬O°Ýµª½×¾Â,¬O¥æ¬y½×¾Â³á!!
¬O¤£¬O¥i¥Hµoªí¸Ñ¨Mªº¤èªk,Åý¤j®a«ä¦Ò¤@¤U??
¤ß¦w¡A¥­¦w   
µoªí¥ô¦óµL·N¸qªº·PÁ©ÎÄé¤ô¤å³¹¤@«ß¬å,¬Ã±¤±b¸¹,½Ð¸Ô¾\ª©³W!!

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD