エクセル２０００でのＶＢＡについて

質問

下記のＶＢＡを書いているのですが、３つのＩＦ文を１つに
まとめたいのですが教えてください。

If Range("E16") = "申請者" Then
Sheets("ログイン").Select
Sheets("報告票").Select

ActiveSheet.Unprotect
Range("M3:U7").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'数式バー表示
Application.DisplayFormulaBar = True
Range("H9").Select
Else: Sheets("ログイン").Select

If Range("E16") = "所属長承認" Then
Sheets("報告票").Select

ActiveSheet.Unprotect
Range("D3:L7").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'数式バー表示
Application.DisplayFormulaBar = True
Range("H9").Select
Else: Sheets("ログイン").Select

If Range("F16") = "所属長承認" Then
Sheets("報告票").Select

ActiveSheet.Unprotect
Range("BS3:CA7").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'数式バー表示
Application.DisplayFormulaBar = True
Range("H9").Select
Else: Sheets("ログイン").Select
end if
end if
end if

回答No.3

papayuka · ベストアンサー

これを読んで理解したうえで書き直せと？
やりたい事の説明くらい書いたらどうでしょう？

なぜ
　Range("E16") = "申請者"
　Range("E16") = "所属長承認"
　Range("F16") = "所属長承認"
このような分岐が必要なのか理解出来ません。

これらのセルを見てアクティブシートが何かを判定をしてる？

回答No.2

keikan

end ifの位置がおかしいのかな？

最初のＩＦ文で
Range("E16") = "申請者"
を評価していますが、end　ifの位置が全部末尾にあるため
構造上IFの入れ子状態になっています。
しかしながら、評価の対象がすべてRange("E16")になっているので、Range("E16") = "申請者" であったとき

Sheets("ログイン").Select
Sheets("報告票").Select

ActiveSheet.Unprotect
Range("M3:U7").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'数式バー表示
Application.DisplayFormulaBar = True
Range("H9").Select
Else: Sheets("ログイン").Select

までは実行されますが、
それ以下の２つのIF文は必然的に式が成り立たないため実行されません。
Range("E16") が "申請者"であって同時に
"所属長承認"でもあるときはないと思います。

最初のIF文のブロックが終わったときにend　ifを入れましょう。

２番目３番目のIF文は同じ評価をしていますのでIF文が１つになります。

If Range("E16") = "所属長承認" Then
Sheets("報告票").Select

ActiveSheet.Unprotect
Range("D3:L7").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'数式バー表示
Application.DisplayFormulaBar = True
Range("H9").Select
Else: Sheets("ログイン").Select

'If Range("F16") = "所属長承認" Then　このIF文を削ってください。

Sheets("報告票").Select

ActiveSheet.Unprotect
Range("BS3:CA7").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'数式バー表示
Application.DisplayFormulaBar = True
Range("H9").Select
Else: Sheets("ログイン").Select
end if

文の流れ例
＊＊＊＊＊＊＊＊＊＊＊＊
if A THEN
実行１
end if

if B THEN
実行２
end if

条件Aが正しければ実行１を行う。
条件Bが正しければ実行２を行う。（条件Aには無関係）

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
if A THEN
実行１

if B THEN
実行２
end if
end if

条件Aが正しければ実行１を行う。
かつ、条件Bが正しければ実行２を行う。
条件Aが正しくなければ何も実行されない

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
if A THEN
実行１

else
実行２
end if

条件Aが正しければ実行１を行う。
そうでなければ（条件Aが正しくなければ）実行２を行う。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
if A THEN
実行１

else　if B THEN
実行２

end if

条件Aが正しければ実行１を行う。
条件Aが正しくなく条件Bが正しければ実行２を行う。
条件Aが正しくなく条件Bが正しくなければ何も実行されない

回答No.1

bigdisplay

Select Case ステートメントではダメでしょうか？

ＨＥＬＰで確認してください。