- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
777 ：デフォルトの名無しさん[sage]：2015/11/15(日) 06:27:36.18 ID:XwHDp+pV - >>776
sh = 1
Select Case [A1]
Case Is <= 18.5
Case Is <= 25: sh = 2
Case Is <= 30: sh = 3
Case Is <= 35: sh = 4
End Select
Sheets("Sheet" & sh).Select
| - Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
778 ：デフォルトの名無しさん[sage]：2015/11/15(日) 06:30:17.53 ID:XwHDp+pV - >>776
A1 = [A1]
If 18.5 < A1 And A1 <= 25 Then Sheets("Sheet2").Select
If 25 < A1 And A1 <= 30 Then Sheets("Sheet3").Select
If 30 < A1 And A1 <= 35 Then Sheets("Sheet4").Select
|
|