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

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

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

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

大學生 Rank: 4

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

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 要用心，不要操心、煩心。

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