'=========================================================================================
Sub 先頭末尾のスペースを削除する()
    Sheets("SSS").Select
    Range("E1") = "  123  Ab 愛  "              '初期値のサンプル
    Range("E2") = LTrim(Range("E1"))            '先頭のスペース削除
    Range("E3") = RTrim(Range("E1"))            '末尾のスペース削除
    Range("E4") = Trim(Range("E1"))             '先頭末尾のスペース削除
End Sub
'-----------------------------------------------------------------------------------------
Sub 選択されたセルのスペースをすべて削除する()
    Sheets("SSS").Select
    Range("G1") = "1 2 3 A b 愛"                '初期値のサンプル
    Cells.Replace what:=" ", replacement:=""    'スペースを削除する
End Sub
'-----------------------------------------------------------------------------------------
Sub すべてのセルの先頭と末尾のスペースを削除する()
    For Each セル In ActiveSheet.UsedRange      '現在シートの使われたセル範囲の各セルの
        セル.Value = Trim(セル.Value)           '先頭と末尾の両方のスペースを削除する
    Next                                        '繰り返す
End Sub
'=========================================================================================

'=========================================================================================
Sub スペースを末尾に付けて文字数を揃える()
    上端行 = 2                                  '元データが入っている上端行 ※１
    元データ列 = 1                              '元データが入っている列名 ※２
    答データ列 = 2                              '答データを格納する列名 ※３
    仕上文字数 = 10                             '答を仕上げる文字数 ※４
    下端行 = Range(Cells(65536, 元データ列), Cells(65536, 元データ列)).End(xlUp).Row '※５
    For 行 = 上端行 To 下端行
        長さ = 仕上文字数 - Len(Cells(行, 元データ列))
        Cells(行, 答データ列) = Cells(行, 元データ列) & Space(長さ)
        Cells(行, 答データ列 + 1) = Cells(行, 元データ列) & Space(長さ) & "." '※６
    Next
End Sub
'=========================================================================================

'=========================================================================================
Sub 文字列の文字数を取得する()
    Range("A1") = "永井善王": Range("A2") = "1234": Range("A3") = "3行" 'テストデータ
    MsgBox "A1セルの文字数は " & Len(Range("A1").Value)
    MsgBox "A2セルは " & Len(Range("A2").Value)
    MsgBox "A3セルは " & Len(Range("A3").Value)
End Sub
'-----------------------------------------------------------------------------------------
Sub 文字列の半角換算文字数を取得する()
    Range("A1") = "永井善王": Range("A2") = "1234": Range("A3") = "3行" 'テストデータ
    MsgBox "A1セルの半角換算文字数は " & LenB(StrConv(Range("A1").Value, vbFromUnicode))
    MsgBox "A2セルは " & LenB(StrConv(Range("A2").Value, vbFromUnicode))
    MsgBox "A3セルは " & LenB(StrConv(Range("A3").Value, vbFromUnicode))
End Sub
'-----------------------------------------------------------------------------------------
Sub 文字列のバイト数を取得する()
    Range("A1") = "永井善王": Range("A2") = "1234": Range("A3") = "3行" 'テストデータ
    MsgBox "A1セルのバイト数は " & LenB(Range("A1").Value)
    MsgBox "A2セルは " & LenB(Range("A2").Value)
    MsgBox "A3セルは " & LenB(Range("A3").Value)
End Sub
'=========================================================================================

'=========================================================================================
Sub スラッシュを除去する()
    Worksheets("SSS").Activate                          '※１
    Range("A2:A30").Select                              '※２
    Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False         '※３ 置換する
End Sub
'=========================================================================================

'=========================================================================================
Sub 改行を除去する()
    Worksheets("SSS").Activate                          '※１
    Range("A2:A30").Select                              '※２
    Selection.Replace What:=vbLF, Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False         '※３ 置換する
End Sub
'=========================================================================================

'=========================================================================================
Option Explicit
Dim 入力値 As String                            'InputBoxで入力された値
Dim 初期値 As String                            'InputBoxへ表示する初期値
Dim 水平位置 As Integer                         'InputBoxを表示する水平方向の距離
Dim 垂直位置 As Integer                         'InputBoxを表示する垂直方向の距離
Dim タイプ As Variant                           'InputBoxメソッドで返されるデータの型
Dim セル範囲 As Range                           'InputBoxメソッドで入力されたセル範囲
Dim タイトル As String                          'InputBoxとMessageBoxへ表示するタイトル
Dim メッセージ As String                    'InputBoxまたはMessageBoxへ表示するメッセージ
'-----------------------------------------------------------------------------------------
Sub インプットボックスで入力する()                  'InputBox関数にて
    入力値 = InputBox(メッセージ, タイトル)         '※1
    If 入力値 = "" Then                             '※8
        MsgBox "[キャンセル] または [×]ボタンがクリックされました。", , "すぐマク"
    End If
End Sub
'=========================================================================================
Sub インプットボックスへ初期値を表示する()          'InputBox関数にて
    入力値 = InputBox(メッセージ, タイトル, 初期値) '※1、2
End Sub
'=========================================================================================
Sub インプットボックスの表示位置を設定する()        'InputBox関数にて
    入力値 = InputBox(メッセージ, タイトル, , 水平位置, 垂直位置) '※1、2、3、4
End Sub
'-----------------------------------------------------------------------------------------
Sub インプットボックスの表示位置を設定する_2()      'InputBox関数にて
    入力値 = InputBox(Prompt:="お客様名を入力してください。", _
        Title:="新規作成", XPos:=4500, YPos:=4000)
    If 入力値 = "" Then MsgBox "キャンセルされました。", , "すぐマク"
End Sub
'=========================================================================================
Sub インプットボックスで文字列を入力する()          'InputBoxメソッドにて
    入力値 = Application.InputBox("入力してください")
    If VarType(入力値) = vbString Then              '※5
        MsgBox "入力された文字列 … " & 入力値, , "すぐマク"
    Else
        MsgBox "[キャンセル]または[×]がクリックされました。", , "すぐマク"
    End If
End Sub
'-----------------------------------------------------------------------------------------
Sub IMEがオンでなければオンにしてからInputBoxを表示する() 'InputBoxメソッドにて
    If IMEStatus = vbIMEModeOff Then
        SendKeys "{kanji}"                          '※9 [全角/半角]キー
        入力値 = InputBox("日本語入力です。")
        SendKeys "{kanji}"
    Else
        入力値 = InputBox("日本語入力です。")
    End If
End Sub
'-----------------------------------------------------------------------------------------
Sub IMEをオンにしてInputBoxを表示する()             'InputBoxメソッドにて
    Application.ScreenUpdating = False
    With Worksheets.Add                             '(仮の)ワークシートを挿入
        ActiveCell.Validation.Add Type:=xlValidateInputOnly '入力規則を追加
        ActiveCell.Validation.IMEMode = xlIMEModeOn '入力規則のIMEモードを[ひらがな]に
        入力値 = InputBox("日本語入力です。")
        Application.DisplayAlerts = False
        .Delete                                     '(仮の)ワークシートを削除
        Application.DisplayAlerts = True
    End With
    Application.ScreenUpdating = True
End Sub
'-----------------------------------------------------------------------------------------
Sub インプットボックスでセル範囲を入力する()        'InputBoxメソッドにて
    タイプ = 8                                      'セル参照（Rangeオブジェクト）
    Set セル範囲 = Application.InputBox(prompt:=メッセージ, Title:=タイトル, Type:=タイプ)
                                                                                '※6、7
End Sub
'=========================================================================================

'=========================================================================================
Sub データフォームを表示する()
    ActiveSheet.ShowDataForm
End Sub
'=========================================================================================

'=========================================================================================
Private Sub PHONETICでふりがなの文字列を取り出す()
Dim ふりがな As String
Dim 取出元範囲 As Range                          '※１
Dim 行 As Long
Dim 列 As Integer
'
    列 = 4                                      '※２
    行 = 1                                      '※３
    Set 取出元範囲 = Range(Cells(行, 列), Cells(行, 列))
    ふりがな = Application.WorksheetFunction.Phonetic(取出元範囲)
    Range(Cells(行, 5), Cells(行, 5)).Value = ふりがな
End Sub
'-----------------------------------------------------------------------------------------
Sub ふりがなを作成する()                        'SetPhoneticメソッドを利用する方法
    Range("G9").SetPhonetic
End Sub
'-----------------------------------------------------------------------------------------
Sub ふりがなを表示する()                        'Phoneticsプロパティを利用する方法
    Range("G9").Phonetics.Visible = True        '※４、５
End Sub
'-----------------------------------------------------------------------------------------
Sub ふりがなを削除する()
    Range("G9").Phonetics.Delete
End Sub
'-----------------------------------------------------------------------------------------
Sub ふりがなを削除する_裏技()
    Range("G9").Value = Range("G9").Value
End Sub
'-----------------------------------------------------------------------------------------

'----------------------------------------------------------------------------------------- Sub ふりがなを取得する() 'Phoneticプロパティを利用する方法 MsgBox "D9セルのふりがなは " & Range("D9").Phonetic.Text End Sub '----------------------------------------------------------------------------------------- Sub ふりがなの表示または非表示() Range("G9").Phonetic.Visible = True '表示する Range("G9").Phonetic.Visible = False '非表示にする End Sub '----------------------------------------------------------------------------------------- Sub ふりがなの文字種を設定する() Range("G9").Phonetic.CharacterType = xlHiragana 'ひらがな Range("G9").Phonetic.CharacterType = xlKatakana 'カタカナ Range("G9").Phonetic.CharacterType = xlKatakanaHalf '半角カタカナ End Sub '=========================================================================================

'=========================================================================================
Sub アクティブシートの中でデータを移動する()
    Worksheets("SSS").Activate                  'シートをアクティブにする ※１
    ActiveSheet.Range("A1:A3").Cut _
        Destination:=ActiveSheet.Range("C1") 'A1:A3セルの内容をC1セルを先頭にして移動 ※２
End Sub
'-----------------------------------------------------------------------------------------
Sub アクティブシートから指定したシートへデータを移動する()
    Worksheets("SSS").Activate                  '※１
    ActiveSheet.Range("C1:C3").Cut Destination:=Worksheets("SS2").Range("A1") 'C1:C3セルの
'                                     内容をSSSシートのA1セルを先頭にして移動する ※１、２
End Sub
'-----------------------------------------------------------------------------------------
Sub 指定したシートからアクティブシートへデータを移動する()
    Worksheets("SSS").Activate                  '※１
    Worksheets("SS2").Range("A1:A3").Cut Destination:=ActiveSheet.Range("A1") 'SS2シートの
'                   A1:A3セルの内容をアクティブシートのC1セルを先頭にして移動する ※１、２
End Sub
'=========================================================================================

'=========================================================================================
Private Sub オートフィルタの状態を調べて表示する()
    If Worksheets("SSS").AutoFilterMode Then    '※１ オートフィルタモードなら
        MsgBox "オートフィルタはオンです"
    Else
        MsgBox "オートフィルタはオフです"
    End If
End Sub
'-----------------------------------------------------------------------------------------
Private Sub オートフィルタの状態を調べて切り替える()
    If Worksheets("SSS").AutoFilterMode Then    'オートフィルタモードなら
        MsgBox "オートフィルタは現在オンです。［OK］ボタンをクリックするとオフにします"
        オートフィルタのオンオフを切り替える
    Else
        MsgBox "オートフィルタは現在オフです。［OK］ボタンをクリックするとオンにします"
        オートフィルタのオンオフを切り替える
    End If
End Sub
'-----------------------------------------------------------------------------------------
Private Sub オートフィルタのオンオフを切り替える()
    Worksheets("SSS").Range("A2").AutoFilter    '※１、２、３
End Sub
'-----------------------------------------------------------------------------------------
Private Sub オートフィルタモードを解除する()
    Worksheets("SSS").Range("A2").AutoFilterMode = False '※１
End Sub
'-----------------------------------------------------------------------------------------
Private Sub オートフィルタされていればリストの全ての行を表示する()
    If Worksheets("SSS").AutoFilterMode Then    '※１ オートフィルタモードなら
        MsgBox "オートフィルタは現在オンです"
        If Worksheets("SSS").FilterMode = True Then 'リストに非表示の行があれば
            MsgBox _
            "現在フィルタされています。［OK］ボタンをクリックすると全ての行を表示します"
            Worksheets("SSS").ShowAllData       '※１ 全ての行を表示する
        Else
            MsgBox "オートフィルタは現在オンですがフィルタされていないので" & Chr(13) _
            & "全ての行が表示されています"
        End If
    Else
        MsgBox "オートフィルタは現在オフですから、何もしません"
    End If
End Sub
'=========================================================================================

'=========================================================================================
Sub オートフィルタで抽出された件数を表示する()
    抽出件数 = ActiveSheet.Range("A1").CurrentRegion.Columns(1) _
        .SpecialCells(xlCellTypeVisible).Cells.Count - 1
    MsgBox "抽出件数は " & 抽出件数 & " です"
End Sub
'=========================================================================================

'=========================================================================================
Option Explicit
Public Const 最大行数 As Long = 1               '※１、２、３
Const タイトル As String = "定数の宣言"         '※１、２、３
'-----------------------------------------------------------------------------------------
Sub 宣言した定数の利用例()
    MsgBox "最大行数は " & 最大行数, vbInformation, タイトル
End Sub
'=========================================================================================

'=========================================================================================
Option Explicit
Dim 対象番号 As Variant                         '配列を代入するための変数 ※１
Dim 最小次元 As Long                            '※２
Dim 最大次元 As Long                            '※２
'-----------------------------------------------------------------------------------------
Sub 配列で定数を指定する()
    対象番号 = Array(1, 4, 6)                   '配列を変数に代入する ※３
    MsgBox 対象番号(2)                          '※４
End Sub
'-----------------------------------------------------------------------------------------
Sub Array配列の最小最大次元を取得する()
    最小次元 = LBound(対象番号)                 '最小次元を取得する ※５
    最大次元 = UBound(対象番号)                 '最大次元を　〃
End Sub
'=========================================================================================