12
返回列表 上一主題 發帖

帶出對應值

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-12-27 
11# 跳轉到 »
發表於 2022-1-7 12:21 | 只看該作者
回復 10# PJChen

TEXT(???,"正數;負數;零;文字")

TEXT(IF(B4:E4="",-1,B4:E4),"1;;1;!1")
空格--轉成-1
正數以1表示, 負數"", 零以1表示, 文字以1表示

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-12-5 
12#
發表於 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

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
12
返回列表 上一主題