指定した文字列にカギカッコをつけるよ

この説明は、ChatGPTで作成しています。

このプロシージャは、Excelで選択した範囲のセルの中から、指定した文字列を探して、見つかった文字列の両側にカギカッコ（「」）を自動的に付け加えるというものです。例えば、"テスト"という文字を探して、すべての"テスト"を「テスト」に変換します。

プロシージャの仕組み

1. 画面更新を停止
   処理中に画面の更新を一時的に停止して、パフォーマンスを向上させます。

2. キーワードの入力を求める
   `InputBox`を使って、ユーザーにカギカッコをつけたい文字列を入力させます。

3. 正規表現の設定
   `CreateObject("VBScript.RegExp")`で正規表現オブジェクトを作成し、指定したキーワードを探せるようにします。

   • `.Pattern = keyword`で、探すキーワードを設定します。

   • `.IgnoreCase = True`で、大文字と小文字の区別をなくします。

   • `.Global = True`で、セルの中でキーワードが複数あってもすべて置換します。

4. セルごとの文字列の置換
   `For Each myRng In Selection`で、選択したセル範囲を1つずつ処理します。

   • セルの内容を`txt`に取得し、正規表現でキーワードを「」で囲んだ形に変換します。

   • その後、変換した結果をセルに戻します。

5. 画面更新の再開
   最後に、停止していた画面更新を再開して処理を終了します。

プログラミング未経験の方への補足

• このコードを実行するには、ExcelのVBAエディターを開いて貼り付け、選択したセルに対して実行します。

• 「正規表現」というのは、特定のパターンに一致する文字列を効率よく探したり、置換したりできる仕組みです。

---

• Excel VBA リファレンス | Microsoft Learn

• この記事のYouTube動画はこちら

Sub 指定した文字列にカギカッコをつけるよ()
    Application.ScreenUpdating = False
    Dim keyword As String
    keyword = InputBox("カギカッコをつける文字列を入力してください:", "文字列入力")
    Dim reg
    Set reg = CreateObject("VBScript.RegExp")   'オブジェクト作成
    Dim myRng As Range
    Dim txt As String
    With reg
        .Pattern = keyword
        .IgnoreCase = True
        .Global = True
    End With
    On Error Resume Next
    For Each myRng In Selection
            txt = myRng.Value
            txt = reg.Replace(txt, "「" & keyword & "」")
            myRng.Value = txt
    Next myRng
    Application.ScreenUpdating = True
End Sub

---

キーワード

#excel #できること #vba #正規表現 #文字列操作 #置換 #カギカッコ #オブジェクト作成 #セル範囲 #入力ボックス #テキスト処理 #ユーザー入力 #マクロ #自動化 #コード解説 #パターンマッチング #初心者向け #大文字小文字無視 #プログラミング学習 #カギカッコ自動化

---

English Translation

Adding Quotation Marks to a Specified String

This explanation is created using ChatGPT.

This procedure automatically adds Japanese quotation marks 「」 around a specified string in the selected cells in Excel. For example, if you enter the word "test", the macro will find all occurrences of "test" and replace them with 「test」.

How the Procedure Works

1. Stop Screen Updating
   The screen updates are temporarily stopped to improve performance during the operation.

2. Prompt for Keyword Input
   An `InputBox` is used to prompt the user to enter the string they want to add quotation marks around.

3. Set Up Regular Expressions
   A regular expression object is created with `CreateObject("VBScript.RegExp")` to search for the specified keyword.

   • `.Pattern = keyword` sets the pattern for the keyword to be searched.

   • `.IgnoreCase = True` makes the search case-insensitive.

   • `.Global = True` ensures that all occurrences of the keyword in the cell are replaced.

4. Replace the String in Each Cell
   `For Each myRng In Selection` processes each cell in the selected range one by one.

   • The cell content is stored in `txt`, and the keyword is replaced with its version wrapped in 「」.

   • The modified result is then placed back in the cell.

5. Resume Screen Updating
   Finally, the screen updates that were paused earlier are resumed to complete the process.

Additional Notes for Programming Beginners

• To run this code, you need to open the VBA editor in Excel, paste the code, and execute it on a selected range of cells.

• "Regular expressions" are a powerful tool to search for and replace text based on specific patterns.

---

• Excel VBA Reference | Microsoft Learn

• Watch this YouTube video

---

Keywords

#excel #vba #regular_expression #text_manipulation #replace #quotation_marks #object_creation #cell_range #input_box #text_processing #user_input #macro #automation #code_explanation #pattern_matching #for_beginners #case_insensitive #learning_programming #quotation_automation