返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
1# 跳轉到 »
發表於 2022-10-17 15:21 | 顯示全部帖子
回復 1# av8d


    謝謝前輩發表此主題
很有意思的情境!
方便提供範例檔嗎?

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
2#
發表於 2022-10-18 07:18 | 顯示全部帖子
回復 3# singo1232001


   謝謝前輩
厲害了!
二元一次方程式應用上了!
後學對代數也很有興趣,有看懂,知道怎麼應用了!
謝謝前輩

(不想用方程式也可以用select case)
懇請前輩撥空設計程式碼指導後學

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
3#
發表於 2022-10-18 10:12 | 顯示全部帖子
回復 5# singo1232001

謝謝前輩指導
後學藉這主題想搞懂  Case怎麼用
以下心得註解如有錯,請前輩指正與指導
謝謝前輩

Private Sub ListBox1_Click()
LL = ListBox1.ListIndex + 1
If LL > 0 Then
    L0 = Int((LL - 1) / 4) + 1
    r = 23 * L0 - 22
    L1 = LL - ((L0 - 1) * 4)
    '↑Case要有前因! L1 這個前因可能有多個
    Select Case L1
    '↑在 Select Case 與 End Select之間列出前因後果的種類
    Case 1: c = 1
    '↑當L1是 1 時 以:符號區隔!開始陳述結果(令c=1)
    Case 2: c = 6
    Case 3: c = 11
    Case 4: c = 16
    End Select
Unload Me
Cells(r, c).Select
End If
End Sub

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題