Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16154 / 76734 ←次へ | 前へ→

【66051】Re:Switch関数に相当するのは
発言  Yuki  - 10/7/21(水) 10:02 -

引用なし
パスワード
   ▼にしもり さん:

>Excelの関数リストにswitch関数をみつけることはできませんでした。
> 
XL2K以後だったらswitch関数があると思いますが。
TestBを実行

Function SwitchEx(n As Long) As String
  SwitchEx = Switch(n < 10, "10才未満", _
           n < 20, "10代", _
           n < 30, "20代", _
           n < 40, "30代", _
           n < 50, "40代", _
           n < 60, "50代", _
           n > 59, "60代以上")
End Function

Sub TestB()
  Dim a  As Long
  Dim i  As Long
  Dim r  As String
  
  For i = 1 To 7
    a = a + 9
    r = SwitchEx(a)
    Debug.Print r
  Next
End Sub
0 hits

【66033】Switch関数に相当するのは にしもり 10/7/20(火) 14:53 質問
【66034】Re:Switch関数に相当するのは Jaka 10/7/20(火) 15:22 発言
【66035】Re:Switch関数に相当するのは Jaka 10/7/20(火) 15:28 発言
【66036】Re:Switch関数に相当するのは Yuki 10/7/20(火) 15:37 発言
【66050】Re:Switch関数に相当するのは にしもり 10/7/21(水) 9:30 お礼
【66051】Re:Switch関数に相当するのは Yuki 10/7/21(水) 10:02 発言

16154 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free