すぐに役立つエクセルVBAマクロ集 - Macro セル制御・基本型

　　すぐに役立つエクセルVBAマクロ集 - すぐマク

Excel VBA Macro
Macro

500連発・組み方講座フォロー

Big Color Pallet

[広告]

Excel VBA Macro

Excel DownLoad

Sample Macro　　セル制御 [基本型]

セル制御 [基本型]

1)　数字、空白、数式？
2)　エラー値か？
3)　色の指定
4)　配置の書式設定
5)　フォントの書式設定
6)　罫線の設定・消去
7)　セルの情報を調べる
8)　セルのロック状況を取得する
9)　セルの書式の表示形式を設定する
10) 文字の制御(折り返し・縮小・セル内改行・セル結合)
11) 条件を満たすセルの操作
12) セルの書式設定ダイアログボックス
13) 参照元・参照先をトレースする
14) 選択されているオブジェクトの種類を取得する/A>
15) セル移動方向を変える
16) 入力範囲を設定する
17) IMEの状態を調べる
18) IMEを起動する
19) コメントの設定・変更・削除
20) セルの挿入・削除

1) 数字、空白、数式、コメント？

'=========================================================================================
Sub セルの内容が数字か調べる()
    Range("A1").Select                          'A1には調べたいセルを記入
    If Not IsNumeric(ActiveCell.Value) Then
        MsgBox "数字ではない"
    ElseIf IsNumeric(ActiveCell.Value) Then
        MsgBox "数字またはヌルです"
    End If
End Sub
'-----------------------------------------------------------------------------------------
Sub セルの内容が空白か調べる()
    行 = 1                                      '調査対象セルの行番号
    列 = 1                                      '　　　〃　　　列番号
    If Cells(行, 列) = "" Then                  '調査対象セルがNull文字列なら ※１
        MsgBox 行 & "行" & 列 & "列セルは、空白（Null文字列）です"
    ElseIf Cells(行, 列) = " " Then             '調査対象セルが半角スペースなら
        MsgBox 行 & "行" & 列 & "列セルは、空白（半角スペース）です"
    ElseIf Cells(行, 列) = "　" Then            '調査対象セルが全角スペースなら
        MsgBox 行 & "行" & 列 & "列セルは、空白（全角スペース）です"
    End If
End Sub
'-----------------------------------------------------------------------------------------
Sub セルの内容が数式か調べる()
    If Range("A3").HasFormula = True Then       'A3には調べたいセルを記入
        MsgBox "数式セルです"
    End If
End Sub
'=========================================================================================

＜コメント＞
※１ ""は、Null文字列または長さが0の文字列と呼ばれ、セルを選択して[Delete]キーを押した場合

2) エラー値か？

'=========================================================================================
Sub セルのエラー値を調べる()                     '※１
    Range("A1").Select                          'A1には調べたいセルを記入
    If IsError(ActiveCell.Value) Then
        errval = ActiveCell.Value
        Select Case errval
            Case CVErr(xlErrDiv0)
                MsgBox "#DIV/0! エラー"
            Case CVErr(xlErrNA)
                MsgBox "#N/A エラー"
            Case CVErr(xlErrName)
                MsgBox "#NAME? エラー"
            Case CVErr(xlErrNull)
                MsgBox "#NULL! エラー"
            Case CVErr(xlErrNum)
                MsgBox "#NUM! エラー"
            Case CVErr(xlErrRef)
                MsgBox "#REF! エラー"
            Case CVErr(xlErrValue)
                MsgBox "#VALUE! エラー"
            Case Else
                MsgBox "ありえないケースです!!"
        End Select
    End If
End Sub
'=========================================================================================

＜コメント＞
※１ Excelのヘルプより転載

3) 色の指定

'=========================================================================================
Sub 色を指定する()
    Workbooks("BBB.xls").Worksheets("SSS").Activate 'BBBはブック名、SSSはシート名
    ActiveWindow.GridlineColor = RGB(0, 255, 0) '※２ アクティブウィンドウの枠線を緑色に
    Range("A1:A2").Font.Color = RGB(255, 0, 0)  '※１,２ フォントの色を赤にする
    Range("A3:A4").Font.ColorIndex = 5          '※１ フォントの色を青にする
    Range("A5:A6").Select                       '※１
        With Selection.Interior                 '塗りつぶし色
            .ColorIndex = 8                     '青緑
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
        End With
End Sub
'-----------------------------------------------------------------------------------------
Sub カラーパレットダイアログボックスを表示する()
    Application.Dialogs(xlDialogColorPalette).Show '[オプション]の[色]
End Sub
'-----------------------------------------------------------------------------------------
Sub 塗りつぶしの色コマンドバーを開く()
    Application.CommandBars("Fill Color").Visible = True
End Sub
'-----------------------------------------------------------------------------------------
Sub 塗りつぶしの色コマンドバーを指定位置に開く()
    上端距離 = 300                              '※３
    左端距離 = 150                              '※４
    With Application.CommandBars("Fill Color")
        .Visible = True
        .Top = 上端距離
        .Left = 左端距離
    End With
End Sub
'-----------------------------------------------------------------------------------------
Sub パターンダイアログボックスを表示する()
    Application.Dialogs(xlDialogPatterns).Show
End Sub
'-----------------------------------------------------------------------------------------
Sub パターンコマンドバーを開く()                '※５
    Application.CommandBars("Pattern").Visible = True
End Sub
'-----------------------------------------------------------------------------------------
Sub フォントの色コマンドバーを開く()            '※５
    Application.CommandBars("Font Color").Visible = True
End Sub
'=========================================================================================

＜コメント＞
※１ A1:A2 A3:A4 A5:A6 B1には範囲を記入
※２ RGB関数の構文は RGB(red, green, blue)。引数の値は下表参照

色	red	green	blue
白	255	255	255
黄色	255	255	0
シアン	0	255	255
緑	0	255	0
マゼンタ	255	0	255
赤	255	0	0
青	0	0	255
黒	0	0	0

※３コマンドバーの上端から画面の上端までの距離 (ポイント単位)
※４　　　　〃　　　左端　　　〃　　左端　　　〃　　　(　　　〃　　　 )
※５表示位置を指定するコードは塗りつぶしの色コマンドバーと同じ
※６各コマンドバーとダイアログのサンプルはこちら

4) 配置の書式設定

'=========================================================================================
Sub 配置の書式設定()
    セル範囲 = "A2:A10"                         '※１
    With Range(セル範囲)
        .HorizontalAlignment = xlGeneral        '配置（横位置）を標準に
        .VerticalAlignment = xlCenter           '配置（縦位置）を中央揃えに
        .WrapText = False                       '文字の制御
        .Orientation = 0                        '文字列の向き
        .AddIndent = False                      'インデント
        .IndentLevel = 0                        'インデントのレベル
        .ShrinkToFit = False                    '文字列の縮小
        .ReadingOrder = xlContext               '文字の方向（読む順序）
        .MergeCells = False                     'セル結合
    End With
End Sub
'=========================================================================================

＜コメント＞
※１ A2:A10にはセル範囲を記入

5) フォントの書式設定

'=========================================================================================
Sub セルのフォントのスタイルを設定する()
    Range("A1:A2").Font.Bold = True             '太字にする(アクティブシートの指定セル)※1
    Sheets("SSS").Range("B1").Font.Bold = False '太字にしない(指定シートの指定セル) ※1,2
    Sheets("SSS").Cells.Font.Italic = True      '斜体にする(指定シートのすべてのセル) ※2
End Sub
'-----------------------------------------------------------------------------------------
Sub セルの文字の一部のフォントの書式を設定する()
    With ActiveCell.Characters(4, 3).Font       '※３、※４
        .Name = "ＭＳ ゴシック"                 'フォント名
        .FontStyle = "太字 斜体"                'スタイル
        .Size = 11                              'サイズ
        .Strikethrough = False                  '取消線     True:する  False:しない
        .Superscript = False                    '上付き文字 True:する  False:しない
        .Subscript = False                      '下付き文字 True:する  False:しない
        .Underline = xlUnderlineStyleNone       '下線の種類 ※５
        .ColorIndex = xlColorIndexAutomatic   '輪郭線,フォント,罫線,内部の塗りつぶし等の色
    End With
End Sub
'-----------------------------------------------------------------------------------------
Sub セルのフォントに下線を設定する()
    セル = "A1"
    Range(セル).Font.Underline = xlUnderlineStyleSingle '※５
End Sub
'-----------------------------------------------------------------------------------------
Sub セルのフォントの下線を削除する()
    セル = "A1"
    Range(セル).Font.Underline = xlUnderlineStyleNone   '※５
End Sub
'-----------------------------------------------------------------------------------------
Sub 下線付き文字数を取得する()
    セル = "A1"
    下線付き文字数 = 0
    With Range(セル)
        For I = 1 To Len(.Text)
            If .Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then '※５
                下線付き文字数 = 下線付き文字数 + 1
            End If
        Next
    End With
End Sub
'=========================================================================================

＜コメント＞
※１ A1:A2 A3:A4 A5:A6 B1には範囲を記入
※２ SSSにはシート名を記入
※３アクティブセルの文字列の4番目から3文字のフォント（4、3は適当に指定）
※４この行の下の10行は必要なものだけ記入
※５ Underlineプロパティの定数はこちら

5-2) フォントの書式設定（Mac専用）

'=========================================================================================
Sub 文字の書式設定()
    With ActiveCell.Characters(Start:=4, Length:=3).Font '※１
        .OutlineFont = False                 'アウトラインフォント True:する  False:しない
        .Shadow = False                      '影付きフォント xlNone:下線なし
    End With
End Sub
'=========================================================================================

＜コメント＞
※１この行の下の2行は必要なものだけ記入

6-1) 罫線の設定

'=========================================================================================
Sub 罫線の設定()
    左 = 1                                      '罫線設定範囲の左端
    上 = 1                                      '上端
    右 = 3                                      '右端
    下 = 3                                      '下端
    Sheets("SSS").Select                        '※１
        Range(Cells(上, 左), Cells(下, 右)).BorderAround _
            LineStyle:=xlContinuous                                     '外枠:連続線
        Range(Cells(上, 左), Cells(下, 右)).BorderAround _
            Weight:=xlThick                                             '外枠:太線
        Range(Cells(上, 左), Cells(上, 右)).Borders(xlEdgeBottom) _
            .LineStyle = xlContinuous                                   '下線:連続線
        Range(Cells(上, 左), Cells(上, 右)).Borders(xlEdgeBottom) _
            .Weight = xlMedium                                          '下線:中太線
        Range(Cells(下, 左), Cells(下, 右)).Borders(xlEdgeTop) _
            .LineStyle = xlContinuous                                   '上線:連続線
        Range(Cells(下, 左), Cells(下, 右)).Borders(xlEdgeTop) _
            .Weight = xlHairline                                        '上線:極細
        Range(Cells(上, 左 + 1), Cells(下, 左 + 1)).Borders(xlEdgeLeft) _
            .LineStyle = xlContinuous                                   '左側線:連続線
        Range(Cells(上, 左 + 1), Cells(下, 左 + 1)).Borders(xlEdgeLeft) _
            .Weight = xlMedium                                          '左側線:中太線
        Range(Cells(上, 左 + 1), Cells(下, 左 + 1)).Borders(xlEdgeRight) _
            .LineStyle = xlContinuous                                   '右側線:連続線
        Range(Cells(上, 左 + 1), Cells(下, 左 + 1)).Borders(xlEdgeRight) _
            .Weight = xlThin                                            '右側線:細線
End Sub
'-----------------------------------------------------------------------------------------
Sub 罫線を表形式に設定する()
    左上 = "B2"                                 '表の左上セル
    右下 = "D5"                                 ' 〃 右下 〃
    Worksheets("SSS").Activate                  '※１
    With Range(左上 & ":" & 右下)
        With .Borders(xlInsideHorizontal)       '内側水平線
            .LineStyle = xlContinuous
            .Weight = xlHairline
        End With
        With .Borders(xlInsideVertical)         '内側垂直線
            .LineStyle = xlContinuous
            .Weight = xlHairline
        End With
        With .Borders(xlDiagonalUp)             '斜線(右肩上り)
            .LineStyle = xlContinuous
            .Weight = xlHairline
        End With
        With .Borders(xlDiagonalDown)           '射線(右肩下り)
            .LineStyle = xlContinuous
            .Weight = xlHairline
        End With
        .BorderAround LineStyle:=xlContinuous, Weight:=xlThick  '外枠
    End With
End Sub
'-----------------------------------------------------------------------------------------
Sub アクティブシートの使われたセル範囲に縦横罫線を設定する()
    ActiveSheet.UsedRange.Borders.LineStyle = xlContinuous
End Sub
'-----------------------------------------------------------------------------------------
Sub 指定ワークシートの使われたセル範囲に縦横罫線を設定する()
    Worksheets("SSS").UsedRange.Borders.LineStyle = xlContinuous  '※１、３
End Sub
'=========================================================================================

＜コメント＞
※１ SSSにはシート名を記入
※２ LineStyleプロパテイと Weidhtプロパティの定数はこちら
※３アクティブでないワークシートでも指定可能

6-2) 罫線の消去

'=========================================================================================
Sub 罫線の消去()
    左 = 1                                      '罫線消去範囲の左端
    上 = 1                                      '上端
    右 = 3                                      '右端
    下 = 5                                      '下端
    Sheets("SSS").Select                        '※１
        Range(Cells(上, 左), Cells(下, 右)).Select '消去する範囲を選択
        Selection.Borders(xlLeft).LineStyle = xlNone    '左側
        Selection.Borders(xlRight).LineStyle = xlNone   '右側
        Selection.Borders(xlTop).LineStyle = xlNone     '上側
        Selection.Borders(xlBottom).LineStyle = xlNone  '下側
        Selection.BorderAround LineStyle:=xlNone        '枠線
End Sub
'=========================================================================================

＜コメント＞
※１SSSにはシート名を記入

7) セルの情報を調べる

'=========================================================================================
Public Function セルの情報_幅()
    Range("C3").Formula = "=CELL(""width"",C9)" 'CELL関数をセルにセット ※１、２、３、４
    セルの情報_幅 = Range("C3").Value           'セルの情報を取り出す ※２
End Function
'-----------------------------------------------------------------------------------------
Public Function セルの情報_パス()
    Range("C3").Formula = "=CELL(""filename"",B17)" '※１、２、３、４
    セルの情報_パス = Range("C3").Value             '※２
End Function
'=========================================================================================

＜コメント＞
※１ Visual Basicから呼び出せないワークシート関数は、セルにセットして使います
※２ C3には関数をセットするセル名を記入
※３ C9、B17には対象範囲を記入
※４ "release" には検査の種類を記入、くわしくはこちら

サンプルブックのダウンロードはここをクリック　（YNxv205_cell.xls　114KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。

8) セルのロック状況を取得する

'=========================================================================================
Sub セルのロック状況を取得する()
    セル = "A1"                                     '※１
    If Range(セル).Locked Then                      '※２
        MsgBox "ロックに設定されています。"
    Else
        MsgBox "ロック設定されていません。"
    End If
End Sub
'=========================================================================================

＜コメント＞
※１ A1には対象セルを記入
※２ [セルの書式・保護]の[ロック]がチェックされていれば
※３シートが保護されている場合にロックが有効になる

9) セルの書式の表示形式を設定する

'=========================================================================================
Private Sub 前ゼロを付けて6桁に揃える_行指定()
    Worksheets("SSS").Rows(20).NumberFormat = "000000"          '※１、２、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 前ゼロを付けて5桁に揃える_範囲指定()
    Worksheets("SSS").Range("A2:J2").NumberFormat = "00000"     '※１、２、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub カンマを入れてゼロサプレスする_範囲指定()
    Worksheets("SSS").Range("A20:E20").NumberFormat = "###,##0" '※１、２、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 小数点を入れてゼロサプレスする_列指定()
    Worksheets("SSS").Columns("J").NumberFormat = "##,###.#0"   '※１、２、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 負の数を色で表す書式にする_範囲指定()
    Worksheets("SSS").Range("A2:A20").NumberFormatLocal = "#,##0;[赤]#,##0" '※１、２、４
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 文字列にする_列指定()
    Worksheets("SSS").Columns("A:B").NumberFormat = "@"         '※１、２、３
End Sub
'=========================================================================================

＜コメント＞
※１ "SSS"には、ワークシートの名前を記入する
※２ Rows( )、Range(　)、Columns(　)などで範囲を指定する
※３ "000000"、"###,##0"、"@" などには書式を記入
※４書式中の ;[赤] で指定する色は変更可能、Macintoshでは英字で記述

サンプルブックのダウンロードはここをクリック　（YNxv205_NumberFormat.xls　40KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。

10) 文字の制御(折り返し・縮小・セル内改行・セル結合)

'=========================================================================================
Private Sub アクティブシートの文字列を列幅で折り返す()
    Worksheets("SSS").Activate                          '※１
    Range("A1:B1").WrapText = True                      '※２、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub ほかのシートの文字列を列幅で折り返す()
    Worksheets("SSS").Range("A1:B1").WrapText = True    '※１、２
End Sub
'=========================================================================================
Private Sub 文字を縮小して全体を表示する()
    Worksheets("SSS").Activate                          '※１
    Range("A1:B1").ShrinkToFit = True                   '※２、４
End Sub
'=========================================================================================
Private Sub 文字列をセル内で改行する()
    Range("A1").Value = "1行目" & vbLf & "2行目"
End Sub
'=========================================================================================
Private Sub セルを結合する()
    Worksheets("SSS").Activate                          '※１
    Range("C1:D2").MergeCells = True                    '※２、４
End Sub
'=========================================================================================

＜コメント＞
※１ "SSS"には、ワークシートの名前を記入する
※２ A1:B2、C1:D2にはセル範囲を記入
※３事前に行の高さを変更したことがなければ、必要に応じて自動的に調節される
※４ True：設定、False：解除

11) 条件を満たすセルの操作

'=========================================================================================
Private Sub 条件を満たすセルを選択する_数式が含まれているセル()
    Worksheets("SSS").Activate                          '※１
    Cells.SpecialCells(xlCellTypeFormulas).Activate     '※２、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 条件を満たすセルに着色する_数式が含まれているセル()
    Worksheets("SSS").Activate                          '※１
    Cells.SpecialCells(xlCellTypeFormulas).Interior.Color = RGB(255, 255, 0) '※２、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 条件を満たすセルの文字に着色する_数式が含まれているセル()
    Worksheets("SSS").Activate                          '※１
    Cells.SpecialCells(xlCellTypeFormulas).Font.Color = RGB(255, 0, 0) '※２、３
End Sub
'=========================================================================================

＜コメント＞
※１ "SSS"には、ワークシートの名前を記入する
※２ SpecialCellsメソッドの構文は SpecialCells(Type,Value) で引数 Value は省略可能
※３ SpecialCellsメソッドの引数の定数はこちら

12) セルの書式設定ダイアログボックス

'=========================================================================================
Sub セルの書式設定ダイアログボックスを表示する()
    Worksheets("SSS").Activate                  '※１ ワークシートをアクティブにする
        Range("A1").Select                      '※２ セル範囲を選択する
    ActiveSheet.Unprotect                       '※３ シート保護を解除する
        Application.Dialogs(xlDialogFormatNumber).Show  '表示形式
        Application.Dialogs(xlDialogAlignment).Show     '配置
        Application.Dialogs(xlDialogFontProperties).Show 'フォント
        Application.Dialogs(xlDialogBorder).Show        '罫線
        Application.Dialogs(xlDialogPatterns).Show      'パターン
        Application.Dialogs(xlDialogCellProtection).Show '保護
    ActiveSheet.Protect                         'シートを保護する
End Sub
'-----------------------------------------------------------------------------------------
Sub フォントの設定ダイアログボックスを表示する()
    ActiveSheet.Unprotect                       'シート保護を解除する
        Application.Dialogs(xlDialogFormatFont).Show
    ActiveSheet.Protect                         'シートを保護する
End Sub
'=========================================================================================

＜コメント＞
※１ "SSS"にはシート名を記入
※２ "A1"には書式設定したいセル範囲を記入
※３セルの書式設定はシートが保護されているとできない
※４下表の項目をクリックするとサンプルが見れます（見終ったら×ボタンで閉じる）

表示形式	配置	フォント	罫線
パターン	保護	フォント2	.

13) 参照元・参照先をトレースする

'=========================================================================================
Sub 参照元をトレースする()
    Range("C3").ShowPrecedents                  '※２
End Sub
'-----------------------------------------------------------------------------------------
Sub 参照先をトレースする()
    Range("A1").ShowDependents                  '※３
End Sub
'-----------------------------------------------------------------------------------------
Sub トレース矢印を削除する()
    Range("C3").ShowPrecedents Remove:=True     '参照元トレース矢印を削除
    Range("A1").ShowDependents Remove:=True     '参照先トレース矢印を削除
    ActiveSheet.ClearArrows                     'すてのトレース矢印を削除
End Sub
'-----------------------------------------------------------------------------------------
Sub ワークシート分析ツールバーを表示する()
    Application.CommandBars("Formula Auditing").Visible = True '※４
End Sub
'=========================================================================================

＜コメント＞
※１参照元をトレース　　　　　　　　　参照先をトレース

※２ "C3" には数式セルを指定する
※３ "A1" には数式から参照されている（調べたい）セルを指定する
※４ True：表示、False：非表示（Excel2002に限る）
　　　

14) 選択されているオブジェクトの種類を取得する

'-----------------------------------------------------------------------------------------
Sub 選択されているオブジェクトの種類を取得する()
    MsgBox TypeName(Selection)
End Sub
'-----------------------------------------------------------------------------------------

＜コメント＞
※１ワークシートに存在するオブジェクトを選択してから実行する
　　　(例)　セル：文字列で Range
　　　　　　オートシェイプの楕円：文字列で Oval

15) セル移動方向を変える

'=========================================================================================
Sub 入力後セルを移動する方向を変える()
    Application.MoveAfterReturnDirection = xlUp '上
    Application.MoveAfterReturnDirection = xlDown '下
    Application.MoveAfterReturnDirection = xlToLeft '左
    Application.MoveAfterReturnDirection = xlToRight '右
End Sub
'=========================================================================================

16) 入力範囲を設定する

'=========================================================================================
Private Sub 入力範囲を設定する()
    Worksheets("SSS").ScrollArea = "A2:D2"      'スクロール可能領域を設定する ※１、２
    Worksheets("SSS").EnableSelection = xlUnlockedCells '非ロックセルだけ選択可能 ※１、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub すべてのセルの選択を禁止する()
    Worksheets("SSS").EnableSelection = xlNoSelection '※１
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 入力範囲の設定を解除する()
    Worksheets("SSS").ScrollArea = ""           'スクロール可能領域を設定しない ※１
    Worksheets("SSS").EnableSelection = xlNoRestrictions 'どのセルも選択可能にする ※１
End Sub
'=========================================================================================

＜コメント＞
※１ SSSにはシート名を記入
※２ "A2:D2"には設定したいセル範囲を記入
※３ワークシートを保護しているときにだけ使用できる

17) IMEの状態を調べる

'=========================================================================================
Sub IMEの現在の状態を調べて知らせる()
    状態 = IMEStatus()
    MsgBox 状態 & "です", vbInformation, "ＩＭＥの現在の状態"
End Sub
'=========================================================================================

＜コメント＞
※１ IMEStatus関数の戻り値

値	内容	値	内容	値	内容
0	Windowsの管理に任される	3	利用禁止状態	6	半角カタカナ入力モード
1	オンの状態	4	全角ひらがな入力モード	7	全角英数入力モード
2	オフの状態	5	全角カタカナ入力モード	8	半角英数入力モード

※２ IME(Input Method Editor)とは、アジア言語のテキストを入力するためのプログラム

18) IMEを起動する

'=========================================================================================
Private Sub IMEをひらがなに設定する()
    Range("A1").Validation.IMEMode = xlIMEModeHiragana '※1
End Sub
'-----------------------------------------------------------------------------------------
Private Sub IMEをオフに設定する()
    Range("A1").Validation.IMEMode = xlIMEModeOff '※1
End Sub
'=========================================================================================

＜コメント＞
※１ "A1"には設定したいセル範囲を記入
※２ IMEMode プロパティ

定数	内容	定数	内容
xlIMEModeAlpha	半角英数字	xlIMEModeAlphaFull	全角英数字
xlIMEModeDisable	無効	xlIMEModeHiragana	ひらがな
xlIMEModeKatakana	カタカナ	xlIMEModeKatakanaHalf	カタカナ (半角)
xlIMEModeNoControl	コントロールなし	xlIMEModeOff	オフ (英語モード)
xlIMEModeOn	オン

19) コメントの設定・変更・削除

'=========================================================================================
Sub セルにコメントが設定されているか調べる()
    If Range("A3").Comment Is Nothing Then      '※１
        MsgBox "コメントは設定されていません"
    Else
        MsgBox "コメントが設定されています"
    End If
End Sub
'-----------------------------------------------------------------------------------------
Sub セルにコメントを設定する()
    If Range("A3").Comment Is Nothing Then      '※１
        Range("A3").AddComment.Text "新しいコメント"
    Else
        MsgBox "すでに設定されているのでできません"
    End If
End Sub
'-----------------------------------------------------------------------------------------
Sub セルのコメントを変更する()
    Range("A3").Comment.Text "変更後のコメント" '※１
End Sub
'-----------------------------------------------------------------------------------------
Sub セルのコメントを強制的に表示にする()
    Range("A3").Comment.Visible = True          '※１
End Sub
'-----------------------------------------------------------------------------------------
Sub 表示中のセルのコメントを非表示にする()
    Range("A3").Comment.Visible = False         '※１、※２
End Sub
'-----------------------------------------------------------------------------------------
Sub 表示中のセルのコメントを非表示にする_2()
    ActiveSheet.Comments(1).Visible = False     '※１、※２
End Sub
'-----------------------------------------------------------------------------------------
Sub ワークシートのすべてのコメントを非表示にする()
    For Each 各コメント In ActiveSheet.Comments
        各コメント.Visible = False              '※１、※２
    Next
End Sub
'-----------------------------------------------------------------------------------------
Sub セルのコメントを削除する()
    Range("A3").ClearComments                   '※１
End Sub
'=========================================================================================

＜コメント＞
※１ A3には調べたいセルを記入
※２ False : 非表示、True : 表示

20) セルの挿入・削除

'=========================================================================================
Sub セルを挿入する()
    基準セル = "B3"                             '※１
    Range(基準セル).Insert Shift:=xlShiftDown   '※２
End Sub
'-----------------------------------------------------------------------------------------
Sub セルを削除する()
    基準セル = "B3"                             '※１
    Range(基準セル).Delete Shift:=xlShiftUp     '※２
End Sub
'=========================================================================================

＜コメント＞
※１挿入または削除するセル番号を記入
※２ xlShiftDown：下方向、xlShiftToRight：右方向 (セル挿入後に他のセルをシフトする方向)
※３ xlShiftUp：上方向、xlShiftToLeft：左方向 (セル削除後に他のセルをシフトする方向)