GBKEE

回復 1# symis
看不懂你的說明!請傳上範例檔案,會清楚些.

GBKEE

回復 5# symis
是這樣嗎?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, i As Integer, e As Range
   
4.     Set Rng = Range("A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9")
   
5.     'Set Rng = Selection             '或是工作表上選定的儲存格
   
6.     For i = 1 To Rng.Areas.Count
   
7.         'Areas 屬性 套用至範例特定傳回 Areas 集合，此集合代表多重範圍中的所有範圍。唯讀。
   
8.         'Count 屬性。傳回集合物件中物件數目。唯讀 Integer。
   
9.         For Each e In Rng.Areas(i)
   
10.             e.Value = e.Address     '不知你要動輸入??資料
    
11.         Next
    
12.     Next
    
13. End Sub

複製代碼

GBKEE

回復 7# symis
不事先預定要輸入的範圍
範圍是哪裡:須說明一下

GBKEE

回復 10# symis
在你的檔案中,不是下拉選單應是驗證清單.
預設工作表中移動儲存格的事件

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Not Target.Validation Is Nothing Then Target = Split(Target.Validation.Formula1, ",")(0)
   
4. End Sub

複製代碼

下載 (17.93 KB)

2013-3-28 19:19

GBKEE

回復 14# barrykuo
Set Rng = Range("A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9")
設定變數="A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9"這些範圍
'Set Rng = Selection 這註解是說明也可以: 設定變數=工作表上所選擇的作用中儲存格範圍

GBKEE

回復 12# symis
你的圖示是系統 要求你要更新參照
檔案中有名稱定義=INVKind_13  參照到其他活頁簿  ->    ='C:\work\租稅減免附冊\Sample檔\[101txt_3.xlsm]清單選項'!$D$52:$D$54

下載 (12.45 KB)

2013-4-4 15:02

如需上傳檔案  如圖:

下載 (31.81 KB)

2013-4-4 15:00

資料驗證

下載 (62.48 KB)

2013-4-4 15:01

下拉清單  ComboBox 控制項

下載 (55.57 KB)

2013-4-4 15:03