¿Cómo configuro la selección en Nada cuando programo Excel usando VBA?

Question

Cuando creo un gráfico después de usar range.copy y range.paste deja el rango de pegado seleccionado, y luego cuando creo un gráfico unas líneas más tarde, usa la selección como la primera serie en el gráfico. Puedo eliminar la serie, pero ¿hay una manera más elegante de hacer esto? Probé

Set selection = nothing 

pero no me deja configurar la selección. También probé selection.clear, pero eso solo borró las últimas celdas que fueron seleccionadas, y aún agregué una serie extra a la trama.

Answer 1

Cells(1,1).Select 

Se le llevará a la celda A1, cancelando así su selección existente.

Answer 2

No creo que esto se pueda hacer. Aquí hay un código copiado sin modificaciones del sitio de Chip Pearson: http://www.cpearson.com/excel/UnSelect.aspx.

UnSelectActiveCell

Este procedimiento eliminará la celda activa de la selección.

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 

UnSelectCurrentArea

Este procedimiento eliminará el área que contiene la celda activa de la selección.

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 

Answer 3

Puede establecer el Application.ScreenUpdating = False y seleccionar una celda fuera de la vista y luego establecer el .ScreenUpdating en verdadero. Esto al menos no mostraría ninguna celda seleccionada en la vista actual.

Answer 4

Application.CutCopyMode = False 

Answer 5

En Excel 2007, una combinación que utiliza la propiedad de selección y CutCopyMode, es posible restablecer todas las selecciones. Funcionó para mi caso de uso.

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

Saludos Madhur

Answer 6

Hay una manera de seleccionar NADA que resolver su problema.

1. Crear una forma (un rectángulo)
2. nombre en la base de datos Formas >>> por ejemplo: "listo"
3. se refieren a ella MYDOC.Shapes ("Ready") y cambiar la visibilidad en False

Cuando se desea que Excel no seleccione nada que hacer:

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

Este ocultar la selección y nada aún seleccionada en ti r ventana MÁS: La palabra "Listo" se muestra en la parte superior izquierda de su Hoja.

Answer 7

sólo tiene que utilizar

SendKeys "{ESC}"

cancelando así su selección.

Answer 8

Seleccione cualquier celda y desactive el modo copiado.

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

Answer 9

Selection(1, 1).Select seleccionará sólo la celda superior izquierda de la selección actual.

Answer 10

Si se utiliza un botón para llamar al procedimiento pasta,

intento de activar el botón después de la operación. esto aclara con éxito la selección

sin

• tener que perder el tiempo con cosas ocultas
• seleccionar otra célula (que es exactamente lo contrario de lo que se pidió)
• que afecta el modo de portapapeles
• tener el método hacky de presionar escape que no siempre funciona

HTH

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

HTH

Answer 11

intentado todas sus sugerencias, sin suerte, pero aquí está una idea que funcionó para mí seleccionar una celda fuera de su rango de selección (por ejemplo AAA1000000) y luego seleccione la A1 nuevo

Range ("AAA1000000"). Activar

Range ("A1"). Activar

individuo

Answer 12

Tuve este problema con Excel 2013. Tenía el juego "congelar paneles", lo que causó el problema. El problema se resolvió cuando eliminé los paneles congelados.

Answer 13

Simplemente puede usar este código al final. (No use False)

Application.CutCopyMode = True