'=========================================================================================
' 437 スピンボタンで指定して追加した行の指定範囲に値をセットする
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードです。
' UserForm1にもコードがあり、標準モジュールのコードと連係して動作します


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



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    Worksheets("作業").Activate
    UserForm1.Show
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()           'ユーザーフォームが表示される直前に実行するマクロ
    SpinButton1.Min = 1                     'スピンボタン1で設定可能な最小値
    SpinButton1.Max = 20                    '　　　〃　　　　　〃　　 最大値
    SpinButton1.Value = 1                   '　　　〃　　 の値を1にする
'
    SpinButton2.Min = 1
    SpinButton2.Max = 10
    SpinButton2.Value = 1
'
    SpinButton3.Min = 1
    SpinButton3.Max = 20 + 10
    SpinButton3.Value = 1
End Sub
'=========================================================================================
Private Sub SpinButton1_change()            'スピンボタンをクリックしたときに実行するマクロ
    UserForm1.TextBox1.Value = SpinButton1.Value 'テキストボックス1にスピンボタン1の値をセットする
End Sub
'-----------------------------------------------------------------------------------------
Private Sub SpinButton2_change()
    UserForm1.TextBox2.Value = SpinButton2.Value
End Sub
'-----------------------------------------------------------------------------------------
Private Sub SpinButton3_change()
    UserForm1.TextBox3.Value = SpinButton3.Value
End Sub
'=========================================================================================
Private Sub CommandButton1_Click()          'コマンドボタンがクリックされたときに実行するマクロ
10  数値 = TextBox4.Value                   'セルに入力する数値を取り出す
20  基準行 = SpinButton1.Value              '行追加の基準になる行を取り出す
30  追加行数 = SpinButton2.Value            '追加する行数を取り出す
40  入力最下行 = SpinButton3.Value          'セルに入力する最下行を取り出す
50  Unload Me                               'ユーザーフォームを非表示にする
60  下端 = 基準行 + 追加行数 - 1            '行追加する下端行を計算しておく
'   ★★★ 基準行と下端の間に行を挿入する
70  Range(Cells(基準行, 1), Cells(下端, 1)).EntireRow.Insert (xlShiftDown)
'   ★★★ 基準行と入力最下行のC列に数値をセットする
80  Range(Cells(基準行, 5), Cells(入力最下行, 5)).Value = 数値
End Sub
'=========================================================================================