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 |