infoverdad

¦^´_ 4# maxchou


    ¬Ý¤F¤@¤U§Aªº¸ê®ÆÀÉ,¦³´XÂI°ÝÃD:
1. ±z¬O­n±NF1:F23ªº¸ê®Æ·í¦¨X®y¼Ð¶Ü? (¦pªG¤£¬O,¨º¸ê®Æ¨Ó·½´NÀ³¸Ó§ï¤@¤U)
2. ±z·Qµe¥Xªº¹Ï«¬¬Ý°_¨Ó¤ñ¸û¹³¬Oª½±ø¹Ï (¦pªG¬O³o¼Ë,¨º¹ÏªíÃþ«¬´N¤£À³¿ïxy´²§G¹Ï)
3. ­Y­nª½±ø¹Ï¬O¬Û³sªº,¥i¦b¡y¸ê®Æ¼Æ¦C®æ¦¡¡zªº¡y¿ï¶µ¡z­¶ÅÒ±NÃþ§O¶¡¶Z§ï¦¨0

infoverdad

¦^´_ 6# maxchou

½Ð°Ý±z­nªºµ²ªG¬O³o¼Ëªº¹Ï¶Ü?
   

¤U¸ü (25 KB)

2011-8-22 14:57

infoverdad

¦^´_ 8# maxchou


   

¤U¸ü (54.75 KB)

2011-8-22 17:59

­nµe¦¨³o¼Ë¦³ÂI¤p½ÆÂø®@!! ­n¤@­Ó­Ó¸ê®Æ³]©w.

infoverdad

¦^´_ 10# maxchou


    ¥i¥H§â§A³Ì«áªºÀɮפW¶Ç¶Ü? §Ú¦A§äªÅÀÉ·Q·Q«ç»òÀ°§A,¦]§A¥Ø«eÁÙµLÅv­­¤U¸üÀÉ®×.

infoverdad

¦^´_ 12# maxchou


§Ú¥Îªº¤è¦¡ÁÙ¬O¤Ó²Ö­n¤@­Ó­Ó³](§Ú¸Õªº®É­Ô«Ü¯Ó®É¶¡),¥i¯àµLªkÀ°¨ì§A.
¸Õ¸Õ°Ñ¦Ò¤U¦Cºô§}§a!
"XY¹Ï¥»¥i¿ï¸ê®Æ½d³ò´N¥i¥H§¹¦¨¡A¦ýAÄæ¸ê®Æ·|Åܦ¨X¶b¸ê®Æ¡A´Nºâ±N¥þ³¡¸ê®ÆÂà¸m¡]¿ïÂà90«×¡^¨ÌµM¦p¦¹¡]2003ª©¡^¡A¦]¦¹¨C²ÕXY»Ý¤@²Õ¤@²Õ³]©w¡C¦p¹Ï§Î»Ý±`¼W¥[¸ê®Æ²Õ¼Æ¡A¥i¥H¥Î¥¨¶°¤è¦¡³B²z¡A¥ý¿ý»s¤@¬q¥¨¶°¡A¦A¼W¥[°j°é«ü¥O´N¥i¥H¦Û°Ê¼W¥[¸ê®Æ¡A¤£¥Î¨C¦¸¥ÑÀY­«³]..."
[刦K] from http://www.dolamo.com/problem/software/1/27340

infoverdad

¦^´_ 4# maxchou


¥Î±zªº¸ê®Æ§ï¤F³o­Ó¥¨¶°,½Ð¸Õ¸Õ§a!
(¤£¹L¸ê®Æ­n¥ý¾ã²z¹L ¦pªþ¥ó) Draw-stair.rar (50.49 KB)

¤U¸ü¦¸¼Æ: 5

2011-9-6 00:09

µe¥X¤§¹Ï§Î:

¤U¸ü (46.95 KB)

2011-9-6 00:08

1. Sub DrawRangeCol()
   
2. 
   
3.     Dim myRange As Range
   
4.     Dim i As Integer
   
5. 
   
6.     Set myRange = Sheets("test").Range("N1:X102")
   
7.    
   
8.     Charts.Add
   
9.     ActiveChart.ChartType = xlColumnClustered
   
10.     ActiveChart.SetSourceData Source:=myRange, PlotBy:=xlColumns
    
11.    
    
12.     i = 1
    
13.     For i = 1 To myRange.Columns.Count
    
14.    
    
15.         ActiveChart.SeriesCollection(i).Values = "=test!R2C" & i + 13 & ":R102C" & i + 13
    
16.         ActiveChart.SeriesCollection(i).Name = "=test!R1C" & i + 13
    
17.    
    
18.         ActiveChart.Axes(xlCategory).Select
    
19.         ActiveChart.SeriesCollection(i).Select
    
20.         With Selection.Border
    
21.             .Weight = xlThin
    
22.             .LineStyle = xlNone
    
23.         End With
    
24.         Selection.Shadow = False
    
25.         Selection.InvertIfNegative = False
    
26.         Selection.Interior.ColorIndex = xlAutomatic
    
27.       
    
28.     Next
    
29.       
    
30.     ActiveChart.ChartArea.Select
    
31.     ActiveChart.HasLegend = True
    
32.     ActiveChart.Legend.Select
    
33.     Selection.Position = xlBottom
    
34.    
    
35.     ActiveChart.PlotArea.Select
    
36.     With ActiveChart.ChartGroups(1)
    
37.         .Overlap = 100
    
38.         .GapWidth = 0
    
39.         .HasSeriesLines = False
    
40.     End With
    
41.    
    
42. End Sub

½Æ»s¥N½X

infoverdad

¦^´_ 16# maxchou


    §Ú¸Õ¸Õ,¦ý§Aªº¸ê®Æ¦³¤p¼ÆÂI,¬O³Ì¤jªº³Â·Ð³B.

N2 =IF(AND(ROW()>=$K$2,ROW()<=$L$2),$B$2,0)
O2 =IF(AND(ROW()>=$K$3,ROW()<=$L$3),$B$3,0)
...
X2 =IF(AND(ROW()>=$K$12,ROW()<=$L$12),$B$12,0)

¤U¸ü (72.88 KB)

2011-9-6 13:33

¤U¸ü (24.97 KB)

2011-9-6 13:33

infoverdad

¦^´_ 16# maxchou


    §A¤]¥i¥H¥h¤U­±ªººô§}¤U¸ü¤@­ÓzipÀɤJªþ¥ó(funchart5_brickyard.zip)
funchart5_brickyard.zip (11.05 KB)

¤U¸ü¦¸¼Æ: 3

2011-9-6 15:35

http://peltiertech.com/Excel/Charts/Brickyard.html

­ì²z¬O¤@¼Ëªº ¦ý±z¥i¤w¬Ý¬Ý¥¦ªº¸Ñ»¡»P¹ê¨Ò

infoverdad

¦^´_ 19# maxchou


1. L2=K2+J2-1  
2. yes

infoverdad

¦^´_ 21# maxchou


ÁöµM¦p¦¹,ÁÙ¬O¥i¥H°µªº,¤§«e´£ªººô§}©Ò¤U¸üªº¨º­Ófunchart5_brickyard.zip §ârngBlank±q¨Ó·½¸ê®Æ²¾°£,´N¥i¥H°µ¨ì(¦pªþ¥ó)
brickyard-R1.rar (14.94 KB)

¤U¸ü¦¸¼Æ: 5

2011-9-7 14:41

,¨ä¤¤¦³¤@¬q»¡©ú¦p¤U:
"All of the hard work in this file is done using defined names.  These names create a series of 100 bars, then work out which plant is associated with each bar, and what the 'value' of the bar should be.  The 100 bars are plotted on the chart and then formatted such that they appear to be a single column.  To improve the accuracy, change the rngBins defined name to use up to 4,000 points (instead of the two 100's there already). "

rngVol        =OFFSET(Sheet1!$B$5,0,0,COUNTA(Sheet1!$B:$B)-1,1)                               
rngVCum        =OFFSET(rngVol,0,1)                               
rngCost        =OFFSET(rngVol,0,2)                               
rngBins        =TRANSPOSE(SUM(rngVol)*ROW(Sheet1!$1:$100)/100)                               
rngPlant        =MATCH(rngBins,rngVCum,1)                               
rngSer1        =IF(rngPlant=1,INDEX(rngCost,1),0)                               
rngSer2        =IF(rngPlant=2,INDEX(rngCost,2),0)                               
rngSer3        =IF(rngPlant=3,INDEX(rngCost,3),0)                               
rngSer4        =IF(rngPlant=4,INDEX(rngCost,4),0)       

¤U¸ü (43.17 KB)

2011-9-7 14:43