Results of 1 - 1 of about 27303 for マクロ (0.014 sec.)
- [[20140228190119]]
- #score: 2167
- @digest: e19540efda871d9d39aa27de03b38e10
- @id: 64607
- @mdate: 2014-03-02T03:20:14Z
- @size: 1813
- @type: text/plain
- #keywords: ロ. (9083), exchange (8179), ュ登 (7748), 旦右 (7748), 録削 (6766), newb (6058), addmenu (5293), begingroup (4213), 坊主 (3899), ロ' (3878), クメ (3854), 度登 (3759), えマ (3022), ロ設 (2593), ロダ (2545), cell (2347), commandbars (2035), onaction (1248), れ替 (1203), temp (1101), 除() (1051), メニ (932), ロ名 (910), 右ク (894), 味不 (890), ニュ (836), マク (828), クロ (744), 中身 (715), アロ (699), 実行 (676), ダイ (664)
- 『右クリックメニューからのマクロが実行できません。』（てるてる坊主）
このマクロを実行すると、 「マクロ'入れ替えマクロ.xlsm!Sample'を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。」 と表示されます。 マクロダイアログ（実行とかステップインのボタンがあるダイアログ）から、マクロ名を指定して、実行すると実行されます。 ファイル名は、"入れ替えマクロ.xlsm"です。その後ろの!Sampleというのが意味不明です。 以下がマクロの中身です。 やりたいことは、選択されている2つのセルの中身を入れ替えることです。右クリックメニューの中の「入れ替え」をクリックすると、入れ替わるようにしたいのですが…。よろしくお願いします。 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... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201402/20140228190119.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97054 documents and 608269 words.
訪問者：