12
返回列表 上一主題 發帖

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

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

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
17#
發表於 2011-9-6 00:14 | 只看該作者
回復 16# t76725


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

TOP

t76725

帖子
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

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

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)
  1. Sub RedrawXYchart()

  3. '編製一個循環分別為每個系列（點）指定數據區域（X，Y坐標）
  4. Dim i As Integer

  6. Dim myRange As Range
  7. Set myRange = Sheet1.UsedRange
  8. myRange.Select

  10. Charts.Add
  11. ActiveChart.ChartType = xlXYScatterSmooth
  12. ActiveChart.SetSourceData Source:=myRange, PlotBy:=xlColumns

  14. For i = 1 To Sheet1.UsedRange.Columns.Count - 1

  16. ActiveChart.SeriesCollection(i).Name = "=Sheet1!R1C" & i + 1
  17. ActiveChart.SeriesCollection(i).XValues = "=Sheet1!R2C" & i + 1 & ":R26C" & i + 1
  18. ActiveChart.SeriesCollection(i).Values = "=Sheet1!R2C1:R26C1"

  20. Next
  21.     ActiveChart.ChartArea.Select
  22.     ActiveChart.HasLegend = True
  23.     ActiveChart.Legend.Select
  24.     Selection.Position = xlBottom

  26. End Sub
複製代碼

TOP

infoverdad

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
14#
發表於 2011-9-5 13:25 | 只看該作者
回復 13# t76725


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

TOP

t76725

帖子
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

帖子
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

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

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

帖子
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

帖子
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

        靜思自在 : 欣賞別人就是莊嚴自己。
12
返回列表 上一主題