１．メソッド †

主なメソッド

２．プロパティー †

主なプロパティー

注１：標準スタイルは、ツールバーの[書式]－[スタイル]で表示されるダイアログボックスで、ブック単位で設定できます。[ツール]－[オプション]の[全般]パネルからはExcelのシステム単位でも設定できますが、この場合、変更を反映させるにはExcelの再起動が必要です。
注２：１ポイントは1/72インチ(1inch = 25.4mm)で約0.35ミリメートルです。
マシンやプリンターなどの環境によって変わりますが、96DPI(Windows標準)の場合、
96ピクセル=72ポイント
の関係なので、1ポイント=96÷72ピクセル=1.333..ピクセルです。

３．Column、Rowの指定方法 †

ColumnやRowを指定する場合、文字列で指定することもできますが、マクロを使用する場合数値で指定した方が便利です。特に列は文字の場合A,B,C...とアルファベットで指定するので、数値で扱うと便利です。

1. ) 複数Columnの指定方法
   以下のようにRangeをかませて使用します。

       Dim sht As Worksheet
   
       Set sht = ActiveSheet
       sht.Range(sht.Columns(1), sht.Columns(10)).?????
   

   注：?????の部分にはRangeのメソッドなどを記述します。(例:Interior.ColorIndex = 3)
2. ) 一列Columnの指定方法
   Columnsで直接指定します。

       Dim sht As Worksheet
   
       Set sht = ActiveSheet
       sht.Columns(15).?????
   

3. ) Rowの場合
   上記のColumnsの部分がRowsになります。

４．Rangeの指定方法 †

複数の範囲を指定する場合は、以下のようにUnionを使用します。パラメータにRangeをコンマで複数列挙します。

    Dim sht As Worksheet

    Set sht = ActiveSheet
    Union(sht.Range("A1:C5), sht.Range("A10:C12") ,sht.Range("E3:G7")).?????

Rangeを行と列の値で設定する場合は以下のようにCellsで範囲を設定します。

    Dim sht As Worksheet

    Set sht = ActiveSheet

    sht.Range(sht.Cells(1, 1), sht.Cells(10, 10)).?????

一つのCellをRangeとして指定する場合、説明は不要と思いますが、以下のようになります。

    Dim sht As Worksheet

    Set sht = ActiveSheet
    sht.Cells(11, 11).?????

５．最終行・列をもとめる(End) †

Sub example401(sht As Worksheet, rw As Long, cl As Integer)
    Dim workRange As Range

    Set workRange = sht.Cells(65536, cl)
    MsgBox workRange.End(xlUp).Row
    Set workRange = Nothing

    Set workRange = sht.Cells(rw, 256)
    MsgBox workRange.End(xlToLeft).Column
    Set workRange = Nothing

End Sub

６．データ数(Rowの行数)を求める †

CurrentRegionは現在のセルから空白に囲まれたデータのある範囲を返します。空白がある場合は範囲はそこまでです。そのため以下の例のCells(4,5)はデータがある範囲内である必要があります。

    Count = MsgBox Cells(4, 5).CurrentRegion.Rows.Count

７．内容のリセット †

ワークシート内のデータを空白にしたり、背景色を無しにリセットするなどよく使用する処理のサンプルです。他のクリアーについては上記のメソッドの中でClearで始まるメソッドを使用します。
ここで単にClear_Range.Clearとして全てをクリアーすることもできますが、意図しないものも（書式など）クリアーします。アプリケーションの内容に応じて、必要なものを使用してリセットしてください。

Public Sub Example()
    Dim sht          As Worksheet
    Dim Clear_Range  As Range

    Set sht = ActiveSheet
    Set Clear_Range = sht.Cells      '←シート全体をクリアーする場合
    '↓Rangeでクリアーする範囲を指定する場合
    Set Clear_Range = sht.Range(sht.Cells(1, 1), sht.Cells(10, 10))
    Clear_Range.ClearContents         '←データのクリアー
    Clear_Range.Interior.ColorIndex = xlNone      '←背景色のリセット
    '↓罫線のクリアー。使用した種類の罫線をクリアーしてください。
    Clear_Range.Borders(xlDiagonalDown).LineStyle = xlNone
    Clear_Range.Borders(xlDiagonalUp).LineStyle = xlNone
    Clear_Range.Borders(xlEdgeLeft).LineStyle = xlNone
    Clear_Range.Borders(xlEdgeTop).LineStyle = xlNone
    Clear_Range.Borders(xlEdgeBottom).LineStyle = xlNone
    Clear_Range.Borders(xlEdgeRight).LineStyle = xlNone
    Clear_Range.Borders(xlInsideVertical).LineStyle = xlNone
    Clear_Range.Borders(xlInsideHorizontal).LineStyle = xlNone

    Set Clear_Range = Nothing
End Sub

８．Group化(行・列) †

1. ) 行のグループ化と解除

   Public Sub row_Group(sht As Worksheet, startRow As Long, endRow As Long)
       
       sht.Rows(startRow & ":" & endRow).Rows.Group
   
   End Sub
   

   Public Sub row_Ungroup(sht As Worksheet, startRow As Long, endRow As Long)
       
       sht.Rows(startRow & ":" & endRow).Rows.Ungroup
   
   End Sub
   

2. ) 列のグループ化と解除

   Public Sub column_Group(sht As Worksheet, startCol As Integer, endCol As Integer)
   
       sht.Range(sht.Columns(startCol), sht.Columns(endCol)).Columns.Group
       
   End Sub
   

   Public Sub column_Ungroup(sht As Worksheet, startCol As Integer, endCol As Integer)
   
       sht.Range(sht.Columns(startCol), sht.Columns(endCol)).Columns.Ungroup
       
   End Sub
   

3. ) グループの表示
   Outline オブジェクトの ShowLevels メソッドでクループ化された行と列の各レベルを表示します。1番目のパラメータが行で2番目のパラメータが列です。指定しない場合は、ブランク（省略）または0を指定します。レベルの最大値は8のようで、8以上の値を指定するとエラーとなります。しかし、レベルが3までしかなくてもレベル8を指定してもエラーになりません。従って全てを閉じる場合は1を、全てを開く場合は8を指定すればいいことになります。

       Dim sht As Worksheet
           :
       sht.Outline.ShowLevels RowLevel, ColumnLevel
       sht.Outline.ShowLevels RowLevel                 '←行のみを指定する場合
       sht.Outline.ShowLevels , ColumnLevel            '←列のみを指定する場合
   

９．AutoFit †

開始列と終了列間の列幅を自動調整します。

Sub Column_AutoFit(sht As Worksheet, startCol As Integer, endCol As Integer)

    sht.Range(sht.Columns(startCol), sht.Columns(endCol)).Columns.EntireColumn.AutoFit

End Sub

１０．入力値の自動大文字変換 †

次の関数は入力値を大文字に変換すると同時に変換後の値を戻します。変換後の値を戻り値として使用しない場合は、最後の処理は不要です。

Function To_Upper(cel As Range) As String
    cel.Value = UCase(cel.Value)
    To_Upper = cel.Value    
End Function