印刷、メッセージボックス、InputBox、行列固定の例

'印刷の例
      Rows("101").PageBreak = xlManual
      With ActiveSheet.PageSetup
        .PrintArea = "A1:H200"
        .Orientation = xlPortrait  'または、xlLandscapeなど
        .Zoom = 58
        .CenterHorizontally = True
      End With

'メッセージボックスの例
            jyn = MsgBox("番号またはJobコードが変更されました" & vbCrLf _
               & "上書きしますか 中止しますか" & vbCrLf _
               & "はい（上書き） いいえ（中止）" _
               , vbExclamation + vbYesNo + vbDefaultButton2)
              If jyn = vbYes Then
                jwrt = 1
              End If

'InputBoxに入力する例
    Dim nam As Variant
    Dim Ns Integer
    Dim n As Integer
    Dim jer As Integer

    nam = InputBox("番号を入力してください" _
                   & vbCrLf & "      空欄で終了")
    If nam = "" Then
        jer = 1
      ElseIf IsNumeric(nam) = True Then
        If Val(nam) > 0 And Val(nam) <= n Then Ns = Val(nam)
    End If
    If jer > 0 Then
        MsgBox "キャンセル"
      ElseIf Ns < 1 Then
        MsgBox "入力値が不正です"
        jer =2
    End If

'行列の固定の例
    ActiveWindow.FreezePanes = False
    CelAdr = Cells(3, 5).Address '4列めまでは常時表示
    Range(CelAdr).Activate
    ActiveWindow.FreezePanes = True