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

[µo°Ý] ½Ð±Ð¦p¦ó¨Ï¥ÎVBA±N¤½¦¡½Æ»s¨ì«ü©wÄæ¦ì¤º¡H

[µo°Ý] ½Ð±Ð¦p¦ó¨Ï¥ÎVBA±N¤½¦¡½Æ»s¨ì«ü©wÄæ¦ì¤º¡H

½Ð±Ð¦p¦ó¨Ï¥ÎVBA±N¤u§@ªí1¤ºªº¤­­Ó¤½¦¡¤À§O½Æ»s¨ì¤u§@ªí2
¤§¥ô¤@«ü©wÄæ¦ì¤º¡H
ÁÂÁ¦U¦ì¥ý¶i«ü¾É¡I
¤½¦¡.rar (12.64 KB)

½Ð±Ð¦p¦ó¨Ï¥ÎVBA±N¤u§@ªí1¤ºªº¤­­Ó¤½¦¡¤À§O½Æ»s¨ì¤u§@ªí2
¤§¥ô¤@«ü©wÄæ¦ì¤º¡H
ÁÂÁ¦U¦ì¥ý¶i«ü¾É¡I
c_c_lai µoªí©ó 2012-9-7 09:02


¥H±N²Ä 1 ­Ó¤½¦¡¶K¨ì C8 Àx¦s®æ¬°¨Ò :

ActiveSheet.Shapes("Object 1").Left = [C8].Left
ActiveSheet.Shapes("Object 1").Top = [C8].Top

TOP

¦^´_ 2# luhpro
«D±`·P¿E±zªº¦^ÂСI
§Ú¬O¥H "¤u§@ªí1" ªº¦U­Ó¤½¦¡¹Ï¥Ü§@¬°¥Àªí¡A«O«ù¤£°Ê (¥À³æ)¡A
¦Ó±N¥¦¨ä¤ºªº¦U­Ó¤½¦¡¹Ï¥Ü³v¤@½Æ»s¨ì¨ä¥¦ªº¦³Ãö¤§ "¤u§@ªí2"¡B
"¤u§@ªí3"¡B"¤u§@ªí4" ¤ºµ¥µ¥ (¦Ó«D¦b "¥Àªí" ("¤u§@ªí1") ¤¤²¾¦ì)¡C
¤£ª¾¥i§_¦A¦¸½ç±Ð¡H

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2012-9-8 09:18 ½s¿è
¦^´_  luhpro
«D±`·P¿E±zªº¦^ÂСI
§Ú¬O¥H "¤u§@ªí1" ªº¦U­Ó¤½¦¡¹Ï¥Ü§@¬°¥Àªí¡A«O«ù¤£°Ê (¥À³æ)¡A
¦Ó±N¥¦ ...
c_c_lai µoªí©ó 2012-9-8 08:39
  1. Sub nn()
  2.   Dim shSou, shTar
  3.   Dim obTar As Object
  4.    
  5.   Set shSou = Sheets("¤u§@ªí1")
  6.   Set shTar = Sheets("¤u§@ªí2")
  7.   
  8.   shSou.Shapes("Object 1").Copy '«þ¨©¤½¦¡ª«¥ó
  9.   With shTar
  10.     .Paste   ' ¶K¨ì¤u§@ªí2
  11.    
  12.     Set obTar = Selection  ' ¨ú±o³Q¶K¤Wªº¤½¦¡ª«¥ó
  13.     obTar.Left = .[C8].Left ' ³]©wª«¥ó¦ì¸m¶K»ô¦Ü C8 Àx¦s®æ
  14.     obTar.Top = .[C8].Top
  15.   End With
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# luhpro
´ú¸Õ¶¶§Q¡A¯uªº«D±`ÁÂÁ±z¡I

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD