返回列表 上一主題 發帖

[發問] 關於UserForm1中的ListBox應用

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2022-10-17 16:56 | 顯示全部帖子
本帖最後由 singo1232001 於 2022-10-17 17:01 編輯

回復 1# av8d

listbox選項v2.zip (23.7 KB)

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2022-10-18 09:26 | 顯示全部帖子
回復 4# Andy2483


'    c = 5 * L1 - 4
只有這段可改成
Select Case L1
Case 1: c = 1
Case 2: c = 6
Case 3: c = 11
Case 4: c = 16
End Select

r的部分也能改 但範圍比較大 要改很多 所以不大建議(1,24,37.......)大概要列13項以上 並且原po可能還要更多的選項 所以建議只用二元一次方程式
c的部分因為只有1,6,11,16四個選項 所以可以用select case處理

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
3#
發表於 2022-10-20 12:56 | 顯示全部帖子
本帖最後由 singo1232001 於 2022-10-20 13:01 編輯

回復 8# av8d


這牽扯到邏輯事前規劃
我的建議是 listbox 增加選項時
若為空  一樣讓它顯示文字 但不要用略過的方式處理  用空白或者"空"字取代
並且 一開始就直接讓他無法正常執行就好

Private Sub ListBox1_Click()
LL = ListBox1.ListIndex + 1
if listbox1.list(1,0)="" then exit sub
...
...
...
...
也可以最後多加個判斷 讓他忽略
if r=1,c=6 then msgbox "此項為空"  : Exit sub
Unload Me
cells(r,c).select
End sub

若去動整個主規則 那會產生更複雜的問題 而且事後會很難除錯

listbox選項v3.zip (24.74 KB)

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題