ªð¦^¦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

¦^´_ 2# victorl

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

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD