VBA：文字列操作

Sub SampleConcatenate()
    Dim str1 As String
    Dim str2 As String
    Dim result As String

    str1 = "Hello, "
    str2 = "World!"
    result = str1 & str2

    MsgBox result ' "Hello, World!"と表示されます。
End Sub

Sub テスト()
    Dim s1 As String
    Dim s2 As String
    Dim n1 As Integer
    Dim n2 As Integer

    n1 = 12
    n2 = 8
    s1 = "Version." & n1 '結果:"Vrsion.12" 
    s2 = n1 & n2         '結果:"128"
End Sub

Sub テスト()
    Dim s1 As String
    Dim s2 As String
    Dim d1 As Date
    Dim d2 As Date

    d1 = #2022/12/14#
    d2 = #16:25#
    s1 = "今日の日付は" & d1
    s2 = d1 & d2
End Sub

Sub SampleReplace()
    Dim originalText As String
    Dim replacedText As String

    originalText = "Good Morning"
    replacedText = Replace(originalText, "Morning", "Evening")

    MsgBox replacedText ' "Good Evening"と表示されます。
End Sub

strSamp = "111122223333111122223333"
strSamp = Left(strSamp, 4)
'1111を返す

strSamp = "111122223333111122223333"
strSamp = Right(strSamp, 5)
'23333を返す

Sub SampleMid()
    Dim text As String
    Dim extractedText As String

    text = "VBA Programming"
    extractedText = Mid(text, 5, 6) ' "rogram"を抽出

    MsgBox extractedText ' "rogram"と表示されます。
End Sub

strSamp = "111122223333111122223333"
intCount = Len(strSamp)
'24を返す

strSamp = "111122223333111122223333"
intPoint = InStr(strSamp, "3333")
'9を返す

strSamp = "aaaaa"
strSamp = StrConv(strSamp, vbUpperCase)　'vbUpperCaseかわりに1でもよい
'AAAAAを返す

'文字列を小文字に変換
strSamp = "AAAAA"
strSamp = StrConv(strSamp, vbLowerCase) 'vbLowerCaseのかわりに2でもよい
'aaaaaを返す

'文字列の各単語の先頭の文字を大文字に変換
strSamp = "aaaaa"
strSamp = StrConv(strSamp, vbProperCase)　'vbProperCaseのかわりに3でもよい
'Aaaaaを返す

'文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換
strSamp = "ﾊﾋﾌﾍﾎ"
strSamp = StrConv(strSamp, vbWide) 'vbWideのかわりに4でもよい
'ハヒフヘホを返す

'文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換
strSamp = "ハヒフヘホ"
strSamp = StrConv(strSamp, vbNarrow) 'vbNarrowのかわりに8でもよい
'ﾊﾋﾌﾍﾎを返す

'文字列内のひらがなをカタカナに変換します。
strSamp = "はひふへほ"
strSamp = StrConv(strSamp, vbKatakana) 'vbKatakanaのかわりに16でもよい
'ハヒフヘホを返す

'文字列内のひらがなをカタカナに変換
strSamp = "ハヒフヘホ"
strSamp = StrConv(strSamp, vbHiragana) 'bHiraganaのかわりに32でもよい
'はひふへほを返す

'現在のシステム日付が2023/11/20の場合
dtToday=Date
Debug.Print Format(dtToday,"yyyymmdd")
'20231120を返す

Debug.Print Format(dtToday,"yyyy/mm/dd")
'2023/11/20を返す

Debug.Print Format(dtToday,"yyyy")
'2023を返す

Debug.Print Format(dtToday,"mm")
'11を返す

Debug.Print Format(dtToday,"dd")
'20を返す

'現在のシステム時刻が19:20:30の場合
dtNow=Now
Debug.Print Format(dtNow,"hh:mm:ss")
'19:20:30を返す

strData="ABCDE"
Debug.Print Format(strData,"<")
'abcdeを返す

strData="vwxyz"
Debug.Print Format(strData,">")
'VWXYZを返す

Sub ReplaceSpaces()
    Dim originalText As String
    Dim modifiedText As String
    
    ' セルA1の内容を取得
    originalText = Range("A1").Value
    
    ' Replace関数を使ってスペースを空文字に置換
    modifiedText = Replace(originalText, " ", "")
    
    ' 置換後の文字列をセルB1に出力
    Range("B1").Value = modifiedText
End Sub

Sub ReplaceWord()
    Dim originalText As String
    Dim modifiedText As String
    
    ' セルA1の内容を取得
    originalText = Range("A1").Value
    
    ' Replace関数を使って「Apple」を「Orange」に置換
    modifiedText = Replace(originalText, "Apple", "Orange")
    
    ' 置換後の文字列をセルB1に出力
    Range("B1").Value = modifiedText
End Sub

Sub ReplaceBasedOnList()
    Dim wsSource As Worksheet
    Dim wsReplace As Worksheet
    Dim replaceRange As Range
    Dim cell As Range
    Dim findText As String
    Dim replaceText As String
    Dim lastRowReplace As Long
    Dim lastRowSource As Long
    Dim lastColSource As Long
    Dim i As Long
    Dim j As Long

    ' シートを設定
    Set wsSource = Worksheets("Sheet1")
    Set wsReplace = Worksheets("List1")

    ' 置換用の表の最後の行を取得
    lastRowReplace = wsReplace.Cells(wsReplace.Rows.Count, "A").End(xlUp).Row

    ' 置換用の表の範囲を設定
    Set replaceRange = wsReplace.Range("A1:B" & lastRowReplace)

    ' データの最後の行と列を取得
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    lastColSource = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column

    ' Sheet1の表をループ
    For i = 1 To lastRowSource
        For j = 1 To lastColSource
            ' セルの内容を取得
            Dim cellValue As String
            cellValue = wsSource.Cells(i, j).Value

            ' 置換用の表をループ
            For Each cell In replaceRange.Columns(1).Cells
                findText = cell.Value
                replaceText = cell.Offset(0, 1).Value

                ' セルの内容に置換対象の文字列が含まれている場合、置換
                If InStr(cellValue, findText) > 0 Then
                    cellValue = Replace(cellValue, findText, replaceText)
                End If
            Next cell

            ' 置換後の値をセルに設定
            wsSource.Cells(i, j).Value = cellValue
        Next j
    Next i
End Sub