スキルアップ・問題解決なら、モーグにおまかせ！

　回答者の皆様には、いつもお世話になっております。
　よろしくご指導お願いします。
　メッセージboxでyesnoボタンを押して、処理を分けたいのですが△の処理しか
　動作しません。いろいろなところを調べているのですがわかりません。
　何か大ぽかをしているのか。
Sub フッダー変更() 'フッダー変更マクロ
  Dim myWs As Worksheet
  Dim mybtn As Integer
   
  Application.ScreenUpdating = False
 
      Worksheets("表紙").Activate
        Range("a1").Activate
      MsgBox "この計算書は(公財)情報ｾﾝﾀｰ用ですか？", vbYesNo + vbQuestion
        
       For Each myWs In Worksheets
                If mybtn = vbYes Then⊷-------------------〇〇であればここの処理
                     myWs.Activate
                      With ActiveSheet.PageSetup
                         .CenterFooter = " ○○〇〇 "
                      End With
                Else-------------------------------------そうでない場合はここの処理
                      myWs.Activate
                      With ActiveSheet.PageSetup
                         .CenterFooter = " △△△ "
                      End With
                End If
         Debug.Print myWs.Name
       Next
      Worksheets("表紙").Activate
        Range("a1").Activate
       
  Application.ScreenUpdating = True
End Sub

 
>MsgBox "この計算書は(公財)情報ｾﾝﾀｰ用ですか？", vbYesNo + vbQuestion
   
これだけでは、無理です。
Msgboxの操作結果を取得する必要があります。
  
例
     myBtn = MsgBox("この計算書は(公財)情報ｾﾝﾀｰ用ですか？", vbYesNo + vbQuestion)
   
   If myBTN = vbYes Then
      ' はいをクリック時の処理
 　Else
      ' いいえをクリック時の処理
  End If
 
 

引用:
　何か大ぽかをしているのか。

引用:
Dim myWs As Worksheet
Dim mybtn As Integer
 
Dim strFooter As String
 
 :
 
(中略)
 
If mybtn = vbYes Then
  strFooter = "○○○○ "
Else
  strFooter = "△△△△ "
End If
 
For Each myWs In Worksheets
  myWs.CenterFooter = strFooter
  Debug.Print myWs.Name
Next
 :

Sub test()
    Dim flgYesNo As Long
    Dim myFooter As String
    
    flgYesNo = MsgBox("センター用？　はい/いいえ", vbYesNo)
    myFooter = IIf(flgYesNo = vbYes, "センター用", "一般用")
    
    Worksheets.Select   '全シートのグループ化
    ActiveSheet.PageSetup.CenterFooter = myFooter
    ActiveSheet.Select  'グループ化の解除
End Sub

mattuwan44さん
 

引用:
全部のシートが対象なら
Worksheets.Select
で、全部のシートをグループ化できますので、
そうしたらループの必要はないかと思いました。

引用:
Worksheets.Select '全シートのグループ化
    ActiveSheet.PageSetup.CenterFooter = myFooter

　 回答者の皆様にはお世話様になります。
　ご指導ありがとうございます。
　メッセージBOXでyesを押したのか、NOを押したのか判別方法がわかりません。
　
Sub フッダー変更() 'フッダー変更マクロ
  Dim myWs As Worksheet
  Dim mybtn As Integer
  Dim strcf As String
   
  Application.ScreenUpdating = False
 
      Worksheets("表紙").Activate
        Range("a1").Activate
                                                    '4 '32
      MsgBox "この計算書は(公財)情報ｾﾝﾀｰ用ですか？", vbYesNo + vbQuestion
' ここでboxのvbyesだと6が戻り、vbNOだと7が戻ります。
'　　　　　　　　この戻り値の取得の仕方がわかりません。
　　　　mybtnの変数を6だと判別しなくなる、どうすれば良いでしょうか。
                          '戻り値6
                If mybtn = vbYes Then
                    strcf = " 〇〇〇〇 "
                                '戻り値7
                ElseIf mybtn <> vbNo Then
                    strcf = " △△△△ "
                End If
                 
         For Each myWs In Worksheets
                       
                   myWs.PageSetup.CenterFooter = strcf
                    
                  Debug.Print myWs.Name
         Next
      Worksheets("表紙").Activate
        Range("a1").Activate
       
  Application.ScreenUpdating = True
End Sub

銀河 さんの引用:

 
　メッセージBOXでyesを押したのか、NOを押したのか判別方法がわかりません。

     myBtn = MsgBox("この計算書は(公財)情報ｾﾝﾀｰ用ですか？", vbYesNo + vbQuestion) 
    
    If myBTN = vbYes Then 

引用:
MsgBox "この計算書は(公財)情報ｾﾝﾀｰ用ですか？", vbYesNo + vbQuestion
 ' ここでboxのvbyesだと6が戻り、vbNOだと7が戻ります。
'　　　　　　　　この戻り値の取得の仕方がわかりません。
 　　　　mybtnの変数を6だと判別しなくなる、どうすれば良いでしょうか。
                          '戻り値6
                 If mybtn = vbYes Then
                     strcf = " 〇〇〇〇 "
                                 '戻り値7
                 ElseIf mybtn <> vbNo Then
                     strcf = " △△△△ "
                 End If
                  

引用:
Excel2013 の環境にて手動で 全てのワークシートを Selectし、
グループ化の上でページ-フッターの設定を行っても
設定できるのはアクティブシートに対してのみでした。

　　WinArrow様
　ご指導ありがとうございます。
　ご提案頂いたマクロで思った通りの判定をするようになりました。
 
 
 
 
　　別案
　　If vbyes = Msgbox("この計算書は(公財)情報ｾﾝﾀｰ用ですか？", vbYesNo + vbQuestion) Then
    　　この式の意味はvbyesの戻り値は6だからvbyesを押せば6で等しい。
　　　　strcf = " 〇〇〇〇 "
　　Else
   　　　そうでない場合は
　　　　 strcf = " △△△△ "
　　End If
 　こうゆう意味と理解で宜しいでしょうか。
 
　　明日にでも解決済みにします。
 
　回答者の皆様、ありがとうございます。

銀河 さんの引用:

　　別案
　　If vbyes = Msgbox("この計算書は(公財)情報ｾﾝﾀｰ用ですか？", vbYesNo + vbQuestion) Then
    　　この式の意味はvbyesの戻り値は6だからvbyesを押せば6で等しい。
　　　　strcf = " 〇〇〇〇 "
　　Else
   　　　そうでない場合は
　　　　 strcf = " △△△△ "
　　End If
 　こうゆう意味と理解で宜しいでしょうか。

こんばんは
 
MsgBox関数は，第二引数に vbYesNo を指定すると，
ダイアログにメッセージとともに，2つのボタン
[はい] と [いいえ] を表示します。
 
そこで [はい] を押下すると 6 が，[いいえ] を押下
すると 7 が返されます。
この関数が返す値を「戻り値」といいます。
 
その「戻り値」を判定すればよいわけですが，戻り値を
受け取るには以下のようにします：
 

ret = MsgBox("メッセージ", vbYesNo)

If ret = 6 Then
    ' [はい] が押下されたときの処理
Else
    ' それ以外のときの処理
End If

If vbYes = 6 Then
   Call MsgBox("vbYes は 6 だ!!")
End If

If 6 = 6 Then
   Call MsgBox("vbYes は 6 だ!!")
End If

ret = MsgBox("メッセージ", vbYesNo)

If ret = vbYes Then    ' 修正前は If ret = 6 Then
    ' [はい] が押下されたときの処理
Else
    ' それ以外のときの処理
End If

mattuwan44 さんの引用:

引用:
Excel2013 の環境にて手動で 全てのワークシートを Selectし、
グループ化の上でページ-フッターの設定を行っても
設定できるのはアクティブシートに対してのみでした。

 
あれー？
2019ではすべてのシートに設定できているように見えますが、、、、
（印刷までして確認してませんが。）

　回答者の皆様方
　丁寧なご説明ありがとうございました。msgboxの戻り値の取得の仕方
　理解できました。
　これからも分からない事ばかりだと思いますので、ご指導をお願いし
　解決させて頂きます。