2010年1月23日
ここまでで完成としてしまってもいいのだが、毎回、呼び出すのに「開発」タブの「マクロ」をクリックして
どれを実行するかを選ぶというのは、実に面倒臭い。
どうせならボタンを作って、それを一発クリックすればいいという形にしたい。
という事でその辺の処理を追加する。
実際にはいくつかの手法があるらしいのだが、この辺りは実は私は詳しくない。
あるところで使われていたものをそのまま流用しているだけにすぎないので、
そのあたりはご容赦願いたい。
Visual Basicの画面でモジュールのすぐ上にある「ThisWorkbook」なるものがある （画像5を参照)｡
このThisWorkbookに以下のものを書き込んで、ファイルをExcelアドイン形式で保存すればいいのだ。
Private Sub workbook_addininstall()
Dim menubar As CommandBar
Set menubar = Application.CommandBars.Add(Name:="有効数字")
With menubar.Controls.Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "有効数字2桁"
.TooltipText = "有効数字を2桁にします"
.OnAction = "significantFigure2"
End With
With menubar.Controls.Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "有効数字3桁"
.TooltipText = "有効数字を3桁にします"
.OnAction = "significantFigure3"
End With
With menubar.Controls.Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "有効数字を解除"
.TooltipText = "有効数字を解除します"
.OnAction = "significantCancel"
End With
menubar.Visible = True
End Sub
Private Sub workbook_addinuninstall()
Dim menubar As CommandBar
Set menubar = Application.CommandBars("有効数字")
menubar.Delete
End Sub
|
これでアドインが出来上がるので、Excelに組み込めばボタン1つで実行できるようになる。
ふぅ、長かった。
最後のページにまとめと言うかおまけのようなもの。
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14]