標題: [發問] 請問下拉式選單自動變更值的問題 [打印本頁]

---

作者: 劉晉    時間: 2014-7-21 10:54     標題: 請問下拉式選單自動變更值的問題

各位大大好

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

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

---

作者: stillfish00    時間: 2014-7-21 19:24

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

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

1. Sub Test()
   
2.   Dim rngDrop As Range, rngDef as Range
   
3.   Dim t, x
   
4.   
   
5.   Set rngDrop = Range("A1")
   
6.   Set rngDef = Evaluate(rngDrop.Validation.Formula1)
   
7.   For Each x In rngDef
   
8.     rngDrop.Value = x.Value
   
9.     t = Timer
   
10.     Do
    
11.       DoEvents
    
12.     Loop Until Timer - t > 3
    
13.   Next
    
14. End Sub

複製代碼

---

作者: 劉晉    時間: 2014-7-22 09:25

回復 2# stillfish00


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

---

作者: 劉晉    時間: 2014-7-22 09:28

回復 2# stillfish00


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

     感激不盡

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)