Excel 프로그래밍 시 선택 항목을 없음으로 설정

Excel 프로그래밍 시 선택 항목을 없음으로 설정

range.copy 및 range.paste를 사용한 후 그래프를 만들면 붙여넣기 범위가 선택된 상태로 유지되고 몇 줄 후 그래프를 만들면 그래프의 첫 번째 열로 선택 항목이 사용됩니다.시리즈를 삭제할 수는 있지만, 더 우아한 방법이 있을까요?나는 노력했다.

Set selection = nothing

하지만 제가 선택을 할 수는 없어요selection.clear도 시도했지만 마지막으로 선택한 셀을 삭제하고 플롯에 추가 영상 시리즈를 추가했습니다.

Application.CutCopyMode = False

Cells(1,1).Select

그러면 셀 A1로 이동하여 기존 선택을 취소합니다.

그냥 사용하기

키 "{ESC}" 전송

선택을 취소합니다.

셀을 선택하고 복사 모드를 끕니다.

Range("A1").Select
Application.CutCopyMode = False

문제를 해결할 수 있는 항목을 선택할 수 있는 방법이 있습니다.

1. 도형 만들기(직사각형 하나)
2. Shapes Database >>>에서 이름을 지정합니다. 예: "Ready"
3. MYDOC를 참조하십시오.모양을 만들고("Ready") 가시성을 False로 변경합니다.

Excel SELECT NOTHING(아무것도 선택 안 함)을 원할 때는 다음을 수행합니다.

MYDOC.Shapes("Ready").visible=True
MYDOC.Shapes("Ready").Select
MYDOC.Shapes("Ready").visible=False

선택한 항목을 숨기고 창에서 선택한 항목을 숨깁니다. 플러스: 시트의 왼쪽 상단에 "Ready"라는 단어가 표시됩니다.

마지막에 이 코드를 사용하면 됩니다. (False 사용 안 함)

Application.CutCopyMode = True

나는 이것이 이루어질 수 있다고 생각하지 않습니다.다음은 Chip Pearson의 사이트 http://www.cpearson.com/excel/UnSelect.aspx 에서 수정 없이 복사한 코드입니다.

활성 셀 선택 취소

이 절차에서는 선택 항목에서 활성 셀을 제거합니다.

Sub UnSelectActiveCell()
    Dim R As Range
    Dim RR As Range
    For Each R In Selection.Cells
        If StrComp(R.Address, ActiveCell.Address, vbBinaryCompare) <> 0 Then
            If RR Is Nothing Then
                Set RR = R
            Else
                Set RR = Application.Union(RR, R)
            End If
        End If
    Next R
    If Not RR Is Nothing Then
        RR.Select
    End If
End Sub

현재 영역 선택 취소

이 절차에서는 선택 항목에서 활성 셀이 포함된 영역을 제거합니다.

Sub UnSelectCurrentArea()
    Dim Area As Range
    Dim RR As Range

    For Each Area In Selection.Areas
        If Application.Intersect(Area, ActiveCell) Is Nothing Then
            If RR Is Nothing Then
                Set RR = Area
            Else
                Set RR = Application.Union(RR, Area)
            End If
        End If
    Next Area
    If Not RR Is Nothing Then
        RR.Select
    End If
End Sub

당신의 제안을 모두 시도했지만, 운이 없었습니다. 하지만 여기 제게 효과적인 아이디어가 있습니다. 당신의 선택 범위에서 셀을 선택한 다음(예: AAA1000000) A1을 다시 선택합니다.

범위("AAA1000000").작동시키다

범위("A1").작동시키다

사내

select 및 CutCopyMode 속성을 사용하는 Excel 2007에서는 모든 선택 항목을 재설정할 수 있습니다.그것은 제 사용 사례에 효과가 있었습니다.

Application.CutCopyMode = xlCopy
ActiveSheet.Range("A" & lngRow).Select

마두르에 대하여

저는 Excel 2013에서 이 문제를 겪었습니다.저는 "냉동판" 세트를 가지고 있었는데, 이것이 문제를 일으켰습니다.고정된 창을 제거했을 때 문제가 해결되었습니다.

이미 선택한 범위에서 셀을 선택하면 작동하지 않습니다.그러나 원래 선택 영역 밖의 범위를 선택하면 원래 선택 영역이 지워집니다.

원래 선택한 *' ActiveSheet.range("A1:K10").선택한다.

새 선택 항목 *' 활성 시트.범위("L1").선택한다.

다음으로 *' 활성 시트입니다.범위("A1").선택한다.

Sub MyFunc()

    Range("B6").Select

    Selection.Locked = True

End Sub

설정할 수 있습니다.Application.ScreenUpdating = False 않는 곳에서 셀을 한 후 합니다..ScreenUpdating한 셀은 .이렇게 하면 적어도 현재 보기에서 선택한 셀이 표시되지 않습니다.

Selection(1, 1).Select현재 선택한 항목의 왼쪽 상단 셀만 선택합니다.

버튼을 사용하여 붙여넣기 절차를 호출하는 경우,

작업 후 버튼을 활성화해 보십시오.선택 항목을 성공적으로 지웁니다.

없이.

• 숨겨진 것들을 가지고 놀아야 하는 것
• 다른 셀 선택(요청된 것과 정확히 반대)
• 클립보드 모드에 영향을 주기
• 항상 효과가 있는 것은 아닌 탈출구를 누르는 구식 방법을 가지고 있습니다.

HTH

Sub BtnCopypasta_Worksheet_Click()
   range.copy
   range.paste
BtnCopypasta.Activate
End sub

HTH

많은 답변 중에 하나도 없습니다.Application.CutCopyMode또는.Select저를 위해 일했습니다.

하지만 여기에 게시되지 않은 솔루션을 발견했는데, 이 솔루션은 저에게 환상적으로 효과가 있었습니다.

StackExchange SuperUser: Excel VBA "선택 취소"가 필요합니다.

정말로 '아무것도 선택하지 않음'을 원하는 경우 코드 실행이 끝날 때 VBA를 사용하여 시트를 보호할 수 있으며, 이로 인해 아무것도 선택되지 않습니다.이것을 매크로에 추가하거나 VBA에 직접 넣을 수 있습니다.

Sub NoSelect()
   With ActiveSheet
   .EnableSelection = xlNoSelection
   .Protect
   End With
End Sub

시트가 보호 해제되는 즉시 커서가 셀을 활성화합니다.

이것이 같은 문제를 가진 누군가에게 도움이 되기를 바랍니다!

다음과 같이 문을 수행합니다.

ActiveSheet.Cells(ActiveWindow.SplitRow+1,ActiveWindow.SplitColumn+1).Select

언급URL : https://stackoverflow.com/questions/292779/setting-selection-to-nothing-when-programming-excel