【マクロ】置換

Sub sample()

Dim myCell As Variant

Application.ScreenUpdating = False

myCell = Range("M2", Cells(Rows.Count, "M").End(xlUp))

For i = 1 To UBound(myCell, 1)

str0 = myCell(i, 1)

str0 = Replace(str0, "1", "A", compare:=vbTextCompare)

str0 = Replace(str0, "2", "b", compare:=vbTextCompare)

str0 = Replace(str0, "3", "C", compare:=vbTextCompare)

str0 = Replace(str0, "4", "d", compare:=vbTextCompare)

str0 = Replace(str0, "0", "X", compare:=vbTextCompare)

myCell(i, 1) = str0

Next

Range("M2", Cells(Rows.Count, "M").End(xlUp)) = myCell

Application.ScreenUpdating = True

End Sub

----------------------------------------------------------------------------

東京(　　)区・市、埼玉、千葉、神奈川、その他

このような記入方法で入力された住所を置換する。

○○市や〇〇区は東京、東京は東京、埼玉は埼玉、千葉は千葉・・・

H列の値をO列に返している。

Public Sub 住所置換()

Application.ScreenUpdating = False

Dim rg As Range

Dim r As Range

Set rg = Range("H2:H" & Cells(Rows.Count, "A").End(xlUp).Row)

For Each r In rg

If Right(r.Value, 1) = "区" Or Right(r.Value, 1) = "市" Then

r.Offset(, 7).Value = "東京"

Else

r.Offset(, 7).Value = r.Value

End If

Next

Application.ScreenUpdating = True

End Sub

【マクロ】セルをダブルクリックして実行

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 

    '■特定セルで起動する場合(セルE10)

    If Target.Address = "$E$10" Then

        MsgBox "特定セル"

    End If

    '■特定セル範囲で起動する場合(セルのC4～E5)

    If Not Intersect(Target, Range("C4:E5")) Is Nothing Then

        MsgBox "特定セル範囲"

    End If

     

    '■特定列で起動する場合(B列(2列目)の場合)

    If Target.Column = 2 Then

        MsgBox "特定列"

    End If

     

    '■特定行で起動する場合(1行目の場合)

    If Target.Row = 1 Then

        MsgBox "特定行"

    End If

     '■Trueにするとダブルクリック(セルの編集状態)はキャンセルされます

    '■Falseにするとダブルクリック(セルの編集状態)になります

    Cancel = True

End Sub