帖子: 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

我肥人

中學生 Rank: 2

帖子: 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