- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-2-5
- ³Ì«áµn¿ý
- 2016-5-24
|
¦U¦ì¤j¤j¦n
¥ý»¡©ú°ÝÃDµ{§Ç±Ôz¬q¥Dn¬°¤Uz¨â¬q²Õ¦X
¨ä1¡GÂǥѰŶK磌¥ó¤Î¤å¦rÅܼÆStrReSor ¡A¨ú±o¬YÀx¦s®æ°Ï°ìªº¤º®e
¨ä2¡G·s¼W¤@¯x§Î¹Ï®×¡A¨Ã¥B«ü©w¨ä¤å¦r¤º®e¬°StrReSor
Worksheets("Sheet1).Range("A1").CurrentRegion.Copy
data.GetFromClipboard
StrReSor = data.GetText
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, ...)
.TextFrame2.TextRange.Text =StrReSor
End With
ÂǥѤWz¤è¦¡¡A¥i¥HÅý¯x§Î¹Ï®×¥HÃþ¦üªí®æªº¤è¦¡§e²{Àx¦s®æ¤º®e
¦ü¥G¬O³z¹L°Å¶K磌¥ó¡A±NÀx¦s®æ¸ê®Æ¤Î®æ¦¡½Æ»s¥X¨Ó
¦ý¬O°Å¶K磌¥óµLªk¤À¿ë¥»¾÷¹q¸£©Î¬O»·ºÝ¦øªA¾¹¡]¤p§Ì®Ñ²L¡^
©Ò¥H§Ú·Q°Ýªº°ÝÃD¬O¡A¦³¨S¦³Ãþ¦üªºª«¥ó¥i¥H±o¨ì¤Wz¬Û¦Pªºµª®×
·PÁÂ
¡]¤£©ú¥Õ§Úªº·N«äªº¤j¤j
¥i¥H¸Õ¸Õ½Æ»s¬YÀx¦s®æ¦ÜEXCEL¯x§Î¹Ï®×¤Î¡Aµ§°O¥»ªº®t²§¡^ |
|