2013-07-30 114 views
0

我在VBA中很新。目前我在我的項目中需要我通過自動繪製2條形圖來創建自動化工具,基於2表中的數據如下所示使用VBA在excel中自動生成基於一組數據表的圖形

然而,由於是從另一自動化工具生成出表數據從而行數可以是增加或減少。並且行數可能多於/少於5,我無法通過指定單元格地址(如「A7」或「B6」)來選擇單元格。

而這些圖表的預期輸出:

希望某種靈魂可以幫助我在這個..

+0

請向我們展示您的代碼,並且我們可以建議針對您的特定需求修改它的最佳方法。乾杯。 –

+0

你能解釋一下「創建自動化工具」是什麼意思?你現在有沒有使用任何工具,還是你從無到有?你能向我們展示生成數據的「另一個自動化工具」嗎?你可以有那個工具還包括行數,或像數據所在的'A7:C11'範圍? –

回答

0

我不認爲你需要的宏。 所有你需要的是一些動態命名的範圍: Microsoft Support

並將你的數據範圍設置爲那些命名範圍。

0

如果給定工作表中的不同數據塊由空白行和列分隔,並且所需的塊是唯一包含單詞「Date」的塊,則可以使用簡單的VBA例程來查找單詞「日期「,確定數據塊位於其中,並使用該數據插入圖表。像下面這樣:

Sub PlotRangeUsingFind() 
    Const SFind As String = "Date" 
    Dim rng As Range 
    On Error Resume Next 
    Set rng = ActiveSheet.Cells.Find(SFind).CurrentRegion 
    If Not rng Is Nothing Then 
    With ActiveSheet.Shapes.AddChart.Chart 
     .ChartType = xlColumnClustered 
     .SetSourceData rng 
    End With 
    End If 
End Sub 

您可以修改此來尋找數據塊中的任何獨特字。它不一定是整個細胞的內容;例如,您可以根據您的屏幕截圖使用「Accepted」。

相關問題