帖子: 10
主題: 3
精華: 0
積分: 18
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2014-4-18
最後登錄: 2024-12-23

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-4-29 23:13 | 只看該作者

請教自動圖表的相關問題

諸位先進

最近開始學VBA，想要在獨立的圖表上加入二個下拉式選單來自動更新想看的圖表，一個是選擇資料來自哪一個工作表，另一個是工作表中的資料範圍。
我的作法是用表單控制項拉出兩個下拉式選單，裡面內容連結其它地方，想要撰寫vba時，卻無法得知這兩個下拉式的name，導致後續無法動作，google了一陣子，似乎沒有這類問題的解答，有一說法是用active X，不過我安全性開最大，也無法在chart中插入active X的選單。

請問各位先進有誰可以幫我隔空抓葯，看我哪裡思路有問題，謝謝。

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 278
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2014-4-29 23:32 | 只看該作者

回復 1# alsr

要取得表單控制項的值
例如下拉選單1，設定輸入範圍A2:A4
With Shapes("Drop Down 1").OLEFormat.Object '關於下拉選單1的OLE物件
MyText= Range(.ListFillRange)(.Value) '取得選擇的文字
End With

學海無涯_不恥下問

TOP

alsr

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 18
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2014-4-18
最後登錄: 2024-12-23

論壇贊助勳章

3^#

發表於 2014-4-30 06:48 | 只看該作者

回復 2# Hsieh

感謝版主，小弟試過，發現有兩個問題，煩請不吝解答
一、我在嘗試在工作表添加這段程式碼中，額外添加 MsgBox mytext來嘗試是否有問題，可是我發現msgbox只會出現一次，當我使用下拉式選單再選一次的時候，就不會出現訊息了，想請教若要確認每次更新下拉式選單時，mytext的值有變化的話，程式碼應如何改寫?

二、我有在同一個chart頁面另外再拉一個按鈕，想要用按鈕去確定兩個下拉式選單的值在另外重新繪圖，但是在裡面的程式碼添加版主的程式碼時，發現excel顯示不認識shpaes這個sub，請問原因來自何處。

感恩。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 278
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2014-4-30 09:38 | 只看該作者

回復 3# alsr

首先確定你的下拉選單是表單控制項或是active X控制項？
請上傳檔案以便暸解

學海無涯_不恥下問

TOP

alsr

小學生 Rank: 1

帖子: 10
主題: 3
精華: 0
積分: 18
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2014-4-18
最後登錄: 2024-12-23

論壇贊助勳章

5^#

發表於 2014-4-30 20:45 | 只看該作者

回復 alsr

首先確定你的下拉選單是表單控制項或是active X控制項？
請上傳檔案以便暸解
Hsieh 發表於 2014-4-30 09:38

版主您好，我的下拉選單是表單控制項

檔案如下，我想用下拉選單來調整資料抓取的範圍，希望您能給我建議，謝謝。

234.rar (16.73 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 278
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2014-4-30 23:20 | 只看該作者

回復 5# alsr

我想你是希望點選下拉清單後就能執行變換資料來源
將程序寫在一般模組

Public Sub chart_change()
With ActiveChart
With .Shapes("Drop Down 1").OLEFormat.Object '關於下拉選單1的OLE物件
mytext = Range(.ListFillRange)(.Value) '取得選擇的文字
End With
With .Shapes("Drop Down 2").OLEFormat.Object '關於下拉選單1的OLE物件
mytext2 = Range(.ListFillRange)(.Value) '取得選擇的文字
End With
.SetSourceData Source:=Sheets(mytext).Range("A:A").Find(mytext2, lookat:=xlWhole).Resize(, 17)
End With
End Sub