joey0415

¦^´_ 1# ·Å°¶µ¾

°Ñ¦Ò°Ñ¦Ò¡A¦Û¦æ­×§ï¤~·|¶i¨B

1.     Sub Ex()
   
2.         Dim Rng As Range
   
3.         Set Rng = Range("A1:D10") '«ü©wªº½d³ò
   
4.         'Set Rng = Selection      '·Æ¹«¿ï©wªº½d³ò
   
5.         Rng.CopyPicture
   
6.         With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '·s¼W ¹Ïªí
   
7.             .Chart.Paste                                           '¶K¤W ¹Ï¤ù
   
8.             .Chart.Export Filename:="e:\Test.gif"                  '¶×¥X ¹Ï¤ù
   
9.             .Delete                                                '§R°£ ¹Ïªí
   
10.         End With
    
11.     End Sub

½Æ»s¥N½X

joey0415

¦^´_ 5# ·Å°¶µ¾


   

¤U¸ü (52.17 KB)

2017-4-3 16:10

joey0415

¦^´_ 7# ·Å°¶µ¾

1.     Sub Ex()
   
2.         ­Ó¼Æ = Cells(Rows.Count, 2).End(xlUp).Row '­pºâbÄæªø«×
   
3.         
   
4.         ¥­§¡ = Application.Average(Range("b1:b" & ­Ó¼Æ))
   
5.         Stop
   
6.     End Sub

½Æ»s¥N½X