VBA 코드가 있는 특정 셀을 클릭하여 매크로를 트리거하거나 실행하면 작동하지 않습니다. 여러 방법을 시도해 보았지만 약속한 바를 이루지 못했습니다.

여러 매크로, 같은 페이지에서 다른 매크로를 실행하는 셀을 갖고 싶다면 가능합니까?

이것은 완벽하게 작동했으며 많은 시간을 절약할 수 있습니다. 지식을 공유해 주셔서 감사합니다. 대단히 감사합니다!

엄청난. 잘쓰고있습니다...감사합니다....

고맙지만 병합된 셀은 어떻습니까?

저는 OpenOffice를 사용하고 있으며 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 이벤트를 선택한 다음 MyMacros에서 이 매크로를 선택했습니다. 그러나 다음 줄에서 오류가 발생합니다. If Selection.Count = 1 Then >>> "기본 런타임 오류, 변수가 정의되지 않았습니다...

이 매크로의 전체 코드는 다음과 같습니다.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

문자열로 Dim val
REM 값 = 범위("A2").값

Selection.Count = 1이면
If Not Intersect(Target, Range("D24")) is nothing then
REM 콜 마이매크로
값 = 범위("D24").값
범위("B27").값 = 값
END IF
END IF
최종 하위

Excel 2002(XP): "파일"을 선택하고 "Shift"를 눌러 통합 문서를 열면 해당 시트의 매크로가 비활성화됩니다. 문제는 "도구 > 매크로 > 매크로..."를 선택하면 매크로를 실행할 수 있다는 것입니다. 어쨌든 해결 방법은?

감사합니다. 하지만 여러 매크로를 실행하기 위해 클릭하기 위한 여러 셀은 어떻습니까?

이 코드에 감사드립니다. 다른 셀과 병합된 셀을 클릭하여 작동하도록 할 수 있습니까?

안녕하세요, 이 코드를 사용하여 붙여넣기 매크로를 실행하려고 했지만 매크로를 올바르게 붙여넣는 방법을 알 수 없는 것 같습니다.

여기 내 원래 Marco가 있습니다

하위 붙여넣기()
'
' 매크로 붙여넣기
'

'
범위 ( "B34"). 선택
ActiveSheet.PasteSpecial 형식:="HTML", 링크:=거짓, DisplayAsIcon:= _
거짓, NoHTMLFormatting:=True
최종 하위


어떤 도움에 감사드립니다

안녕하세요, 흥미로운 주제에 감사드립니다. 예를 들어 Sheet4에서 D1를 클릭하고 Sheet2!F3에서 Macro의 결과를 보려면 어떻게 합니까?

매크로는 워크시트에서만 실행된다는 점을 강조하는 것이 중요합니다.
일반 Visual Basic 편집기를 사용하는 사람들은 종종 현재 워크시트가 아닌 다른 위치에 매크로를 저장하게 됩니다.
이러한 코드는 그 상황에서 작동하지 않습니다.
이 코드가 훨씬 더 간단하고 저에게 매우 잘 작동합니다. 

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Range("d1"), Target) is nothing then
전화해
END IF
최종 하위
Sub aa() ' 여기에 코드를 넣으십시오.
범위("D1").선택
선택. 복사
범위("F1").선택
ActiveSheet.PasteEnd Sub
존 웰스
jnw.wells@gmail.com

병합된 셀에 대해 이것이 작동하도록 하려는 경우 가장 빠르고 더러운 방법은 다음과 같이 Line 2를 업데이트하는 것입니다.
옵션 명시적

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Count > 0이면
If Not Intersect(Target, Range("D4")) is nothing then
마이매크로 호출
END IF
END IF
End SubSelection.Count는 나머지 매크로를 실행하기 전에 선택되었는지 확인하는 데 사용됩니다. 선택 항목이 병합된 4개의 셀로 구성된 경우 Selection.Count는 2가 되고 나머지 코드는 실행되지 않습니다. XNUMX행을 병합된 정확한 셀 수로 변경할 수도 있지만 다음과 같은 경우 문제가 발생합니다. 추가 셀을 병합합니다.

그란디오소! Grazie, era una vita che sognavo di poterlo fee, 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 명시적 altrimente ci viene detto che il riferimento al
워크시트 non è univoco. Mi spiego meglio evidencemente su come ho adattato il codice con il mio empio;

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Count = 1이면
If Not Intersect(Target, Range("Y64")) is nothing then
범위("Y65:Y78").선택
범위("Y65").활성화
Selection.ClearContents
범위("Y65").선택
END IF
If Not Intersect(Target, Range("A33")) is nothing then
범위 ( "A33"). 선택
선택. 복사
ActiveWindow.WindowState = xlMinimized
SendKeys "^v"
SendKeys "{BACKSPACE}"
END IF
END IF
최종 하위

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 del funcional porque del fichero, las celdas se van a mover de sitio (se han podido insertar, mas o menos filas encima). Necesitaría poder saber que celda es la que se ha seleccionado.
Hay alguna manera de poder hacer eso?
사전에 감사합니다.