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

[µo°Ý] ¦³µL°Å¶K磌¥ó´À¥Nª«¥ó

[µo°Ý] ¦³µL°Å¶K磌¥ó´À¥Nª«¥ó

¦U¦ì¤j¤j¦n

¥ý»¡©ú°ÝÃDµ{§Ç±Ô­z¬q¥D­n¬°¤U­z¨â¬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
ÂǥѤW­z¤è¦¡¡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¨ì¤W­z¬Û¦Pªºµª®×
·PÁÂ
¡]¤£©ú¥Õ§Úªº·N«äªº¤j¤j
¥i¥H¸Õ¸Õ½Æ»s¬YÀx¦s®æ¦ÜEXCEL¯x§Î¹Ï®×¤Î¡Aµ§°O¥»ªº®t²§¡^

·PÁ¦^´_

ªº½T¬O¨ã³Æ¤@¼Ëªº®ÄªG
¦ý¬O¾Þ§@¤WÁÙ¬O¨Ï¥Î¤F°Å¶K磌¥ó
§Ú²{¦b·Q§JªAªº¬O¤£­n¨Ï¥Î°Å¶K磌¥ó
¦]¬°¦bµLªk¦b»·ºÝ¤W°õ¦æ
(¤£ª¾¹D¬O¤£¬O¦]¬°µLªk«ü©w¨Ï¥Î¥»¾÷°Å¶KïÃö«Y)
¤£¾å±o¦³¨S¦³¨ä¥L¤èªk

TOP

¦^´_ 1# ringo109
¤£ª¾¹D¸ò§Aªºµ²ªG¤@¤£¤@¼Ë
¦³¤@ºØ¤èªk¬O³o¼Ë:
1. ¿ï¾ÜÀx¦s®æ½d³ò¡A½Æ»s
2. ¥kÁä¿ï¾Ü©Ê¶K¤W¡A¨ä¤¤¦³¤@­Ó"³sµ²ªº¹Ï¤ù"
¿ý»s¥¨¶°¬Ý¬O¨S¦³¥Î¨ì°Å¶K諸
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD