返回列表 上一主題 發帖

帶出對應值

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-5-5 
1# 跳轉到 »
發表於 2023-1-5 15:05 | 顯示全部帖子
本帖最後由 Andy2483 於 2023-1-5 15:09 編輯

回復 6# PJChen


    謝謝前輩發表此主題與範例
今天學習 http://forum.twbts.com/thread-23571-1-1.html  此帖初次學到Switch 函數,
後學藉此帖練習VBA Switch 函數,請參考
謝謝 准提部林前輩

執行前:


執行結果:


Option Explicit
Sub 帶出對應值_1()
Dim Brr, i&, j&, K%, S$
Brr = Range([比菲多!Q4], [比菲多!A65536].End(3))
For i = 1 To UBound(Brr)
   ReDim T(1 To 5)
   For j = 1 To 5
      T(j) = Val(Replace(Brr(i, j), "W", 1))
   Next
   K = Switch(T(2) > 0, 6, T(3) > 0, 9, T(4) > 0, 12, T(5) > 0, 15, T(1) > 0, 1)
   Brr(i, 1) = Brr(i, K)
Next
[W:W].ClearContents
[比菲多!W4].Resize(UBound(Brr), 1) = Brr
Set Brr = Nothing: Erase T
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題