Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2776 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 発言[未読]
【66033】Switch関数に相当するのは
質問  にしもり  - 10/7/20(火) 14:53 -
引用なし
パスワード
   vbaではないのですがおしえてください。

AccessのSwitch関数に相当するExcelの関数は、なんでしょうか？

If関数でやったら引数が多すぎる、とでました。

よろしくお願いします。

Accessでの使用：
=Switch('T01'!フィールド1<10,"10才未満",'T01'!フィールド1<20,"10代",'T01'!フィールド1<30,"20代",'T01'!フィールド1<40,"30代",'T01'!フィールド1<50,"40代",'T01'!フィールド1<60,"50代",'T01'!フィールド1>59,"60代以上")
【66034】Re:Switch関数に相当するのは
発言  Jaka  - 10/7/20(火) 15:22 -
引用なし
パスワード
   ▼にしもり さん：
>AccessのSwitch関数に相当するExcelの関数は、なんでしょうか？
たぶん。
select case


>If関数でやったら引数が多すぎる、とでました。
書き方で多少は何とかなるかも。
ElseIF の使用も考えるとか。
【66035】Re:Switch関数に相当するのは
発言  Jaka  - 10/7/20(火) 15:28 -
引用なし
パスワード
   あ、関数か。

ht　tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=67;id=FAQ
とか。

CHOOSE
？？
【66036】Re:Switch関数に相当するのは
発言  Yuki  - 10/7/20(火) 15:37 -
引用なし
パスワード
   ▼にしもり さん：
>vbaではないのですがおしえてください。
>
>AccessのSwitch関数に相当するExcelの関数は、なんでしょうか？

同じようにエクセルにも
Switch 関数がありますよ。
【66050】Re:Switch関数に相当するのは
お礼  にしもり  - 10/7/21(水) 9:30 -
引用なし
パスワード
   ▼Jakaさん、Yuki さん：
有難うございます。
If関数でネストするかChooseというのを使えないか調べてみます。

Excelの関数リストにswitch関数をみつけることはできませんでした。
　
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2776 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free