返回列表 上一主題 發帖

[發問] 請問關於資料驗證中下拉清單的問題

劉晉

帖子
6 
主題
2 
精華
0 
積分
8 
點名
0  
作業系統
XP 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
來自
高雄 
註冊時間
2014-7-16 
最後登錄
2014-8-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-7-18 09:18 | 只看該作者

[發問] 請問關於資料驗證中下拉清單的問題

各位大大好

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

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

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2014-7-18 09:49 | 只看該作者
回復 1# 劉晉
一般模組
  1. Public k
  2. Sub auto_open()
  3. Dim A As Range
  4. With Range("D1") '驗證的儲存格
  5. Set A = Range(.Validation.Formula1)
  6. .Value = A((k Mod A.Count) + 1)
  7. k = k + 1
  8. End With
  9. Application.OnTime Now + TimeValue("00:00:05"), "auto_open" '5秒後再執行一次
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

劉晉

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


    首先，謝謝您的回覆，由於我沒有學過VBA的程式語言，所以想請教您每一行程式碼附帶的意涵為何？因為目前清單中僅有四個選項，這串程式碼是否能夠套用？
劉晉

TOP

劉晉

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


    不好意思，想請問您我設定為5秒更換一次，但我在執行巨集時，五秒後他會顯示一個警示方框說"無法執行巨集，該巨集可能無法在此活頁簿中使用，或者已停用所有巨集"，想請問原因為何?   煩請大大回覆，謝謝!
劉晉

TOP

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題