關於動態範圍定義名稱 - Excelㄧ般區

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 116
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

11^# 跳轉到 »

發表於 2011-9-5 00:08 | 只看該作者

回復 10# t76725

我試了一下, 問題點:
1. A1是空格請補個標題如"data", 再將游標停在data(即A1) 插入=>名稱=>定義 data =OFFSET(Sheet1!$A$1,,,COUNTA(Sheet1!$A:$A),COUNTA(Sheet1!$1:$1))
2. 您雖是畫XY散佈圖, 可是X與Y坐標軸恰好相反, 雖用我的方法可以一次將多筆資料設入,可是電腦會自動把您的圖倒過來(如下)

TOP

t76725

小學生 Rank: 1

帖子: 33
主題: 7
精華: 0
積分: 46
點名: 0
作業系統: Microsoft Office Excel
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2011-1-23
最後登錄: 2017-9-20

12^#

發表於 2011-9-5 12:43 | 只看該作者

回復 11# infoverdad

這問題解決了但是變成說我按右鍵>來源資料>數據>新增>名稱點選9/1日，X值=Sheet1!$M$2:$M$26 Y值=Sheet1!$A$2:$A$26
名稱正確但是X值跟Y值跟我要的方好是相反所以圖形上全部都變掉了我也試了好多方式都行不通也!

版主說:要有不恥下問打破砂鍋問到底的精神..我一定要搞懂他!!!!!!!!

TOP

t76725

小學生 Rank: 1

帖子: 33
主題: 7
精華: 0
積分: 46
點名: 0
作業系統: Microsoft Office Excel
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2011-1-23
最後登錄: 2017-9-20

13^#

發表於 2011-9-5 12:45 | 只看該作者

回復 12# t76725

X值=Sheet1!$M$2:$M$26 Y值=Sheet1!$A$2:$A$26
如果Y值可以是X值=Sheet1!$A$2:$A$26 Y值=Sheet1!$M$2:$M$26
那這問題就圓滿了

版主說:要有不恥下問打破砂鍋問到底的精神..我一定要搞懂他!!!!!!!!

TOP

infoverdad

中學生 Rank: 2

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 116
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

14^#

發表於 2011-9-5 13:25 | 只看該作者

回復 13# t76725

我所說的第2個問題點正是如此!

TOP

infoverdad

中學生 Rank: 2

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 116
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-5-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

15^#

發表於 2011-9-5 18:30 | 只看該作者

本帖最後由 infoverdad 於 2011-9-5 18:31 編輯

回復 14# infoverdad

可能須以VBA來解決了!!
可我的功力不夠,只能做到下面的重畫,代碼及檔案附上,看是否有人可以做到只處理新增某欄資料的部份.

Redraw.rar (11.21 KB)

Sub RedrawXYchart()
'編製一個循環分別為每個系列（點）指定數據區域（X，Y坐標）
Dim i As Integer
Dim myRange As Range
Set myRange = Sheet1.UsedRange
myRange.Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=myRange, PlotBy:=xlColumns
For i = 1 To Sheet1.UsedRange.Columns.Count - 1
ActiveChart.SeriesCollection(i).Name = "=Sheet1!R1C" & i + 1
ActiveChart.SeriesCollection(i).XValues = "=Sheet1!R2C" & i + 1 & ":R26C" & i + 1
ActiveChart.SeriesCollection(i).Values = "=Sheet1!R2C1:R26C1"
Next
ActiveChart.ChartArea.Select
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
End Sub