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

[µo°Ý] Àɮפ¤ªº¨â­ÓSheet ½Æ»s¨ì·sªºÀÉ®×°ÝÃD

¦^´_ 4# Hsieh

¦³¿ìªk±Nexecl ªº¥|­Ósheet ½Æ»s¥t¦s¦¨¹ÏÀɶÜ?
¦³¸Ñ¶Ü?

TOP

¦^´_ 6# GBKEE


    ¦³¿ìªk±Nexecl ªº¥|­Ósheet ½Æ»s¥t¦s¦¨¹ÏÀɶÜ?
Mail¦Û°Ê¤Æ¦³¸Ñ¶Ü?

³Ì²×µ²ªG¦p¹Ï¤ù©Ò¥Ü: ±NexeclÀɮ׸̪º¥|­Ósheet ½Æ»s¥t¦s¦¨¹ÏÀÉ,¨Ãmail ¥X¥h...
ªþ¥ó´N¬Ooutlook ±H¥Xµe­±¡A§Æ±æ¤j®a¯à°÷À°¦£©M¤À¨É,·PÁÂ!

0829.JPG (125.46 KB)

³Ì²×µ²ªG

0829.JPG

TOP

¦^´_ 21# jackyliu
¤u§@ªí­n¦s¦¨¹ÏÀÉ?
³o­n¬Ý¸ê®Æ½d³ò¤j¤p¦Ó©w¡A­YµLªk§¹¾ãÅã¥Ü¸ê®Æ°Ï°ì¨º±NµLªk¨ú±o§¹¾ãµe­±
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 23# Hsieh

¥D­n¬O±NexeclÀɮ׸̪º¥|­Ósheet ¤º®e, ¥ÎOutlook  mail¤è¦¡±H¥X(¦Û°Ê¤Æ)
¥Ø«e¬O¤H¤u¤â°Ê¶}±ÒexeclÀÉ®× , ±N¥|­Ósheet ¤º®e ¥Î cut¹Ï³nÅé, ½Æ»s¶K¨ì Outlook  mail¤è¦¡±H¥X,
§Æ±æ ¯à¦³¿ìªk,¥Îvba³B²z.

³o­n¬Ý¸ê®Æ½d³ò¤j¤p¦Ó©w¡A­YµLªk§¹¾ãÅã¥Ü¸ê®Æ°Ï°ì¨º±NµLªk¨ú±o§¹¾ãµe­±
¦^ÂÐ:  1. sheet+½d³ò ½Æ»s¶K¨ì Outlook  mail¤è¦¡±H¥X
          2. ª½±µ±N¥|­Ósheet , ½Æ»s¶K¨ì Outlook  mail¤è¦¡±H¥X
¥H¤W¨âºØ§@ªk,­þ­Ó°µªº¥X¨Ó?

TOP

¦^´_ 21# jackyliu
  1. Sub RangeToPicture()
  2.   Dim rngSrc As Range
  3.    
  4.   With ActiveSheet
  5.     Set rngSrc = .UsedRange
  6.    
  7.     rngSrc.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
  8.     With .ChartObjects.Add(Left:=rngSrc.Left, Top:=rngSrc.Top, Width:=rngSrc.Width, Height:=rngSrc.Height)
  9.       .Chart.Paste
  10.       .Chart.Export "C:\pic1.jpg"
  11.       .Delete
  12.     End With
  13.   End With
  14. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ jackyliu ©ó 2013-8-30 23:02 ½s¿è

¦^´_ 25# stillfish00

­ì¥»´ú¸ÕÀÉ®×, Run°_¨Ó¨S°ÝÃD; «á¨Ó§Ú±Ncode Âà¨ì¨ä¥LÀɮפW(¥|­Ósheet¸Ì,¦@¦³¤»­Ó¼Ï¯Ã¸ê®Æ,Á`¦@¦³28MB),
µ{¦¡¶]°_¨Ó,´N¥X°ÝÃD,ªþ¤W¬ÛÃö¹Ï¤ù...


¤j¤j: ¦³¨ä¥Lªº¤èªk¶Ü?¯àÅý§Úmail¥X¥h¶Ü? ¥Ø«e§Ú³£¤H¤u¤è¦¡,±N¼Ï¯Ã¸ê®Æ°é¿ï«á,
¦b¨ìOutlook ¾Þ§@ ¿ï¾Ü©Ê¶K¤W..ÂI°}¹Ï ,¦Amail ¥X¥h ~ ¯à°÷¦Û°Ê¤Æ¶Ü?

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD