IT仕事

Excel2007でアドインを作って登録するまでの手順

投稿日:2012年1月17日 更新日:

Googleさまで探してもあまり好みの回答にたどり着かなかったので、自分及び誰かのためになるかと思いメモメモ。

■1.標準モジュールにアドインにしたいコードを作成する。

以下のコードは、単純に、

「セル内にある数字の先頭にシングルコーテーションを付加し、さらにハイフンを取り除く」

電話番号からハイフンを削除してキレイな数字のみにする処理です。0が消えるとイヤなのでシングルコーテーションを付けています。

Sub ハイフン削除1()
For Each c In Selection
v = "'" & c.Text
c.Value = Replace(v, "-", "")
Next
End Sub

Sub ハイフン削除2()
For Each c In Selection
v = "'" & c.Text
c.Value = Replace(v, "ー", "")
Next
End Sub

■2.VBAのThisWorksheetに以下のコードを追加する。

リボンのアドインメニューに、新しいボタンを作る/削除する、コードですね。

—-ここから—-

Public CPop As Office.CommandBarPopup
Private Sub Workbook_AddinInstall() '「Excelのオプション」で登録する際に実行されるコード
Set CPop = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
With CPop
.Caption = "ハイフン削除1"
.OnAction = "ハイフン削除1"
End With
Set CPop = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
With CPop
.Caption = "ハイフン削除2"
.OnAction = "ハイフン削除2"
End With
End Sub
Private Sub Workbook_AddinUninstall() '「Excelのオプション」で削除する際に実行されるコード
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("先頭番号の重複チェック").Delete
Application.CommandBars("Worksheet Menu Bar").Controls("FAXエラーチェック").Delete
End Sub

—-ここまで—-

■3.作ったら、ファイルを「ハイフン削除」アドインとして保存する(拡張子は自動的にxlamになる)。

保存する場所は変えない(C:\Users\ユーザ名\AppData\Roaming\Microsoft\AddIns\)。ネットワークに登録してもいいが、変えると次の4で呼び出すのが面倒なので、テスト中はそのままがよいかも。

■4.Excelアプリにアドインを登録する。

Officeボタンから、「Excelのオプション」「アドイン」「設定」とたどり、表示されるダイアログボックスで、先ほど保存した「ハイフン削除」アドオンが表示されるので、チェックを付けて登録する。

以下、追記:2014/6/20(金)

Excelを閉じると、アドインのメニューが消えてしまった・・・・。
以下のように、open時とclose時にも、メニューを表示する処理を入れるとOk。
(以前とメニュー内容が変わっているのは、本番のをコピペしたから)

Public CPop As Office.CommandBarPopup

Private Sub Workbook_AddinInstall() ‘「Excelのオプション」でアドオン登録する際に実行
Call MenuAdd
End Sub

Private Sub Workbook_Open() ‘Bookを開くときに実行
Call MenuAdd
End Sub

Private Sub Workbook_AddinUninstall() ‘「Excelのオプション」でアドオン削除する際に実行
Call MenuDel
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) ‘Bookを閉じるときに実行
Call MenuDel
End Sub

Private Sub MenuAdd()
Set CPop = Application.CommandBars(“Worksheet Menu Bar”).Controls.Add(Type:=msoControlPopup)
With CPop
.Caption = “先頭番号の重複チェック”
.OnAction = “先頭番号の重複チェック”
End With
Set CPop = Application.CommandBars(“Worksheet Menu Bar”).Controls.Add(Type:=msoControlPopup)
With CPop
.Caption = “FAXエラーチェック”
.OnAction = “FAXエラーチェック”
End With
End Sub

Private Sub MenuDel()
On Error Resume Next
Application.CommandBars(“Worksheet Menu Bar”).Controls(“先頭番号の重複チェック”).Delete
Application.CommandBars(“Worksheet Menu Bar”).Controls(“FAXエラーチェック”).Delete
End Sub

-IT仕事

執筆者:

関連記事

no image

WP Limit Post Automaticallyプラグインはとても賢い

とあるサイトを管理していて、WPで長文を書くことが多い。 カテゴリー一覧でリスト表示した場合、全文表示されるととっても見にくい。特に画像が多いと。 その場合にも見やすいように文章の前半に「続きを読む- …

no image

ペースターno日付計算

便利に使わせていただいているシェアウェアの「ペースター」ですが、 カスタムメニューを使って、3日前とか、一週間前の日付計算をしてから貼り付ける方法が、わからなかった。 さっきGoogleで調べたら、な …

Shopify(Matrixify)でスケジュール化したJobのキャンセル

どうしても方法を見つけられなかったが、ふと画面に目を落とすと、あった、方法が。 焦ると視野が狭くなって、なかなか気が付かないんだよなあ、こういうの。 You have 4 scheduled jobs …

秀丸で、例えば「123市」を「123都市」にするときの正規表現の使い方メモ

検索文字のうち、置き換え後に残したい部分を、カッコで囲むのがミソ。 検索文字:([0-9])市 置換文字:\1都市 wordだと「ワイルドカードを使用する」とすると、正規表現が使える。

no image

秀丸マクロ

薬品費を消耗品費にするのと22を23にするのとを、20個以上のファイルに対して行って、別のファイルに保存する・・・。 これを昨日からやっているのだが、だんだんめんどくさくなって来て。 明日移行も、同じ …