Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75711 / 76807

←次へ　｜　前へ→


	【5530】ネストは７個まで

こう

- 03/5/17(土) 20:22 -


	引用なし

	パスワード

チョコさん，こんにちわ。
>G1に入力した式です→=IF(B1<3,"１",IF(B1<6,"２",IF(B1<9,"３",IF(B1<12,"４",IF(B1<15,"５",IF(B1<18,"６",IF(B1<21,"７",IF(B1<24,"８",IF(B1<27,"９",IF(B1<32,"１０",""""""""""))))))))))
IF文のネストは７個までです。詳細はhelpに記載してます。
>>最大 7 つまでの IF 関数を真の場合、偽の場合としてネストすることにより、より複雑なテストを行うことができます。
んで，８個めのIF文でエラーって叱られてますね。

ということで，
上記コードは規則性があるので計算式で求めてみました。
（IF(B1<32,"１０"は「B1<30」では？）

G1に　=JIS(ROUNDDOWN(B1/3,0)+1)

丸付きの数字ではなく全角数字なので，丸付きにする場合は，
もうちょっと加工が必要ですね。

また，VBAっぽくマクロで行うなら，
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Address = "$B$1" Then
　　　　With Range("G1")
　　　　　Select Case Target.Value
　　　　　　Case Is < 3:　.Value = "1."
　　　　　　Case Is < 6:　.Value = "2."
　　　　　　Case Is < 9:　.Value = "3."
　　　　　　Case Is < 12:　.Value = "4."
　　　　　　Case Is < 15:　.Value = "5."
　　　　　　Case Is < 18:　.Value = "6."
　　　　　　Case Is < 21:　.Value = "7."
　　　　　　Case Is < 24:　.Value = "8."
　　　　　　Case Is < 27:　.Value = "9."
　　　　　　Case Is < 32:　.Value = "10."
　　　　　End Select
　　　　End With
　　End If
End Sub
ってな感じですかね。

1 hits

▼

【5527】IF文のエラー チョコ 03/5/17(土) 18:52