人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です。

エクセル2007上でできているマクロをその都度マクロ記述をしないで
ボタンなどに登録して簡単に実行できる方法はありますか。複数のマクロです。
作成ファイルはその都度変わります。

●質問者: inosisi
●カテゴリ:コンピュータ インターネット
✍キーワード:エクセル ファイル ボタン マクロ 作成
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● うぃんど
●35ポイント

自作マクロをアドインとして登録する方法があります

http://msdn.microsoft.com/ja-jp/library/cc668205.aspx

http://www.asahi-net.or.jp/~ef2o-inue/haifu/sub06_030.html

上記の例を参考にマクロをアドインとして登録して使えるようにした後で、マクロ呼び出しボタンをツールバーへ登録すれば、お望みのものになります

◎質問者からの返答

ありがとうございます。

参考にさせていただきます。


2 ● nanntenn
●35ポイント

右クリックメニューに追加はどうですか。

Office TANAKA - Excel VBA Tips[右クリックメニューに追加]

(1)全てのファイルで利用出来るように、作成済マクロを

個人マクロブック(personal.xls)に保存しておく。

(2)右クリックメニューに追加する。

(3)どんなファイルであっても右クリックメニューからマクロを呼び出せる。


(参考)

personal.xlsに下記のような表を作成して下記のコードを実行。

→表の画像

Public Sub 右クリック追加()
Dim lastRow As Long, n As Long, Menu As String, Act As String

'右クリックメニューをリセット
CommandBars("cell").Reset

'○印の数をカウント
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
n = WorksheetFunction.CountIf(Range("B4:B" & lastRow), "○")

If n = 0 Then
 MsgBox "右クリックメニューを削除しました"
 Windows("personal.xls").Visible = False
 Exit Sub
End If

For i = lastRow To 5 Step -1
 
 If Range("B" & i).Value = "○" Then
 Menu = Range("B" & i).Offset(0, 1).Value
 Act = Range("C" & i).Offset(0, 1).Value
 
 With CommandBars("Cell").Controls.Add(before:=1)
 .Caption = Menu
 .OnAction = Act
 End With
 End If
Next i

MsgBox "右クリックメニューに追加しました。"
Windows("personal.xls").Visible = False
SendKeys "+{F10}", True

End Sub
◎質問者からの返答

ありがとうございます。

参考にさせていただきます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ