- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 248
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-16
              
|
2#
發表於 2012-5-4 14:08
| 只看該作者
本帖最後由 Hsieh 於 2012-5-4 16:17 編輯
回復 1# caichen3
下拉清單內容是那些?
作用時機?問題請描述清楚
先以更改Sheet3!A1:A2數值為例，自己依需求更改- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Ar()
- If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
- Application.ScreenUpdating = False
- r = [A1] '列數
- K = [A2] '欄數
- For Each C In Sheet1.[B2].Resize(r, 1) '增加清單內容(客戶真正需求)
- ReDim Preserve Ar(s)
- Ar(s) = C.Value
- s = s + 1
- Next
- For Each C In Sheet2.[E2].Resize(, K) '增加清單內容(品質特性)
- ReDim Preserve Ar(s)
- Ar(s) = C.Value
- s = s + 1
- Next
- Me.OLEObjects.Delete
- For i = 1 To r
- For j = 1 To K
- Set a = Cells(i + 1, j + 4)
- With Me.OLEObjects.Add(ClassType:="Forms.ComboBox.1") '插入物件
- .Top = a.Top
- .Left = a.Left
- .Height = a.Height
- .Width = a.Width
- .LinkedCell = a.Address
- .Object.List = Ar
- End With
- Next
- Next
- Application.ScreenUpdating = True
- End Sub
|
|
發表於 2012-5-4 10:54
| 
