返回列表 上一主題 發帖

[發問] list 無法設定

prince120101

帖子
25 
主題
7 
精華
0 
積分
53 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-12-4 
最後登錄
2018-6-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-12-29 17:48 | 顯示全部帖子

[發問] list 無法設定

請問各位大大
下方最下面 ListBox3.List = opop.Value<===程式執行時會出現 無法設定LIST 屬性
想請問是哪邊沒有定義到嗎??
動作
要將 搜尋到的值放到  ListBox3
  1. .
  2. .
  3. .
  4. If ListBox1.Value = "RPR-018" Then Worksheets("RPR-018").Activate
  5. If ListBox1.Value = "NFPR-010" Then Worksheets("NFPR-010").Activate

  7. Dim opop As Range
  8. Dim NON As String
  9. Dim jjo As Long

  11. NON = ListBox1.Value
  12. jjo = ListBox2.Value
  13. Set opop = Workbooks("TEST.xlsm").Worksheets(NON).Columns("d").Cells.Find(What:=jjo, SearchDirection:=xlNext)

  15. If opop Is Nothing Then MsgBox "找不到！": Exit Sub

  17. If Not opop Is Nothing Then
  18. ListBox3.List = opop.Value
  19. End If
複製代碼

test.rar (186.83 KB)

收藏 分享

prince120101

帖子
25 
主題
7 
精華
0 
積分
53 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-12-4 
最後登錄
2018-6-6 
2#
發表於 2014-12-30 10:56 | 顯示全部帖子
回復 2# GBKEE

謝謝 GBKEE的回覆

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

有幾個問題想問一下

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

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

3.
  1. '單獨一個儲存格無法指定到控制項的List
  2.   ' ListBox3.List = opop.Resize(2).Value '///可以試試看///
  3.   '可以指定到控制項的 .Value
  4.    ListBox3.Value = opop.Value
複製代碼
Resize(數值) 測試後 更改數值的話 那在 ListBox3 會隨著數值而去抓取儲存格的個數 如輸入5 它就去抓取5個儲存格的樣子 是這樣嗎??
但我不太懂你註解的意思 @@??

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

1.jpg (128.64 KB)

圖一

1.jpg

2.jpg (80.02 KB)

圖二

2.jpg

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題