- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- windowsXP
- ³nÅ骩¥»
- 2002
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2010-6-8
- ³Ì«áµn¿ý
- 2010-6-9
|
[µ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 |
|