返回列表 上一主題 發帖

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

劉晉

帖子
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找尋了許久仍然沒有辦法能夠讓這個清單自動變更裡面的四個子細項，希望各位能夠幫忙解除迷思
收藏 分享
劉晉

劉晉

帖子
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>....不斷循環，請問程式碼該如何修改？

     感激不盡
劉晉

TOP

劉晉

帖子
6 
主題
2 
精華
0 
積分
8 
點名
0  
作業系統
XP 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
來自
高雄 
註冊時間
2014-7-16 
最後登錄
2014-8-27 
3#
發表於 2014-7-22 09:25 | 只看該作者
回復 2# stillfish00


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

TOP

stillfish00

帖子
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# 劉晉
沒附檔很多不確定，自己試看看
  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
複製代碼

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題