ExcelVBAへの道
　

Sub ワークシート数取得()
ActiveWorkbook.Worksheets.Count
End Sub
------------------------------------------------------------
Sub ワークシート数取得()
Dim Mysheet As Sheets
Dim SCount As Integer

Set Mysheet = ActiveWorkbook.Sheets
SCount = Mysheet.Count

End Sub
------------------------------------------------------------
Sub ワークシート名変更()
Worksheets("Sheet1").Name = "シート名"
End Sub
----------------------------------------------------------
Sub 新規ブック作成()
Dim myNewObject As Workbook

Set myNewObject = Workbooks.Add '新規ブック作成
myNewObject.Activate

End Sub
------------------------------------------------------------
Sub フォルダのブックを開く()
Workbooks.Open Filename:="C:\My Documents\ブック.xls"
End Sub
-----------------------------------------------------------
Sub ブックを保存して閉じる()
ActiveWorkbook.Close True
End Sub
--------------------------------------------------------
Sub ブックを上書き保存()
ActiveWorkbook.Save
End Sub
--------------------------------------------------------
Sub 変更あったら上書き保存()
If ActiveWorkbook.Saved = False Then
MsgBox"変更を保存します。"
ActiveWorkbook.Save
Else
MsgBox"変更されていません。"
End If
End Sub
----------------------------------------------------------
Sub 新しいウィンドウを開く()
ActiveWindow.NewWindoww
End Sub
--------------------------------------------------
Sub 開いているウィンドウ数取得()
Dim Wcnt As Long
Wcnt = ActiveWorkbook.Windows.Count

End Sub
-----------------------------------------------------
Sub ウィンドウ枠固定()
Range("A1").CurrentRegion.Select
ActiveCell.Offset(1,1).Select
ActiveWindow.FreezePanes = True
End Sub
------------------------------------------------------
Sub セルに値代入()
ActiveCell.Value = 233
End Sub
-------------------------------------------------------
Sub 数式を入力()
Range("A1").Fomula = "=C3" 'セルに式を入れるにはFomulaプロパティを使う。
Range("A2").FomulaR1C1 = "=R5C5"
Range("A3").FomulaR1C1 = "=SUM(A1:A9)"
End Sub
-------------------------------------------------------------------------------------
Sub 全セル選択()
Worksheets(Array("Sheet1","Sheet2","Sheet3")).Select '複数シート全部選択
Cells.Select
-------------------処理----------------------
Worksheets("Sheet1").Cell.Select '１枚のシート全部選択

End Sub
-----------------------------------------------------------------------------
Sub 行番号・列番号取得()
Dim row As Integer
Dim col As Integer

row = ActiveCell.Row
col = ActiveCell.col

End Sub
---------------------------------------
Sub セル・セル範囲取得()

Worksheets("Sheet1").Range("A1").Select
Woeksheets("Sheet1").Cells(1,1).Select
Worksheets("Sheet1").Range("A1:B5").Select
Woeksheets("Sheet1").Range(Cells(1,1),Cells(5,2)).Select
Woeksheets("Sheet1").Range("A1:B5","D7:H11").Select

End Sub
----------------------------------------------------------------------
Sub 行選択・列選択()
Rows("2:2").Select '２行全部選択
Columns("B:B").Select 'B列全部選択
Rows("2:9").Select '２行から９行全部選択
Columns("F:H").Select 'FからH列全部選択
Range("2:9,13:17,C:F,J:J").Select

Sub End
-----------------------------------------
Sub 行の挿入()
Range("C9").Select
Selection.EntireRow.Insert '１行の挿入

Range("3:5").Select '複数行の選択
Selection.EntireRow.Insert
End Sub
------------------------------------------------------
Sub 列の挿入()
Range("F:F").Select
Selection.Insert

Range("G5").Select
With Selection.EntireColum
.Insert
.Interior.ColorIndex = 6
End With
End Sub
------------------------------------------------------------
Sub 行・列の表示()

Range("5:5").Select
Selection.EntireRow.Hidden = True 'Falseで再表示

Range("F:F").Select
Selection.EntireColumn.Hidden = True
End Sub
-------------------------------------------------------------
Sub 列の最適化())
Columns("A1").AutoFit
Columns("A:G").AutoFit '列幅を変えて文字列に最適化
End Sub
-------------------------------------------------------------
Sub 全セル最適化()
Cells.Select
Selection.Columns.AutoFit
End Sub