infoverdad

回復 10# maxchou


    可以把你最後的檔案上傳嗎? 我再找空檔想想怎麼幫你,因你目前還無權限下載檔案.

maxchou

回復 11# infoverdad


先謝過infoverdad前輩！謝謝！
其實我有許多張這樣的圖要畫，數據也都跟我之前上傳的檔案差不多，只是在於直條的數量不一樣，
有跟上傳的差不多約十個，也有20幾個直條以上的，
之前都是用XY誤差線畫出線條，再用貼圖案的方式完成，
這種方式非常手工，而且耗時，而且後端資料只要一改，X座標寬度就會變，也有可能會因為Y軸的大小而改變順序，
所以才想說是不是可以用EXCEL，我只要輸入數字，圖表便可以自動連動，這樣可以節省手工調整直條時間。
(預期後端資料還要修改好幾次........)

如果infoverdad前輩方便的話，是否可以先以我之前上傳的test.zip為範例，先教教我呢？
以上報告，再次表達我誠摯的謝意！

infoverdad

回復 12# maxchou


我用的方式還是太累要一個個設(我試的時候很耗時間),可能無法幫到你.
試試參考下列網址吧!
"XY圖本可選資料範圍就可以完成，但A欄資料會變成X軸資料，就算將全部資料轉置（選轉90度）依然如此（2003版），因此每組XY需一組一組設定。如圖形需常增加資料組數，可以用巨集方式處理，先錄製一段巨集，再增加迴圈指令就可以自動增加資料，不用每次由頭重設..."
[轉貼] from http://www.dolamo.com/problem/software/1/27340

maxchou

回復 13# infoverdad


謝謝infoverdad前輩，我會到您提供的網址研究看看，
但看起來有點困難度........
若有所突破，在回來報告！

infoverdad

回復 4# maxchou


用您的資料改了這個巨集,請試試吧!
(不過資料要先整理過 如附件) Draw-stair.rar (50.49 KB)

下載次數: 5

2011-9-6 00:09

畫出之圖形:

下載 (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

複製代碼

maxchou

回復 15# infoverdad

太感謝infoverdad前輩了，這麼幫忙！感激不盡！
不過我還差13分才可以下載附件，有個不請之請，
不知道infoverdad前輩是不是可以把資料調整完的畫面貼上來呢？
我自己先手動調整，試著用巨集畫畫看(因為我還沒有使用巨集畫過圖形)。
不過還是要再次感謝！

infoverdad

回復 16# maxchou


    我試試,但你的資料有小數點,是最大的麻煩處.

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)

下載 (72.88 KB)

2011-9-6 13:33

下載 (24.97 KB)

2011-9-6 13:33

infoverdad

回復 16# maxchou


    你也可以去下面的網址下載一個zip檔入附件(funchart5_brickyard.zip)
funchart5_brickyard.zip (11.05 KB)

下載次數: 3

2011-9-6 15:35

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

原理是一樣的 但您可已看看它的解說與實例

maxchou

回復 17# infoverdad

謝謝infoverdad前輩這麼費心花時間幫我想這圖形要怎麼畫，真的是非常感謝！！
我大概可以用infoverdad前輩上傳的圖片複製出來一樣的圖形(雖然我不是很懂公式與巨集)，
但我想請問infoverdad前輩關於L2-L12這是怎麼決定？是I2+1嗎？
另外所提之小數點問題，是不是就說因為差距小於1，所以無法在N2-X102填入數據？也就畫不出來。
再次感謝！

infoverdad

回復 19# maxchou


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