VBAコードを含む特定のセルをクリックしてマクロをトリガーまたは実行すると、これを機能させることができませんでした。 私はそれを多くの異なる方法で試しましたが、約束されたものを達成することはできませんでした。

複数のマクロが必要な場合、同じページで異なるマクロを実行しているセル-それは可能ですか？

これは完璧に機能し、時間を大幅に節約できます。知識を共有していただきありがとうございます。

素晴らしい。 それはうまく機能しています...ありがとう....

ありがとう、しかしマージされたセルはどうですか？

私はOpenOfficeを使用していて、シートタブを右クリックしてイベントを選択し、MyMacrosからこのマクロを選択しました。ただし、次の行でエラーが発生します。If Selection.Count = 1 Then >>> "Basic runtime error、変数が定義されていません...

このマクロの私の完全なコードは次のとおりです。


Private Sub Worksheet_SelectionChange（ByVal Target As Range）

Dim val As String
REM val = Range（ "A2"）。Value

Selection.Count=1の場合
交差しない場合（Target、Range（ "D24"））は何もありません
REMはMyMacroに電話します
val = Range（ "D24"）。Value
Range（ "B27"）。Value = val
終了する場合
終了する場合
End Subの

Excel 2002（XP）：[ファイル]を選択して[Shift]キーを押してブックを開くと、そのシートのマクロが無効になります。問題は、[ツール]>[マクロ]>[マクロ...]を選択するとマクロを実行できることです。とにかく、どのように解決するのですか？

ありがとう、しかしいくつかのマクロを実行するためにクリックするためのいくつかのセルはどうですか。

このコードをありがとう。 他のセルと結合されているセルをクリックして、これを機能させることはできますか？

こんにちは、私はこのコードを使用して貼り付けマクロを実行しようとしましたが、マクロを正しく貼り付ける方法を理解できないようです。

これが私のオリジナルのマルコです

サブペースト（）
'
'マクロの貼り付け
'

'
Range（ "B34"）。選択
ActiveSheet.PasteSpecial Format：= "HTML"、Link：= False、DisplayAsIcon：= _
False、NoHTMLFormatting：= True
End Subの


どんな助けでも大歓迎です

こんにちは、おもしろいテーマをありがとうございます。 たとえば、Sheet4のD1をクリックして、Sheet2！F3のマクロの結果を確認したい場合はどうでしょうか。

マクロはワークシートでのみ実行されることを強調することが重要です。
通常のVisualBasicEditorを使用している人は、現在のワークシート以外の場所にマクロを保存することになります。
これらのコードはいずれもその状況では機能しません。
このコードははるかに単純で、私にとっては非常にうまく機能します。 

Private Sub Worksheet_SelectionChange（ByVal Target As Excel.Range）
交差しない場合（範囲（ "d1"）、ターゲット）は何もありません
aaに電話する
終了する場合
End Subの
Sub aa（）'ここにコードを入れてください
Range（ "D1"）。Select
選択。コピー
Range（ "F1"）。Select
ActiveSheet.PasteEnd サブ
ジョン·ウェルズ
jnw.wells@gmail.com

マージされたセルでこれを機能させたい場合、最も速くて汚い方法は、次のように2行目を更新することです。
オプション明示

Private Sub Worksheet_SelectionChange（ByVal Target As Range）
Selection.Count>0の場合Then
交差しない場合（Target、Range（ "D4"））は何もありません
MyMacroに電話する
終了する場合
終了する場合
End SubSelection.Countは、残りのマクロを実行する前に選択が行われたかどうかを判別するために使用されています。 選択範囲がマージされた4つのセルで構成されている場合、Selection.Countは2に等しく、残りのコードは実行されません。XNUMX行目をマージされたセルの正確な数に変更することもできますが、これにより問題が発生します。追加のセルをマージします。

グランディオーゾ！ Grazie, era una vita che sognavo di poterlo fare, se può essere utile a qualcuno avendo necessità di eseguire più codici su più celle per
aumentare il numero di opzioni basta aggiungere le nuove istruzionisempre sotto la stessa option explicit altrimente ci viene detto che il riferimento al
ワークシート non è univoco. Mi spiego meglioouncemente su come ho adattato il codice con il mio esempio;

Option Explicit
Private Sub Worksheet_SelectionChange（ByVal Target As Range）
Selection.Count=1の場合
If Not Intersect(Target, Range("Y64")) Is Nothing Then
範囲("Y65:Y78").選択
Range("Y65").Activate
Selection.ClearContents
範囲("Y65").選択
終了する場合
交差しない場合（Target、Range（ "A33"））は何もありません
Range（ "A33"）。Select
選択。コピー
ActiveWindow.WindowState = xlMinimized
SendKeys "^v"
SendKeys "{BACKSPACE}"
終了する場合
終了する場合
End Subの

Grazie ancora è stata un'autentica meraviglia!

マッシモ

そのタイトルについては何の期待もしていませんでしたが、もっと驚きました。 著者は素晴らしい仕事をしました。 私は事実を読んでチェックするのに数分を費やしました。 すべてが非常に明確で理解しやすいです。 私はあなたの知識のギャップを埋める投稿が好きです。 これは一種です。

こんにちは、

encuentro la manera de hacer lo que necesito はありません。 Espero de veras que me podáis ayudar.
Necesito que se lance una MACRO al hacer clic en una celda, pero no sé en qué celda va a ser, no lo puedo comparar con (si se ha seleccionado la celda A3, por ejemplo, que se lance la acción) porque por funcionalidades del fichero, las celdas se van a mover de sitio (se han podido insertar, mas o menos filas encima). セイバー ケセルダ エス ラ ケ セ ハ セレクシオナードが必要です。
Hay alguna manera de poder hacer eso?
事前にどうもありがとうございました。