Note: The other languages of the website are Google-translated. Back to English

Excel에서 스크롤 할 때 차트를 항상보기에 유지하는 방법은 무엇입니까?

시트에 차트가 삽입되어있는 경우 데이터를보기 위해 시트를 아래로 스크롤하는 동안 차트는 아래에 표시된 스크린 샷과 동시에 볼 수 없으며 이는 불쾌해야합니다. 이 기사에서는 시트를 아래 또는 위로 스크롤하더라도 차트를 항상보기에 유지하는 VBA 코드를 소개합니다.

문서보기에서 차트 유지 1
문서 아래쪽 화살표
문서보기에서 차트 유지 2

항상 차트보기


화살표 블루 오른쪽 거품 항상 차트보기

시트를 스크롤하는 동안 차트를 유지하려면 VBA 코드 아래에 적용하여 해결할 수 있습니다.

1. 차트를 계속 표시 할 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 컨텍스트 메뉴를 형성합니다. 스크린 샷보기 :
문서보기에서 차트 유지 3

2. 터지는 응용 프로그램 용 Microsoft Visual Basic 창에서 코드 아래 빈 스크립트에 붙여 넣습니다.

VBA : 차트를 항상보기에 유지

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

문서보기에서 차트 유지 5

3. 대화 상자를 저장하고 닫으면 셀을 클릭 할 때 차트가 아래 또는 위로 이동합니다.
문서보기에서 차트 유지 6

배송 시 요청 사항:

(1) VBA 코드에서 Chart 2는 유지하려는 차트 이름이며 필요에 따라 변경할 수 있습니다.

(2)이 VBA는 항상 차트 그룹을 볼 수있는 것은 아닙니다.


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (14)
4.75에서 평가 된 5 · 2 등급
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것도 좋았는데 제목줄처럼 스크롤 휠로 그냥 움직이는 방법이 있었으면 하는 바램입니다. 또한 셀을 선택하려면 두 번 클릭해야 합니다. 첫 번째 클릭은 차트를 이동하지만 차트도 선택하므로 셀을 선택하려면 다시 클릭해야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드의 마지막 줄에 "activecell.select"를 추가하고 더블 클릭 문제를 해결했습니다. 차트를 이동하기 위해 클릭한 마지막 활성 셀이 자동으로 선택됩니다. 도움이 되었기를 바랍니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것이 내가 필요로 하는 것입니다! 골든!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 매크로는 내가 원하는 것을 정확히 수행했습니다. 그러나 그것은 당신이 해결책을 가지고 있는지 궁금해하는 또 다른 문제를 만들었습니다.

이 매크로가 활성화되어 있는 동안 서식 지정 또는 병합과 같은 다른 목적으로 셀을 선택할 수 없습니다. 클릭 및 드래그, Shift 또는 Ctrl 키를 눌러 셀 그룹을 선택합니다. 내가 클릭한 하나의 셀만 선택할 수 있습니다. 나는 자주 서식(배경, 수식 채우기 등)을 변경하고 싶습니다. 이렇게 할 수 있는 유일한 방법은 매크로를 삭제하고, 저장하고, 서식을 변경하고, 매크로를 다시 붙여넣고 저장하는 것입니다.

이 작업을 수행하는 더 간단한 방법이 있습니까? 혹시:

1. (선호) 매크로를 일시적으로 비활성화했다가 다시 활성화하는 간단한 키 입력.

2. 셀 그룹을 선택할 수 있도록 매크로에 일부 코드가 추가되었습니다.

데니스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Google 스프레드시트용으로 작성할 수 있는 유사한 수식이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
차트가 재배치될 시트의 높이를 제한하는 방법이 있습니까? 나는 그것이 8행 위에 붙는 것을 원하지 않는다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hola muchas gracias por el codigo, utilizando este codigo ¿ Hay alguna manera de limitar qué tan alto en la hoja se reubicará el grafico? por ejemplo, no quiero que se coloque encima de la fila 9. Ayuda por favour.
5에서 평가 된 5
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Kutools를 사용하여 내 차트에 해당 VBA를 자동으로 사용할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
죄송합니다. Wangnuli, Kutools는 지금까지 이것을 지원하지 않았습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
누구든지 도울 수 있습니까? 이 단계를 따를 때


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'업데이트바이Extendoffice20161111
CPos를 Double로 흐리게
Application.ScreenUpdating = False
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("차트 2").활성화
ActiveSheet.Shapes("차트 2").Top = CPos
ActiveWindow.Visible = 거짓
Application.ScreenUpdating = True
최종 하위


나는 다음과 같은 오류가 발생

런타임 오류 '-2147024809(80070057)':
지정된 이름의 항목을 찾을 수 없습니다.

내가 디버그할 때
ActiveSheet.ChartObjects("차트 2").활성화
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Christo, 스크립트에서 차트 이름 "차트 2"를 실제 차트 이름으로 변경해야 합니다. 차트를 클릭하고 이름 상자에서 해당 이름을 볼 수 있습니다. 스크린샷 보기:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
네 감사합니다. 질문을 한 후 내 차트 이름이 잘못되었다는 것을 깨달았습니다.
감사

PS.
차트를 따라야 하는 위치를 클릭하지 않고 스크롤할 때 차트를 계속 볼 수 있게 만드는 방법을 알고 계십니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀 선택을 취소하는 데 문제가 발생하여 두 개의 차트가 필요했습니다. 그래서 몇 가지 변경을 했고 지금은 작동하는 것 같습니다.
그것을 사용하려면 올바른 차트 이름을 입력하십시오.
*참고: 이것은 두 개의 차트에 대한 것입니다.


Private Sub worksheet_selectionchange(ByVal target As Range)
Dim 차트 위치를 Double로

차트 위치 = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes("차트 2").Top = 차트 위치

ActiveSheet.ChartObjects("차트 3").Top = 차트 위치 + 250

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
A mí me pasa que la siguiente vez que abro el archivo, el script ya no funciona. Tengo que copiarlo, borrarlo, cerrar el archivo tras guardarlo, volver a abrir el archivo y volver a pegar el script en VBA. ¿알구나 솔루션?
4.5에서 평가 된 5
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호