接續前一篇：Excel-模擬程式語言的廻圈運算(SUMPRODUCT,MOD,ROW)
如果你在 Excel 的工作表中要實現 Select … Case 多選一的程式邏輯，該如何處理？（參考下圖）
【程式】
Dim k, sum As Integer
sum = 100
k = InputBox("請輸入一個數字")
Select Case k
Case 1 : sum = sum + k
Case 2 : sum = sum - k
Case 3 : sum = sum * k
Case 4 : sum = sum / k
End Select
Debug.Print(sum)
在 Excel 中可以透過 CHOOSE 函數來執行多選一的邏輯設計：
儲存格E2：=CHOOSE(B3,D3+B3,D3-B3,D3*B3,D3/B3)
儲存格B3（=k）是輸入的數字；儲存格D3（=sum）是預設值。
儲存格F3為 sum 的運算結果。
文章標籤
全站熱搜
留言列表