'=========================================================================================
' 178 入力規則やメッセージをコピーする
'-----------------------------------------------------------------------------------------
'【ヒント】
' タイトル機能に関係するマクロは、UserForm3のコードにあります。
' この標準モジュールのマクロは、おためし機能の動作用のコードです。



'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    Range("D8:I8").Select                       'マクロの動きをわかり易くするため
    UserForm1.Show vbModeless                   'ユーザーフォームをモードレスで表示する
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' これは自動記録したマクロです
'=========================================================================================
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2000/4/28  ユーザー名 : Yoshioh Nagai
'

'
    Range("F8").Select
    Selection.Copy
    Range("F10").Select
    Selection.PasteSpecial Paste:=xlDataValidation, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub
'=========================================================================================



'=========================================================================================
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
    UserForm1.Hide                          'ユーザーフォーム1を非表示にする
    Range("D9:I12").Select                  'マクロの動きをわかり易くするため
    UserForm2.Show vbModeless               'ユーザーフォーム2をモードレスで表示する
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆UserForm2のコード◆
'-----------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
    UserForm2.Hide                          'ユーザーフォーム2を非表示にする
    Range("D8:I8").Select                   'マクロの動きをわかり易くするため
    UserForm3.Show                          'ユーザーフォーム3を表示する
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆UserForm3のコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim コピー範囲 As String                    '◆◆◆
Dim 貼付け範囲 As String                    '◆◆◆


'-----------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
    UserForm3.Hide                          'ユーザーフォーム3を非表示にする
    コピー範囲 = "D8:I8"                    '◆◆◆
    貼付け範囲 = "D9:I12"                   '◆◆◆
    入力規則やメッセージをコピーする          '◆◆◆
    Range("D9:I12").Select                  'マクロの動きをわかり易くするため
    UserForm4.Show vbModeless               'ユーザーフォーム4をモードレスで表示する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 入力規則やメッセージをコピーする()
    ActiveSheet.Unprotect                   'シート保護を解除する
    Range(コピー範囲).Copy                  '◆◆◆
'   Range(貼付け範囲).PasteSpecial Paste:=xlDataValidation '◆◆◆ このマクロが動かないので
    Range(貼付け範囲).PasteSpecial Paste:=xlAllExceptBorders '◆◆◆ 回避措置のコード（罫線を除くすべて貼り付け）
    ActiveSheet.Protect                     'シートを保護する
End Sub
'=========================================================================================