簡単！！エクセルVBAメモ

以下コマンドについて記載してます。
　�@最終行の取得方法
　�Aセルの値クリア　※初期化関連
　�Bシートの追加
　�Cエラー処理
　�Dセルに色を塗る
　�E検索（FIND)
　


�@最終行の取得方法

　最終行取得１　※上からみて、最終行を取得
　cnt = Range("A1").End(xlDown).Row

　最終行取得２　※下からみて、最終行を取得　※2003以前も対応できるように、以下は6万行の位置から上へ見て取得
　cnt = Range("A65536").End(xlUp).Row

�Aセルの値クリア　※初期化関連

　(1)基本
　　Workbooks("ブック名").Worksheets("シート名").Range("セル範囲").Clear

　(2)全セルクリア（cells.selectは全選択）
　　Cells.Select
　　Selection.ClearContents

　(3)列クリア
　　Columns("A:D").Select
　　Selection.ClearContents

　(4)行クリア
　　Rows("1:19").Select
　　Selection.ClearContents

�Bシートの追加

　(1)ブックの追加
　　Workbooks.Add '現在選択しているシートの前に追加

　(2)シートの追加
　　Worksheets.Add '現在選択しているシートの前に追加
　　ActiveSheet.Name = "追加シート" '名前を変える

　(3)ブックの保存（上書き）
　　ActiveWorkbook.Save

　(4)ブックの保存（名前をつけて）
　　ActiveWorkbook.SaveAs Filename:="C:\Users\h_fukumura\Desktop\ローカル\test.xlsx"

�Cエラー処理

　
　エラー時の遷移先
　　On Error GoTo 【行ラベル】

　エラーでも継続する　
　　On Error Resume Next

　エラーでも継続するけど、エラーを判定する例（ファイルに開くのに成功したか？？）
　　On Error Resume Next '※エラーがある場合は次のファイルを開く
　　Workbooks.Open fullpath, ReadOnly:=True, UpdateLinks:=0
　　If Err.Number <> 0 Then
　　　GoTo 999 'ファイルオープンでエラー有り
　　End If

�Dセルに色を塗る

　色を塗る（コマンドで覚えるより、マクロの記録で、
　好きな色をセルに塗ってみるのが早くてよい(以下をコピーでもOK）


　(1)セルを選んで、赤
　　Range("F25").Select
　　With Selection.Interior
　　.Pattern = xlSolid
　　.PatternColorIndex = xlAutomatic
　　.Color = 255
　　.TintAndShade = 0
　　.PatternTintAndShade = 0
　　End With

　(2)セルを選んで、黄色
　　Range("F27").Select
　　With Selection.Interior
　　.Pattern = xlSolid
　　.PatternColorIndex = xlAutomatic
　　.Color = 65535
　　.TintAndShade = 0
　　.PatternTintAndShade = 0
　　End With

　(3)セルを選んで、水色っぽい色
　　Range("F29").Select
　　With Selection.Interior
　　.Pattern = xlSolid
　　.PatternColorIndex = xlAutomatic
　　.ThemeColor = xlThemeColorAccent5
　　.TintAndShade = 0.799981688894314
　　.PatternTintAndShade = 0
　　End With

�E検索（FIND)

　エクセル内を検索する　※以下はアクティブのシートに対して検索する。

　(1)A1から「検索ワード」を、アクティブのシートに対して実行
　　Set 検索結果 = Range("A1").CurrentRegion.Find(What:="検索ワードあああ")

　(2)取得できたか確認
　　If 検索結果 Is Nothing Then
　　　　MsgBox "検索に失敗しました"
　　Else
　(3)検索されたときのセル情報を取得（一応表示してみる）
　　　　wk = 検索結果.Address
　　　　MsgBox Range(wk)
　　End If