【エクセルVBA】「文字を丸で囲む」マクロの作り方～設定されているコードを解説～

文字を丸で囲む処理を自動化したい！

こんな要望をエクセルVBAを使って解決します。

文字を丸で囲むVBAを導入すれば以下のような編集作業の効率をアップさせることができます。

アンケートなどでよく使われる「有・無」どちらかに〇を点ける
「点検済み」を〇で囲む
テキスト長によって〇の大きさを調整する

文字を丸で囲むVBAを使えば、

「文字に〇が被って見づらくなった！！」「〇ってどうやって入力するんだっけ？」

といった問題の発生を防ぐことができます。

エクセル作業で文字を丸で囲む作業が定期的にある！という方は是非参考にしてみてください。

1 「文字を丸で囲む」エクセルVBAとは
- 1.1 サンプル事例①　別シートの一覧表に記入されているテキストを丸で囲むVBA
  - 1.1.1 サンプルVBA
- 1.2 サンプル事例②　セルを指定して図形〇を挿入するVBA
  - 1.2.1 サンプルVBA
2 「文字を丸で囲む」エクセルVBAの基本コード
3 「文字を丸で囲む」エクセルVBAの導入方法
4 「文字を丸で囲む」エクセルVBAの導入事例
- 4.1 使い方
- 4.2 実行結果
5 業務内容に合わせたVBAを導入する方法
- 5.1 VBAの開発を依頼する
- 5.2 自分でVBAのコードを編集する

「文字を丸で囲む」エクセルVBAとは

「文字を丸で囲む自動化VBA」って具体的にどんなことができるの？本当にそんなことができるの？

と感じる方が多いのではないでしょうか。

サンプル事例を使って、

「文字を囲む」エクセルVABはどんなことができるのか。どのようなコードが設定されているのか。

をご紹介します。

サンプル事例①　別シートの一覧表に記入されているテキストを丸で囲むVBA

「設定」Sheetに作成したリストと一致するテキストを丸で囲む

という処理をするVBAを作成してみました。

こんな感じ

「設定」Sheetに丸で囲みたいテキストのリストを作成
「図形挿入」SheetのA1セルからJ10セルの範囲で適当にテキストを入力
VBAを実行

テキスト長に合ったサイズの丸を表示可能です。

ガッツポーズの人

めちゃくちゃ凄くないですか！？

このVBAを導入すれば、「丸で囲む」作業を完全自動化することが可能です。

テキストの長さに応じて〇を細長く微調整しなくちゃ、、、
文字に〇が被らないように調整しなくちゃ、、、
条件によって〇を付けるか付けないを考えなくちゃ、、、

このようなめんどくさい処理をする必要がなくなります。

サンプルVBA

別シートの一覧表に記入されているテキストを丸で囲むVBAに設定されているコードがこちら

Sub 〇で囲む()
    Dim Ash As Worksheet
    Dim Bsh As Worksheet
    Set Ash = ThisWorkbook.Worksheets("設定")
    Set Bsh = ThisWorkbook.Worksheets("図形挿入")
    Dim zukeiA As Shape
    Dim myShape As Shape
    Dim myRange As Range
    'A1セルからJ10セルの範囲の図形を削除する
                Set myRange = Bsh.Range(Bsh.Cells(1, 1), Bsh.Cells(10, 10))
                For Each myShape In Bsh.Shapes
                If Not (Intersect(Bsh.Range(myShape.TopLeftCell, myShape.BottomRightCell), myRange) Is Nothing) Then
                myShape.Delete
                End If
                Next
    Dim ARange As Range
    Dim keyWord As String
    Dim zukeiH As Range
    gyoa = Ash.Cells(Rows.Count, 2).End(xlUp).Row
    For i = 4 To gyoa
    keyWord = Ash.Cells(i, 2)
    For j = 1 To 10
    For k = 1 To 10
    Set ARange = Bsh.Range(Bsh.Cells(j, k), Bsh.Cells(j, k))
    Set zukeiH = ARange.Find(keyWord, LookAt:=xlWhole)
    On Error Resume Next
    If zukeiH = keyWord And Len(keyWord) = 1 Then
        With Bsh.Shapes.AddShape(msoShapeOval, zukeiH.Left, zukeiH.Top, 15, 15)
        .Fill.Visible = msoFalse
        .Line.Weight = 1
        .Line.ForeColor.RGB = vbBlock
        End With
    ElseIf zukeiH = keyWord And Len(keyWord) = 2 Then
        With Bsh.Shapes.AddShape(msoShapeOval, zukeiH.Left, zukeiH.Top, 30, 15)
        .Fill.Visible = msoFalse
        .Line.Weight = 1
        .Line.ForeColor.RGB = vbBlock
        End With
    ElseIf zukeiH = keyWord And Len(keyWord) = 3 Then
        With Bsh.Shapes.AddShape(msoShapeOval, zukeiH.Left, zukeiH.Top, 40, 15)
        .Fill.Visible = msoFalse
        .Line.Weight = 1
        .Line.ForeColor.RGB = vbBlock
        End With
    ElseIf zukeiH = keyWord And Len(keyWord) = 4 Then
        With Bsh.Shapes.AddShape(msoShapeOval, zukeiH.Left, zukeiH.Top, 50, 15)
        .Fill.Visible = msoFalse
        .Line.Weight = 1
        .Line.ForeColor.RGB = vbBlock
        End With
    ElseIf zukeiH = keyWord And Len(keyWord) = 5 Then
        With Bsh.Shapes.AddShape(msoShapeOval, zukeiH.Left, zukeiH.Top, 60, 15)
        .Fill.Visible = msoFalse
        .Line.Weight = 1
        .Line.ForeColor.RGB = vbBlock
        End With
    Else
    End If
    If Err <> 0 Then
    Err.Clear
    End If
    Next
    Next
    Next
End Sub

コードが長くて難しい！と感じるかもしれませんが、

処理毎に分けて考えるとイメージしやすい

と思います。

9行目から15行目までは、A1セルからJ10セル範囲の図形を全て削除(リセット)するVBA
20行目から25行目までは、図形〇を挿入する範囲を指定するVBA
27行目から56行目までは、テキスト長を判別して図形〇の大きさを変えるVBA

ガッツポーズの人

図形〇を挿入する範囲を変更するだけでもいろんなエクセル業務に応用できそうですよね

サンプル事例②　セルを指定して図形〇を挿入するVBA

セルを指定して図形〇を挿入する

という処理をするVBAを作成してみました。

こんな感じ

A5セルとE5セルに「有・無」というテキストを入力
VBAを実行

１文字目を〇で囲むことができる。

「有・無」や「良・不」といったテキストに〇を付ける！という作業を自動化することが可能です。

サンプルVBA

Sub セルを指定()
    Dim Ash As Worksheet
    Set Ash = ThisWorkbook.Worksheets("セルを指定")
    Dim zukei As Shape
    Dim myShape As Shape
    Dim myRange As Range
     'A1セルからJ10セルの範囲の図形を削除する
                Set myRange = Ash.Range(Ash.Cells(1, 1), Ash.Cells(10, 10))
                For Each myShape In Ash.Shapes
                If Not (Intersect(Ash.Range(myShape.TopLeftCell, myShape.BottomRightCell), myRange) Is Nothing) Then
                myShape.Delete
                End If
                Next
    With Ash.Shapes.AddShape(msoShapeOval, Ash.Cells(5, 1).Left, Ash.Cells(5, 1).Top, 15, 15)
        .Fill.Visible = msoFalse
        .Line.Weight = 1
        .Line.ForeColor.RGB = vbBlock
        End With
    With Ash.Shapes.AddShape(msoShapeOval, Ash.Cells(5, 5).Left, Ash.Cells(5, 5).Top, 15, 15)
        .Fill.Visible = msoFalse
        .Line.Weight = 1
        .Line.ForeColor.RGB = vbBlock
        End With
End Sub

設定されているコードを処理別に分けて考えるとこんな感じ

7行目から13行目までは、A1セルからJ10セル内の図形を全て削除(リセット)するVBA
14行目から18行目までは、図形〇をA5セルに挿入するVBA
19行目から23行目までは、図形〇をE5セルに挿入するVBA

ひらめく人

図形〇を表示するには４行分のコードで設定可能

図形を表示するセルがすでに決まっている場合に効果的なVBAです。

「文字を丸で囲む」エクセルVBAの基本コード

「文字を丸で囲む」には

AddShapeメソッドを使って図形の〇を挿入するVBA

を入力します。

AddShapeメソッドの基本構造

Shapesオブジェクト . AddShape ( Type , Left , Top , Width , Height )

Type ・・・図形の種類

Left ・・・挿入位置

Top ・・・挿入位置

Width ・・・図形の大きさ

Height・・・図形の大きさ

サンプル事例として紹介した「セルを指定して図形〇を挿入するVBA」のコードで該当する部分がこちら

With Ash.Shapes.AddShape(msoShapeOval, Ash.Cells(5, 1).Left, Ash.Cells(5, 1).Top, 15, 15)
.Fill.Visible = msoFalse
.Line.Weight = 1
.Line.ForeColor.RGB = vbBlock
End With

基本構造のように一文で書いてしまうと横に長くてわかりにくい。

なので、

With構文を使って改行しながら書くと見やすくなるのでおすすめです。

「文字を丸で囲む」VBAを設定してしまえば様式が変わらない限り半永久的に使うことができます。