[發問] 請問如何隨表內數值變動時，自動變更圖表座標刻度尺值

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-6-12 09:22 | 只看該作者

本帖最後由 GBKEE 於 2014-6-12 09:25 編輯

回復 1# peter460191
試試看

Option Explicit
' Sheet6("工作價位走勢圖")工作表模組的程式碼
Private Sub Worksheet_Calculate() '工作表中儲存格公式值有變動的預設事件
自動變更圖表座標刻度尺的值
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) '工作表中儲存格值有變動的預設事件
自動變更圖表座標刻度尺的值
End Sub
Private Sub 自動變更圖表座標刻度尺的值()
If [count(Sales)] > 0 Then
With ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = [min(Sales)] '數值列的最小值
.MaximumScale = [max(Sales)] '數值列的最大值
' ** [ 活頁簿的函數公式 ] *** 不可用變數
.MinorUnit = 1
.MajorUnit = 1
.CrossesAt = ([min(Sales)] + [max(Sales)]) / 2
'CrossesAt 傳回或設定數值座標軸上與類別座標軸的交點。僅套用至數值座標軸
End With
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

3^#

發表於 2014-6-13 12:54 | 只看該作者

回復 2# GBKEE

   非常謝謝GBKEE超級版大
   我趕快來試試看。
   謝謝您 !

peter460191

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

4^#

發表於 2014-6-16 12:38 | 只看該作者

回復 2# GBKEE

請問GBKEE版大

不好意思!試了好多次，都沒反應，想請教GBKEE版大要如何使用？

peter460191

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2014-6-16 13:10 | 只看該作者

回復 4# peter460191
你工作表上有名稱定義 Sales 這範圍內從上而下的給資料

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

6^#

發表於 2014-6-17 13:07 | 只看該作者

回復 5# GBKEE

GBKEE版大，不好意思！
初學VBA，不太了解您的意思，方便再細部指導嗎?
拍勢啦!謝謝您!

peter460191

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2014-6-17 13:18 | 只看該作者

本帖最後由 GBKEE 於 2014-6-17 13:22 編輯

回復 6# peter460191

你工作表上有名稱定義 Sales 這範圍內從上而下的給資料

到工作表指令插入-> 名稱->定義
看看範圍在哪裡

Ex.rar (544.64 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2024-5-9

8^#

發表於 2014-6-17 14:15 | 只看該作者

回復 7# GBKEE

GBKEE版大，不好意思！我懂您的意思了，但是我想要的值是另一張工作表的四個值(其中2個固定，2個變動；若變動值不行，4個固定也可以)，不知這樣程
式要如何寫？謝謝您了!

      (表2-價位走勢圖)裡的座標刻度，如何隨計表內(表1-計劃表(主檔))數值變動時，自動變更(表2-價位走勢圖)圖表座標刻度尺值
      最小值：參照(表1-計劃表(主檔))的(B114儲存格)，位置會變動，
      最大值：參照(表1-計劃表(主檔))的(B98儲存格)，位置會變動
      主要刻度間距：參照(表1-計劃表(主檔))的(I4儲存格)，位置不會變動
      類別X軸相交於：參照(表1-計劃表(主檔))的(B108儲存格)，位置不會變動

peter460191