こんばんは。
アドインは、本格的なものは、なかなか難しいのですが、簡単なものですと、通常、ツールバーに入れてあげるようにします。
>「ふりわけ.xla」ファイルはPCの
>どこにおいてあっても大丈夫でしょうか?
アドインの基本的なことなのですが……。公開アドインを出している人でも、ここらがいい加減の人もいますが、私などは、配布する場合は、インストーラーを使います。
これは、バージョンによっても変わってきます。
C:\Documents and Settings\[User ID]\Application Data\Microsoft\AddIns\
必ずしも、以下が正しいわけではありませんが、例えば、フローティングバーを作る場合、このようなものになります。Office 2007 では、以下は、アドインというメニューの中に入ってしまいます。
ただ、私個人は、フローティングバーは好きではありませんが、アドインで、そういう作り方をする人が多いです。どんなスタイルでも、Temporary 属性は、不可欠ですから、忘れないようにしてください。
Office 2007 では、以下のコードは、あまりお勧めできません。
Sub FloatingMenu()
Dim myCBCtrl As CommandBar
Dim my_Ctrl As CommandBarControl
On Error Resume Next
CommandBars("MyMacro").Delete
On Error GoTo 0
Set myCBCtrl = CommandBars.Add(Name:="MyMacro", _
Position:=msoBarFloating, _
MenuBar:=False, _
Temporary:=True)
Set my_Ctrl = myCBCtrl.Controls.Add(Type:=msoControlButton)
With my_Ctrl
.Caption = "新マクロ1"
.OnAction = "UserMarco"
End With
myCBCtrl.Visible = True
End Sub
Public Sub UserMarco()
MsgBox Time
End Sub
お礼
ありがとうございます すみません、私にはハードルが高すぎる無いようです。 理解できなくてすみません。 まずはあらかじめ「ふりわけ.xla」を別ロケの2名にメールで送って、 ツール → アドイン → 「ふりわけ.xla」に「レ」を やってもうこととします。 そして私が二人に「sheet1の全国の名簿」に相当するファイルを 毎月送る時に、ボタン代わりのオートシェイプをsheet1に作って おこうかと考えています。そのつどVBE画面を開いて、コードを こぴぺする手間だけは省きたいのです。 私は素人ゆえ、この方法より難しいことは無理かもしれません。 ひとまず、コレでやってみようと思います。