Excel

1 Risposte

• T

  toni1705

  Utente Attivo

  Iscritto da

  ago, 2018

  Messaggi:

  81

  Re: Excel

  26 ott 2018, 22:32

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Static TheFormula As String
      If Target.Address = "$A$1" Then
          With Target
              TheFormula = .Formula
              .Value = .Value
          End With
      Else
          With Range("A1")
              If Not .HasFormula Then
                  .Formula = TheFormula
              End If
          End With
      End If
  End Sub

  Ho un codice di questo genere solo che invece di nascondeere solo la cella A1 vorrei selezionare un Range ( che parte da a1 e arrivi a D10 esempio A1:D10) mi aiutate a modificarlo?