0

このように見つかったコードを検索すると

Sub Workbook_Activate()
Application.OnKey "+^{RIGHT}", "YourMacroName"
End Sub

しかし、試してみると、

ここに画像の説明を入力

手順を作成するには？

これは私がしました

Sub YourMacroName()
   Selection.Copy
   Sheets("V").Select
End Sub

Sub Workbook_Activate()
Application.OnKey "+^{RIGHT}", "YourMacroName"
End Sub

同じエラーが発生しました

正しいコードは何ですか？または、ダミーのチュートリアルはどこにありますか? いくつかの例が見つかりましたが、機能しません

タグが および に変更されていることがわかりexcelますexcel-vba。でもエクセルは使いません。Kingsoft Office を使用する

Application.OnKey "+^{RIGHT}", "YourMacroName"に変更.OnKey Key:="^+M", Procedure:="YourMacroName"

そして得た

ここに画像の説明を入力

その後、OnKey Key:="^+M", Procedure:="YourMacroName"(削除された.) に変更され、エラーが発生しましNamed argument not foundた。そして選ばれるKey:=

4

1 に答える 1

1

「ThisWorkbook」では、イベントによってトリガーされるコードを実行します。ショートカットを一度だけ保存する必要があるため、Workbook_Open代わりにそれを入れることをお勧めします。Workbook_Activate

そのため、VB エディターで [プロジェクト エクスプローラー] を開き (CTRL+R)、フォルダー [Microsoft Excel Objects] で [ThisWorkbook] を見つけます。ここで、コードは次のようになります

Private Sub Workbook_Open()

    ' CTRL + SHIFT + RIGHT
    Application.OnKey "+^{RIGHT}", "YourMacroName"

End Sub

モジュール内 (プロジェクト エクスプローラーで "Modules" フォルダーを右クリックし、[挿入] > [モジュール] を選択) から、マクロ "YourMacroName" を配置します。

Sub YourMacroName()
   Selection.Copy
   Sheets("V").Select
End Sub

ああ、おそらくプロシージャの名前を「YourMacroName」に変更して、より明白なものにする必要があります...

于 2013-12-15T12:04:29.400 に答える