ExcelVBAへの道
 
Sub セルの追加()
Worksheets("Sheet1").Range("A7").Insert shift:=xlShiftDown
'shift:=xlShiftToRight
End Sub
--------------------------------------------
Sub 列の追加()
Worksheets("Sheet1").Range("A7").EntireColumn.Insert
End Sub
--------------------------------------------
Sub 行の追加()
Worksheets("Sheet1").Range("A7").EntireRow.Insert
End Sub
--------------------------------------------
Sub 行の削除()
Worksheets("Sheet1").Rows("7:7").Delete shift:=xlUp
End Sub
--------------------------------------------
Sub オートフォーマット設定()
Worksheets("sheet2").Range("A1:G9").AutoFormat _
Format:=xlRangeAutoFormat3DEffects2, _
Number:=True, _
Font:=True, _
Alignment:=True, _
Border:=True, _
Pattern:=True, _
Width:=False
End Sub
--------------------------------------------
Sub SUM関数の実行()
Dim Total As Long

Set MyData = Worksheets("Sheet2").Range("C2:C9")
Range("C11") = Application.WorksheetFunction.Sum(MyData)
Total = Application.WorksheetFunction.Max(MyData)
Range("C12") = "最大値は" & Total
End Sub
------------------------------------------
Sub 消去()
Worksheets("Sheet3").Range("A1:A6").Clear
End Sub
Clearだけだと書式もデータも全て削除
------------------------------------------
Sub コンテンツ消去()
Worksheets("Sheet3").Range("A1:A6").ClearContents
End Sub
ClearContentsは値だけ削除
--------------------------------------------
Sub 書式消去()
Worksheets("Sheet3").Range("A1:A6").ClearFormats
End Sub
--------------------------------------------
Sub オフセット操作()
ActiveCell.Offset(1, 3) = 200
End Sub
--------------------------------------------
Sub InputBox関数()
Dim Msg As String

Msg = InputBox("名前を入力してください")
MsgBox Msg & "さん、こんにちは"
End Sub
--------------------------------------------
Sub InputBoxメソッド()
Dim Data
Data = Application.InputBox("値のあるセルを選んでください")
MsgBox Data
End Sub
--------------------------------------------
Sub InputBoxメソッド2()
Dim CellNo As Range
Set CellNo = Application.InputBox(Prompt:="セルを選んでください", Type:=8)
MsgBox "選択した範囲は" & CellNo.Address
End Sub
--------------------------------------------
Sub 編集可能領域の設定()
Worksheets("Sheet1").Protection.AllowEditRanges.Add _
Title:="許可範囲1", _
Range:=Range("A4:G4"), Password:="seto"
End Sub