2020年6月16日

沖縄拠点の久保田です。

何度も同じフォーマットをコピペして編集したくない人向けのテクニックを紹介したいと思います。

用意するソフトウェアは以下となります。

■必要な環境
Microsoft Excel 2016

まずは完成形から見ていきましょう。

※完成図

[＠雛形]セルの１つ下のセルに雛形を書きます。置き換えた対象となる部分に[＠０１]や[＠０２]のように設定します。
[＠値]セルの１つ下のセルに雛形で使用するパラメータ[＠０１]や[＠０２]を設定します。行を増やしながら埋め込みたい値を設定します。
[実行]ボタンを押下後、クリップボードに出力結果が設定されます。

■クリップボードへの出力結果

[crayon-673f00e2dcdc1398430169 ]$param = array(

"corp" => "06",

"account" => "19000001",

"id" => "487012345",

"phoneNo" => "0746669999",

"pay" => "1",

"verify" => "6654"

);

$param = array(

"corp" => "06",

"account" => "19000002",

"id" => "487012346",

"phoneNo" => "0746670000",

"pay" => "2",

"verify" => "7777"

);

$param = array(

"corp" => "39",

"account" => "19000006",

"id" => "487012350",

"phoneNo" => "0746670004",

"pay" => "1",

"verify" => "1111"

);

[/crayon]

こんな感じのツールです。

何故このツールを作ろうと思ったのか

何故このツールを作ろうと思った経緯ですが、getter や setter を大量に半手動で作らないといけない事があり（今では便利なプラグインがあるのですが、）さらに、コメントも決まったフォーマットで書かないといけないという事がありました。

この時はインターネットにも接続できない環境で、必要なプラグインの入手までに時間がかかりました。（プラグインやツールの申請に1週間程かかりました）

例えば↓のような場合です。

[crayon-673f00e2dcdc8841246725 ] /** 画面ID */

private String screenId;

/**

* 画面IDを取得します。

* @return 画面ID

public String getScreenId() {

return screenId;

}

/**

* 画面IDを設定します。

* @param screenId 画面ID

public void setScreenId(String screenId) {

this.screenId = screenId;

}

[/crayon]

あー、もうこんなの手動で書くなんて信じられませんね。

getter, setter までは自動で出力してくれますが、コメントの形式までプロジェクトで決められていて、IDEの内包ツールではそこまで対応していませんでした。
手動でなんてやってたら時間かかるしミスは出るしで良い事なんて１つもありません。

そこで限られた環境で効率化を図る事にしたのです。

実際に作ってみよう

と、いうわけでここからは本ツールの作成方法を書きたいと思います。

※[開発]タブを使用しますので、表示されていない方は、[ファイル] → [オプション] → [リボンのユーザー設定] の[リボンのユーザ設定]の[開発]チェックボックスをオンにして、事前に [開発]タブを表示して下さい。

まず、下のような感じでシートを作成します。

[開発]タブ → 挿入 → フォームコントロール[ボタン]を選択して、任意の場所にボタンを配置します。

ボタンを配置するとマクロの登録画面になりますので、何も変更せず[新規作成]ボタンを押して下さい。

[ Visual Basic Editor ]が起動しますので、以下のソースを貼り付けて保存して下さい。
私の環境では Subプロシージャ [ボタン10_Click()]ですので、自身の環境に合わせて修正して下さい。

[crayon-673f00e2dcdcf606779030  ]Sub ボタン10_Click()

Dim Rng As Range
    Set Rng = Cells.Find(What:="＠値", LookIn:=xlValues, LookAt:=xlWhole)
    If Rng Is Nothing Then
        MsgBox "＠値セルが存在しません。"
    End If
    
    Dim tempRng As Range
    Set tempRng = Cells.Find(What:="＠雛形", LookIn:=xlValues, LookAt:=xlWhole)
    If tempRng Is Nothing Then
        MsgBox "＠雛形セルが存在しません。"
    End If
    
    Dim valueRow As Integer
    Dim valueCol As Integer
    
    valueRow = Rng.Row
    valueCol = Rng.Column
    
    If Not Cells(valueRow + 1, valueCol).Value = "＠０１" Then
        MsgBox "＠値セルの直下に＠01セルを定義してください。"
        Exit Sub
    End If
    
    valueRow = valueRow + 1
    
    Dim cValueArray As New Collection
    
    Do
        If Cells(valueRow, valueCol) = "" Then
            Exit Do
        End If
    
        cValueArray.Add Cells(valueRow, valueCol)
    
        valueCol = valueCol + 1
    Loop
    
    valueRow = valueRow + 1
    
    Dim result As String
    Dim tempStr As String
    Dim tempFlg As Boolean
    
    Do
        valueCol = Rng.Column - 1

tempFlg = False
        
        ' 値存在チェック
        For i = 1 To cValueArray.Count
            If Not Cells(valueRow, valueCol + i) = "" Then
               tempFlg = True
               Exit For
            End If
        Next
        
        ' 値が無い場合終了
        If Not tempFlg Then
            Exit Do
        End If
        
        tempStr = Cells(tempRng.Row + 1, tempRng.Column).Value
        
        ' templateを置換文字で実行
        For i = 1 To cValueArray.Count
            tempStr = Replace(tempStr, cValueArray(i), Cells(valueRow, valueCol + i))
        Next
        
        ' 置換後の文字列を
        result = result + tempStr + vbLf
        
        ' 次の行へ移動
        valueRow = valueRow + 1
    Loop
    
    result = Replace(result, vbLf, vbCrLf)
    
    Dim CB As New DataObject
    With CB
        .SetText result
        .PutInClipboard
    End With
    
    MsgBox "実行結果をクリップボードへコピーしました。"
End Sub

[crayon-673f00e2dcdcf606779030 ]Sub ボタン10_Click()

Dim Rng As Range

Set Rng = Cells.Find(What:="＠値", LookIn:=xlValues, LookAt:=xlWhole)

If Rng Is Nothing Then

MsgBox "＠値セルが存在しません。"

End If

Dim tempRng As Range

Set tempRng = Cells.Find(What:="＠雛形", LookIn:=xlValues, LookAt:=xlWhole)

If tempRng Is Nothing Then

MsgBox "＠雛形セルが存在しません。"

End If

Dim valueRow As Integer

Dim valueCol As Integer

valueRow = Rng.Row

valueCol = Rng.Column

If Not Cells(valueRow + 1, valueCol).Value = "＠０１" Then

MsgBox "＠値セルの直下に＠01セルを定義してください。"

Exit Sub

End If

valueRow = valueRow + 1

Dim cValueArray As New Collection

If Cells(valueRow, valueCol) = "" Then

Exit Do

End If

cValueArray.Add Cells(valueRow, valueCol)

valueCol = valueCol + 1

Loop

valueRow = valueRow + 1

Dim result As String

Dim tempStr As String

Dim tempFlg As Boolean

valueCol = Rng.Column - 1

tempFlg = False

' 値存在チェック

For i = 1 To cValueArray.Count

If Not Cells(valueRow, valueCol + i) = "" Then

tempFlg = True

Exit For

End If

' 値が無い場合終了

If Not tempFlg Then

Exit Do

End If

tempStr = Cells(tempRng.Row + 1, tempRng.Column).Value

' templateを置換文字で実行

For i = 1 To cValueArray.Count

tempStr = Replace(tempStr, cValueArray(i), Cells(valueRow, valueCol + i))

' 置換後の文字列を

result = result + tempStr + vbLf

' 次の行へ移動

valueRow = valueRow + 1

Loop

result = Replace(result, vbLf, vbCrLf)

Dim CB As New DataObject

With CB

.SetText result

.PutInClipboard

End With

MsgBox "実行結果をクリップボードへコピーしました。"

End Sub

[/crayon]

[ Visual Basic Editor ] 画面を閉じます。
では、先ほど配置したボタンを押してみましょう。メッセージボックスに「実行結果をクリップボードへコピーしました。」と表示されれば完成です。テキストエディター等に貼り付けして出力結果を確認して下さい。

■メモ帳に貼り付け結果

シートをコピーして増やすことで、雛形を多数準備する事も可能です。

作成にはVBAの知識が少し必要ですが、[マクロの記録]で必要なコードを収集しながら作成する事も可能ですので、是非VBAを使っていろいろ作成してみて下さい。

便利な使い方

便利な使い方をするには、まずインプットデータを本ツールにあまり加工せずに貼り付けできる状態が好ましいです。

例えばテーブル定義書です。

テーブル定義書のカラムの物理名と論理名を使用して、コードとコメントを書く時に役に立ったりします。

エクセルなので当然セル内に関数を埋めこんだり、別シートのセルを参照したりできるわけで、それだけでも利用方法が広がると思います。

いろいろ工夫して使ってみて下さい。

＜免責事項と注意事項＞

本ページの内容について

発生した一切の損害（機会の損失、結果的損害等を含む）について、いかなる責任も負いません。
ご利用は各個人での私的な使用に限るものとし、商用又は、営利を目的として、また公共の場での使用を一切禁止します。

月	火	水	木	金	土	日
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

日: 2020年6月16日

何度も同じフォーマットをコピペして編集したくない人の為に

何故このツールを作ろうと思ったのか

実際に作ってみよう

便利な使い方

＜免責事項と注意事項＞