麻辣家族討論版版 » Excel程式區 » 請問下拉式選單自動變更值的問題

返回列表下一主題上一主題發帖

[發問] 請問下拉式選單自動變更值的問題

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: XP
軟體版本: office 2010
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2014-7-16
最後登錄: 2014-8-27

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-7-21 10:54 | 只看該作者

[發問] 請問下拉式選單自動變更值的問題

各位大大好

由於目前公司拉了一個資料驗證的清單
內容是截取儲存格N1-N4共四個子細項的下拉式選單
每一個子細項都已經分別連結一個資料表格
而一個資料表格也對應至兩個圖表

所以現在只要點選下拉式選單中四個子細項任何一項，就能變換表格及圖表
但現在希望能夠過VBA的方式，利用程式碼讓這個下拉式選單的四個子細項能夠每隔固定秒數(如3~5秒內)自動換一次子細項，免除了人員手工點選子細項的方式，小弟在google找尋了許久仍然沒有辦法能夠讓這個清單自動變更裡面的四個子細項，希望各位能夠幫忙解除迷思

收藏

劉晉

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-7-21 19:24 | 只看該作者

本帖最後由 stillfish00 於 2014-7-21 19:39 編輯

回復 1# 劉晉
沒附檔很多不確定，自己試看看

Sub Test()
Dim rngDrop As Range, rngDef as Range
Dim t, x
Set rngDrop = Range("A1")
Set rngDef = Evaluate(rngDrop.Validation.Formula1)
For Each x In rngDef
rngDrop.Value = x.Value
t = Timer
Do
DoEvents
Loop Until Timer - t > 3
Next
End Sub

複製代碼

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: XP
軟體版本: office 2010
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2014-7-16
最後登錄: 2014-8-27

3^#

發表於 2014-7-22 09:25 | 只看該作者

回復 2# stillfish00

先謝謝stillfish00大大，想請教一下每一行程式碼代表意義為何？

劉晉

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: XP
軟體版本: office 2010
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2014-7-16
最後登錄: 2014-8-27

4^#

發表於 2014-7-22 09:28 | 只看該作者

[版主管理留言]

GBKEE(2014/8/7 06:38): 問題要附檔說明,看不懂沒人可回覆你

回復 2# stillfish00

目前清單的四個子細項已經會自動更換，但如果希望能夠不停更換，而不是只有跑四次而已，例如：1>2>3>4>1>2>3>4>1>....不斷循環，請問程式碼該如何修改？

感激不盡

劉晉

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題