1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-12-29 17:48 | 只看該作者

[發問] list 無法設定

請問各位大大
下方最下面 ListBox3.List = opop.Value<===程式執行時會出現無法設定LIST 屬性
想請問是哪邊沒有定義到嗎??
動作
要將搜尋到的值放到 ListBox3

.
.
.
If ListBox1.Value = "RPR-018" Then Worksheets("RPR-018").Activate
If ListBox1.Value = "NFPR-010" Then Worksheets("NFPR-010").Activate
Dim opop As Range
Dim NON As String
Dim jjo As Long
NON = ListBox1.Value
jjo = ListBox2.Value
Set opop = Workbooks("TEST.xlsm").Worksheets(NON).Columns("d").Cells.Find(What:=jjo, SearchDirection:=xlNext)
If opop Is Nothing Then MsgBox "找不到！": Exit Sub
If Not opop Is Nothing Then
ListBox3.List = opop.Value
End If

複製代碼

test.rar (186.83 KB)

3^#

發表於 2014-12-30 10:56 | 只看該作者

回復 2# GBKEE

謝謝 GBKEE的回覆

剛測試後可以顯示在ListBox3的清單方塊中

有幾個問題想問一下

1.

複製代碼

很多程序也都會加入這樣清除清單或下拉式清單的指令,但剛把.clear 註解之後發現效果一樣
是跟.value & .additem 有關係嗎?? 還是只是一個習慣都會這樣加??

2.

複製代碼

加上"*"號表示此關鍵字前後可能含有零或多個字元,剛把 & "*" 註解之後
執行時會在 ListBox3.Value = opop.Value 出現 "無法設定Value屬性",所以是"往下搜尋符合的字串"時候都需要加這"*"??

3.

複製代碼

Resize(數值) 測試後更改數值的話那在 ListBox3 會隨著數值而去抓取儲存格的個數如輸入5 它就去抓取5個儲存格的樣子是這樣嗎??
但我不太懂你註解的意思 @@??

4.程式在執行時當遇到空白儲存格<圖一>它就只會抓取空白儲存格以上的值而已<圖二> 其它值不會抓取到??

1.jpg (128.64 KB)

圖一

2.jpg (80.02 KB)

圖二

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-12-30 07:46 | 只看該作者

本帖最後由 GBKEE 於 2014-12-30 08:04 編輯

回復 1# prince120101

Private Sub ListBox2_Click()
Dim opop As Range, jjo As Long
Sheets(ListBox1.Value).Activate
jjo = ListBox2.Value
Set opop = Workbooks("TEST.xlsm").Worksheets(ListBox1.Value).Columns("d").Cells.Find(What:=jjo, SearchDirection:=xlNext)
With ListBox3
.Clear '清除控制項(清單方塊或下拉式清單方塊)的內容
If opop Is Nothing Then
MsgBox "找不到！"
ElseIf Not opop Is Nothing Then
i = 0
Do While opop.Offset(i) Like jjo & "*" '往下符合 jjo* 的字串
.AddItem '清單方塊中加入一個項目
.List(.ListCount - 1, 0) = opop.Offset(i)
i = i + 1
Loop
'單獨一個儲存格無法指定到控制項的List
'ListBox3.List = opop.Resize(2).Value '///可以試試看///
'可以指定到控制項的 .Value
ListBox3.Value = opop.Value
End If
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.