t76725

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-9-2 21:19 | 只看該作者

[發問] 關於動態範圍定義名稱

我想問的是:有什麼辦法可以讓我直接在貼上我要的值之後圖形他就會自動出現?
就可以跳過來源資料在選來選去這個步驟???
我看過版主說的動態範圍定義名稱但是還是搞不清楚怎麼使用!可以交交我嗎???

樓主熱帖

infoverdad

中學生 Rank: 2

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

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

17^#

發表於 2011-9-6 00:14 | 只看該作者

回復 16# t76725

您可以自行測試吧只要邏輯是類似的話

TOP

t76725

小學生 Rank: 1

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

16^#

發表於 2011-9-5 22:32 | 只看該作者

哇! 謝謝妳infoverdad
今天又研究了一下我發覺說
這樣好像不太能符合公司的需求
我倒是覺得VBA 比較可以解決這一切
對你的這程式碼很有興趣
不曉得如果只是很單純的我第一頁PO的那些圖片
VBA是否可以輕而一舉得把它寫出來?

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

TOP

infoverdad

中學生 Rank: 2

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

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

複製代碼

TOP

infoverdad

中學生 Rank: 2

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

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

14^#

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

回復 13# t76725

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

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

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

infoverdad

中學生 Rank: 2

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

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

10^#

發表於 2011-9-4 23:18 | 只看該作者

回復 9# t76725

我需要問的是:我在9月1號新增一筆新的數據，我要把9月1號的數據新增到圖表裡面
                     我的做法是在圖表按右鍵>來源資料>數據>新增>名稱點選9/1日，X值=Sheet1!$M$2:$M$26 Y值=Sheet1!$A$2:$A$26
                     >確定。才完成這個圖表。
                     動態範圍這個方式是可以讓我直接貼上日期跟數據就可以省下圖表按右鍵>來源資料>數據>新增>名稱點選9/1日，
                     X值=Sheet1!$M$2:$M$26 Y值=Sheet1!$A$2:$A$26>確定這個步驟嗎?

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

TOP

t76725

小學生 Rank: 1

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

9^#

發表於 2011-9-4 23:12 | 只看該作者

回復 7# t76725

1-4.rar (3 KB)

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

TOP