Const moz1 As String = "ABCDEFGHIJKLMN"
Const moz2 As String = "abcdefghijklmn"
Const moz3 As Integer = 123
Const moz4 As String = "567"
Sub ki310()
 Sheets("Sheet1").Select
 Range("A1").Select
End Sub
'-----------------------------------------------------------------------------------
'(1) 文字数
Sub ki310a()
    MsgBox "Len(moz1) →　" & Len(moz1)      '文字数を求める。　        結果　：１４
End Sub
'-----------------------------------------------------------------------------------
'(2) 文字列の取り出し
Sub ki310b()
    MsgBox "Left(moz1, 4) →　" & Left(moz1, 4)      '文字列の左より取り出し。 結果　：ABCD
    MsgBox "Right(moz1, 4) →　" & Right(moz1, 4)  '文字列の右より取り出し。 結果　：KLMN
    MsgBox "Mid(moz1, 5, 4)→　" & Mid(moz1, 5, 4)  '文字列の指定個所取り出し。 結果　：EFGH
    MsgBox "Mid(moz1, 5) →　" & Mid(moz1, 5)         '文字列の指定個所取り出し。 結果　：EFGHIJKLMN
End Sub
'-----------------------------------------------------------------------------------
'(3) 文字の位置
Sub ki310c()
   MsgBox "InStr(***略)→　" & InStr(3, moz1, "e", 1)
                                                        '文字列より指定した文字の位置。 結果　：5
                                                        '3は検索開始位置、1は大文字･小文字区別しない
End Sub
'-----------------------------------------------------------------------------------
Sub ki310d()
'(4) 文字→数字、数字→文字
     MsgBox " Str(moz3 + 111) " & Str(moz3 + 111)  '引数の値を文字列に変換。結果　： 234(先頭は空白1ｺ)"
     MsgBox "  Val(***略)→　" & Val(moz4 & "111")       '文字列を引数に変換。　　結果　：567111
End Sub
'-----------------------------------------------------------------------------------
'(5) 小文字・大文字変換
Sub ki310e()
    MsgBox " LCase(moz1)→　" & LCase(moz1)   'アルファベットを小文字に変換。　　結果　：abcdefghijklmn
    MsgBox " UCase(moz2)→　" & UCase(moz2)  'アルファベットを大文字に変換。　結果　：ABCDEFGHIJKLMN"
 End Sub
'-----------------------------------------------------------------------------------
'(6) Like演算子にパターン認識
Sub ki310f()
    aa = moz2 Like "*b*"
        MsgBox "  (aa)→　" & aa                   'Like演算子でパターン認識        結果　aa：True
    bb = moz2 Like "*B*"
        MsgBox "  (bb)→　" & bb                  'Like演算子でパターン認識        結果　bb：False
    cc = moz2 Like "b"
        MsgBox "  (cc)→　" & bb                   'Like演算子でパターン認識        結果　cc: False
End Sub
'-----------------------------------------------------------------------------------
'(7) 文字列の比較
Sub ki310g()
    MsgBox " StrComp(moz1, moz2, 0)→　" & StrComp(moz1, moz2, 0) '    　結果　：-1
    MsgBox " StrComp(moz1, moz2, 1)→　" & StrComp(moz1, moz2, 1) '    　結果　：0
End Sub
'-----------------------------------------------------------------------------------
'(8) 文字列の置換え(strconv)
Sub ki310h()
  MsgBox " StrConv(moz2, 1) →　" & StrConv(moz2, 1)   '大文字に変換  （結果：ABCD）"
  MsgBox " StrConv(moz1, 2) →　" & StrConv(moz1, 2)   '小文字に変換  （結果：defg）"
  MsgBox " StrConv(moz2, 3) →　" & StrConv(moz2, 3)   '先頭を大文字に変換 (結果：Abcd）"
  MsgBox "StrConv(***略)→　" & StrConv("ｶｸｸｹ", 4)    '半角を全角に変換  （結果：カキクケ）"
  MsgBox "StrConv(***略)→　" & StrConv("カキクケ", 8)    '全角を半角に変換  （結果：ｶｸｸｹ）"
  MsgBox "StrConv(***略)→　" & StrConv("あいうえ", 16)  '全角ひらがなをカタへ(結果：アイウエ）
  MsgBox "StrConv(***略)→　" & StrConv("カキクケ", 32)  '全角カナをひらがなへ(結果：かきくけ）
End Sub
'-----------------------------------------------------------------------------------
'(9) 文字列の置換え
Sub ki310i()
Cells(67, 4) = "ABCDCFGHIJ"
Cells(68, 4) = "FGHIJKLMNO"
MsgBox "文字をセルへ入れました"
  Range(Cells(67, 4), Cells(68, 4)).Select
  Selection.Replace What:="FGH", Replacement:="aaa", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False

'結果："ABCDCFGHIJ"→"ABCDCaaaIJ"、"FGHIJKLMNO"→aaaIJKLMNO
End Sub
'-----------------------------------------------------------------------------------
'(10) 文字列の一部を指定
Sub ki310j()
    Cells(79, 4) = moz1
    Cells(79, 4).Select
    MsgBox "文字をセルへ入れました"
    ActiveCell.Characters(4, 3).Font.ColorIndex = 3 '結果 DEF　が赤になる
End Sub
'-----------------------------------------------------------------------------------
'(11) 文字列の一部を置換え(Insert)
Sub ki310k()
   Cells(87, 4) = moz1
   Cells(87, 4).Select
   MsgBox "文字をセルへ入れました"
   ActiveCell.Characters(4, 3).Insert "aaa"     '結果ABCaaaGHIJKLMN
End Sub
'-----------------------------------------------------------------------------------
'(12) 文字列の一部を置換え(Replace)
Sub ki310l()
    Cells(95, 4) = moz1
    Cells(95, 4).Select
    MsgBox "文字をセルへ入れました"
    ActiveCell.Replace "GHI", "bbb111"      '結果ABCDEFbbb111JKLMN
End Sub
'-----------------------------------------------------------------------------------