3.メソッド(method)

'Add の使用例
Sub AddTest()
    Dim NewWorkSheet As Worksheet
    Set NewWorkSheet = Worksheets.Add()
    NewWorkSheet.Name = "AddTestNewSheet"
End Sub
       

Sub ActivateTest()
   Worksheets("Sheet1").Activate
End Sub       
　　　　　　

Sub ArrangeTest()
  Application.Windows.Arrange _
   ArrangeStyle:=xlArrangeStyleTiled
End Sub       
　　　　　　

Sub ClearContentsTest()
    Sheets("Sheet1").Range("I34:P42").ClearContents
End Sub       
       

Sub CopyTest()
   Sheets("Sheet1").Range("I34:P42").Copy
End Sub       
       

Sub DeleteTest()
   Sheets("Sheet1").Range("I34:P42").Delete
End Sub
       

Sub FindTest()
 '指定範囲内にValueと言う文字列の有無を調べます
  Dim rng As Range
  Set rng = Sheets("Sheet1") _
            .Range("I34:P42").Find("Value")
  If rng Is Nothing Then
     MsgBox "有りませんでした"
  Else
     MsgBox "有りました" 
  End If
End Sub 
       

Sub GetPhoneticTest()
 'Sheet1のセルA1の漢字のふり仮名を表示します
    Dim Nihongo As String
    Nihongo = Sheets("Sheet1").Cells(1, 1).Value
    MsgBox Application.GetPhonetic(Nihongo)
 '対象の全てのふり仮名の取得も可能
End Sub
       

Sub InputBoxTest()
  Dim InpStr As String
  InpStr = Application.InputBox _
   ("必要な文字を入力してください")
  If InpStr <> "" Then
     MsgBox InpStr & " が入力されました"
  Else
     MsgBox "文字を入力してください"
  End If
End Sub
       

Sub InsertTest()
'セル範囲A1:F1の上にセルを追加して _
 下にシフトします
  Sheets("Sheet1").Range("A1:F1") _
  .Insert xlShiftDown
End Sub
       

Sub MergeTest()
'セル範囲A1:F1を結合します
    Range("A1:F1").Merge
End Sub
       

Sub UnMergeTest()
'セル範囲A1:F1の結合を解除します
    Range("A1:F1").UnMerge
End Sub
       

Sub MoveTest()
'Sheet1をSheet3の後に移動します
  Sheets("Sheet1").Move after:=Sheets("Sheet3")
End Sub
       

Sub OnkeyAnswer()
'実行プログラムをModule に記述します
   MsgBox "ショートカットキーで発動されました"
End Sub

Private Sub Worksheet_Activate()
'Worksheet のコードに記述します
'ショートカットキーは「Ctrl」+「a」です
  Application.OnKey "^{a}", "OnkeyAnswer"
End Sub
       

Sub PasteSpecialTest()
'シート 1 のセル範囲 D1:D5 の各セルのデータに、 _
シート 1 のセル範囲 C1:C5 の対応するセルのデータ _
を加算します
  With Sheets("Sheet1")
    .Range("C1:C5").Copy
    .Range("D1:D5").PasteSpecial _
    Operation:=xlPasteSpecialOperationAdd
  End With
End Sub
       

Sub PrintOutTest()
'アクティブ シートを印刷します
  ActiveSheet.PrintOut
End Sub
       

Sub ProtectTest()
'アクティブ シートをパスワード付きで保護します
  ActiveSheet.Protect Password:="1234"
End Sub
       

Sub ReplaceTest()
'Sheet1のセルA1にA B C D E F Gと入力し _
   そこから空白を除去します
  Dim InpStr As String
  InpStr = "A B C D E F G"
  Sheets("Sheet1").Cells(1, 1).Value = InpStr
  MsgBox "セルA1の文字列の空白を削除します", _
     vbOKOnly
  Sheets("Sheet1").Cells(1, 1).Value _
     = Replace(InpStr, " ", "")
End Sub
       

Sub SelectTest()
 MsgBox "セルA1 を選択します", vbOKOnly
   ActiveSheet.Cells(1, 1).Select
 MsgBox "セル範囲 A1:A3 を選択します", vbOKOnly
   ActiveSheet.Range("A1:A3").Select
End Sub