回覆列表
  • 1 # 使用者6042355569836

    1.用vba的case函式

    開啟MS Excel,按下alt+F11,複製貼上下列程式碼:

    Sub 測吉祥()

    Dim a As Integer

    a = InputBox("請輸入:")

    Select Case a

    Case 1, 3, 5, 7, 8, 11

    MsgBox "大吉"

    Case 6, 17, 26, 27, 29

    MsgBox "中吉"

    Case 2, 4, 9, 10, 12

    MsgBox "不吉祥"

    Case Else

    MsgBox " 無效"

    End Select

    End Sub

    如圖

    按F5執行就行了。

    2.直接使用IF函式

    在表格A1處輸入數字,在表格A2處複製貼上下列程式碼

    =IF(OR(A1=1,A1=3,A1=5,A1=7,A1=8,A1=11),"大吉",IF(OR(A1=6,A1=17,A1=26,A1=27,A1=29),"中吉",IF(OR(A1=2,A1=4,A1=9,A1=10,A1=12),"不吉祥","無效")))

  • 中秋節和大豐收的關聯?
  • 怎樣短時間鍛鍊長跑、跳遠、和坐臥體前驅?