返回列表 上一主題 發帖

[發問] Listbox search 問題？

我肥人

帖子
14 
主題
5 
精華
0 
積分
62 
點名
0  
作業系統
WINDOW 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
註冊時間
2013-7-25 
最後登錄
2023-3-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-10-1 18:35 | 只看該作者

[發問] Listbox search 問題？

假設excel A2=abc、A3=abc；在代碼的幫助下，在texbox1輸入abc，使用Find ShipName，VBA會顯示兩列abc，但是修改第二列abc資料VBA修改第一列資料。
請問有方法因應Shipname項目指定修改對應列嗎？謝謝

populate_textboxes_basedon_listboxitem_.xlsm.zip (62.25 KB)

VBA

收藏 分享

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2022-10-2 05:02 | 只看該作者
本帖最後由 singo1232001 於 2022-10-2 05:07 編輯

回復 1# 我肥人

populate_textboxes_basedon_listboxitem_v2.zip (286.79 KB)

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2022-10-2 05:21 | 只看該作者
回復 2# singo1232001


    搜尋Find ShipName 並 編輯後會重新更新

populate_textboxes_basedon_listboxitem_v3.zip (289.57 KB)

TOP

我肥人

帖子
14 
主題
5 
精華
0 
積分
62 
點名
0  
作業系統
WINDOW 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
註冊時間
2013-7-25 
最後登錄
2023-3-17 
4#
發表於 2022-10-5 15:21 | 只看該作者
本帖最後由 我肥人 於 2022-10-5 15:23 編輯

回復 3# singo1232001


謝謝大大幫助!
另外想問問因為項目名稱有1-30列，請問有方法只顯示1-9列(A1-I1)於Userform1-listbox1
因為現在增添列數便出現：執行階段錯誤'1004' 找不到所要找的儲存格,謝謝

populate_textboxes_basedon_listboxitem_v3-1.zip (35.73 KB)

thx

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2022-10-6 11:23 | 只看該作者
回復 4# 我肥人


    主要是userform1 的userform_Initialize()
這段出問題 然後又被彈回去userform1.show  如果你用f8跑 可能就可以了
ActiveSheet.Range("A:I").SpecialCells(xlCellTypeBlanks).Rows.Delete xlUp
貌似這段講的是刪除A:I欄的空白列位?

這就要注意幾點
1.是否開啟userform後 userform為鎖定模式 (或者測試不要鎖定userform看看)
2.是否出現非空白的異常問題
3.若還是無法解決 就改用其他種的刪除語法

目前我隨機從中插入一列空白 就能正常運行  也不大清楚實際狀況
實際要慢慢測看看

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題