[[20140228190119]]　『右クリックメニューからのマクロが実行できません』（てるてる坊主）　ページの最後に飛ぶ

『右クリックメニューからのマクロが実行できません。』（てるてる坊主）

このマクロを実行すると、

「マクロ'入れ替えマクロ.xlsm!Sample'を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。」

と表示されます。

マクロダイアログ（実行とかステップインのボタンがあるダイアログ）から、マクロ名を指定して、実行すると実行されます。

ファイル名は、"入れ替えマクロ.xlsm"です。その後ろの!Sampleというのが意味不明です。

以下がマクロの中身です。
やりたいことは、選択されている２つのセルの中身を入れ替えることです。右クリックメニューの中の「入れ替え」をクリックすると、入れ替わるようにしたいのですが…。よろしくお願いします。

Sub AddMenu()

    Dim Newb
    Set Newb = Application.CommandBars("Cell").Controls.Add()
    With Newb
        .Caption = "入れ替え"
        .OnAction = "exchange"
        .BeginGroup = False
    End With
End Sub
Sub exchange()
Dim i As Integer
i = 1
Dim temp(3) As String

Dim cell As Range

If Selection.Count = 2 Then

    For Each cell In Selection
            temp(i) = cell.Value
        i = i + 1
    Next cell

    i = 1

    For Each cell In Selection

        If i = 1 Then
            cell.Value = temp(2)
        ElseIf i = 2 Then
            cell.Value = temp(1)
        End If

        i = i + 1
    Next cell
End If

End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 ボタンのマクロの割り当てがマクロ.xlsm というファイルのSampleを実行するように
 設定されているからです。
 ボタンのマクロ設定をやり直してください。
（Mook） 2014/03/01(土) 08:30

一旦右クリックメニューを削除して、
再度登録すればいいのでは？

Sub 右クリックメニュ登録削除()

Application.CommandBars("cell").Reset

End Sub

（ゆず） 2014/03/02(日) 12:20

コメント返信：

[ 一覧(最新更新順) ]

[[20140228190119]] 『右クリックメニューからのマクロが実行できません』（てるてる坊主） ページの最後に飛ぶ

[[20140228190119]]　『右クリックメニューからのマクロが実行できません』（てるてる坊主）　ページの最後に飛ぶ