View source for Windows7:Excel

=Inserire ComboBox\DropDownList=
Per inserire delle DropDownList (finestre a scomparsa) con valori prefissati ed evitare inserimenti errati.<br />
La funzione è disponibile sotto la voce di menu principale "Data" e poi l'icona associata al "Data Validation"
==Metodo 1==
[[File:MS_Excel_Data_Validation_01.png|none]]

==Metodo 2==
Il contenuto di una DropDownList può essere memorizzato in una variabile che conterrà il contenuto di una regione di celle messa in uno sheet apposta (vedi Dictionary)
[[File:MS_Excel_Data_Validation_02.png|none]]
Notare che la regione selezionata nella colonna C è associata alla variabile "Report_PagesNames"
[[File:MS_Excel_Data_Validation_03.png|none]]
La variabile "Report_PagesNames" è quindi usata per definire la DropDownList:
[[File:MS_Excel_Data_Validation_04.png|none]]

=Macro=
Usate per creare degli script di elaborazione dei dati presenti nei fogli di un file Excel.<br />
==Abilitazione==
Occorre prima di tutto abilitare lo sviluppo delle Macro quindi: 
* cliccare tasto dx sul "Ribbon" sulla tool bar orizzontale
* selezionare "Customize the ribbon..."
* nel riquadro di dx del popup aperto mettere il check su "Developer"
[[File:MS_Excel_Macro_01.png|none]]
poi
[[File:MS_Excel_Macro_02.png|none]]
quindi inserire un pulsante e la macro (Script in VBA) associata all'evento click:
[[File:MS_Excel_Macro_03.png|none]]
a questo punto andare sul foglio Excel e disegnare il pulsante, si aprirà un popup in cui si potrà definire il nome dell'handler di gestione dell'evento Click sul pulsante ed infine cliccare sul pulsante Edit.
[[File:MS_Excel_Macro_04.png|none]]
Si aprirà l'editor di codice e si potrà inserire codice VisualBasic per gestire l'evento click sul nuovo pulsante "Button 5"
[[File:MS_Excel_Macro_05.png|none]]
Se non si dovesse riuscire a lavorare ovvero aprire l'editor verificare che il pulsate "Design Mode" in toolbar (Ribbon) sia attivo:
[[File:MS_Excel_Macro_06.png|none]]
=Macro=
Usate per creare degli script di elaborazione dei dati presenti nei fogli di un file Excel.<br />
==Abilitazione==
Occorre prima di tutto abilitare lo sviluppo delle Macro quindi: 
* cliccare tasto dx sul "Ribbon" sulla tool bar orizzontale
* selezionare "Customize the ribbon..."
* nel riquadro di dx del popup aperto mettere il check su "Developer"
[[File:MS_Excel_Macro_01.png|none]]
poi
[[File:MS_Excel_Macro_02.png|none]]
quindi inserire un pulsante e la macro (Script in VBA) associata all'evento click:
[[File:MS_Excel_Macro_03.png|none]]
a questo punto andare sul foglio Excel e disegnare il pulsante, si aprirà un popup in cui si potrà definire il nome dell'handler di gestione dell'evento Click sul pulsante ed infine cliccare sul pulsante Edit.
[[File:MS_Excel_Macro_04.png|none]]
Si aprirà l'editor di codice e si potrà inserire codice VisualBasic per gestire l'evento click sul nuovo pulsante "Button 5"
[[File:MS_Excel_Macro_05.png|none]]
Se non si dovesse riuscire a lavorare ovvero aprire l'editor verificare che il pulsate "Design Mode" in toolbar (Ribbon) sia attivo:
[[File:MS_Excel_Macro_06.png|none]]
==Linguaggio==
===Controllo del flusso===
IF THEN ELSE
<syntaxhighlight lang="QBasic">
If Range("A1") > 100 Then
Range("B1").Value = 1
ElseIf Range("A1") > 50 Then
Range("B1") = 0.5
Else
Range("B1") = 0
End If
</syntaxhighlight>

Alternative to IF THEN ELSE
<syntaxhighlight lang="QBasic">
Select Case Range("A1").Value
   Case Is > 100
    Range("B1").Value = 1
   Case Is > 50
   Range("B1").Value = 0.5
   Case Else
   Range("B1").Value = 0
   End Select
</syntaxhighlight>

SELECT CASE
<syntaxhighlight lang="QBasic">
Select Case Range("A1").Value
   Case Is > 100
    Range("B1").Value = 1
   Case Is > 50
   Range("B1").Value = 0.5
   Case Else
   Range("B1").Value = 0
   End Select
</syntaxhighlight>
===Elenco istruzioni e comandi===
{| class="wikitable"
|-
!|Comando
!|Esempio
!|Sintassi
!|Descrizione
|-
||<code>MsgBox</code>
||
<code>MsgBox "Ciao"</code><br />
<code>MsgBox "In A1 hai inserito " & Range("A1").Value</code><br />
<code>MsgBox "Elenco:" & vbNewLine & "Line 1" & vbNewLine & "Line 2"</code><br />
<code>result = MsgBox("Tutto ok", vbOKOnly, "Esito controllo")</code>

||<code>MsgBox ( prompt [, pulsanti ] [, titolo ] [, fileguida ] [, contesto ] )</code>
||Visualizza un PopUp. [https://support.microsoft.com/it-it/office/funzione-msgbox-e23511c8-4157-4e09-93a6-ba9f1749f4c0 DOC ]
|-
||<code>InputBox</code>
||<code>Dim strResponse As String
strResponse = InputBox( "Inserisci un valore", "Input utente", "valore prefedinito" )
'</code>
||<code>InputBox( Prompt, [Title], [Default], [XPos], [YPos], [HelpFile], [Context] )</code>
||Visualizza un PopUp che chiede in input un valore.
|}
<syntaxhighlight lang="QBasic">
</syntaxhighlight>

==Esempi di codice==
Per scrivere del test in una cella
<syntaxhighlight lang="QBasic">
Sub BtnCheck_Click()
    Range("I12").Value = "Cucu"
End Sub
</syntaxhighlight>
Visualizzare un PopUp e cancellare il contenuto di celle
<syntaxhighlight lang="QBasic">
Dim answer As Integer
answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")

If answer = vbYes Then
    Cells.ClearContents

    Range("A2:B4").ClearContents
Else
    'do nothing
End If
</syntaxhighlight>
Richiedere in valore in Input con default preimpostato
<syntaxhighlight lang="QBasic">
Dim myValue As Variant
myValue = InputBox("Scrivi un valore: [1] è predefinito", "Titolo del PopUp", 1)
Range("A1").Value = myValue
</syntaxhighlight>
Inserire una formula
<syntaxhighlight lang="QBasic">
Range("B2").FormulaR1C1 = "=RC[-1]*2"
</syntaxhighlight>
Inserire un valore in un range di celle
<syntaxhighlight lang="QBasic">
Range("B3:B5,C5:C8").Value = 12
</syntaxhighlight>
Selezionare più range di celle
<syntaxhighlight lang="QBasic">
Range("B3:B5").Select

Range("B3:B5,C5:C8").Select
</syntaxhighlight>
Copiare da una regione e incollare altrove:
<syntaxhighlight lang="QBasic">
Range("B3:B5").Copy
Range("G3").Select
ActiveSheet.Paste
</syntaxhighlight>
Copiare da uno Sheet ad un altro
<syntaxhighlight lang="QBasic">
Sheets("Sheet1").UsedRange.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("Sheet1").Rows(5).EntireRow.Copy
Rows(7).Select
ActiveSheet.Paste
</syntaxhighlight>


<syntaxhighlight lang="QBasic">
</syntaxhighlight>

<syntaxhighlight lang="QBasic">
</syntaxhighlight>

<syntaxhighlight lang="QBasic">
</syntaxhighlight>
=Protezione - Sprotezione=
==Sprotezione==
Notare che nel seguente esempio abbiamo due tipi di protezione: protezione dei fogli da modifiche non volute e protezione della struttura del foglio di lavoro per prevenire cambiamenti dovuto a spostamenti, cancellazioni o aggiunte.<br />
cliccare su File e poi:
[[File:Excel_sproteggere_01.png|none|500x315px]]
Però se item "Protect Workbook" rimane avidenziato in arancione evidentemente c'è un ulteriore passo da compiere in quanto la "Struttura del workbook è bloccata per prevenire ..."
[[File:Excel_sproteggere_02.png|none|450x579px]]
Quindi inserire la password di sblocco:
[[File:Excel_sproteggere_03.png|none|251x98px]]
Ottenendo:
[[File:Excel_sproteggere_04.png|none|379x91px]]
===Sheet nascosti===
Quindi si potranno rendere visibili gli sheet nascosti:
[[File:Excel_sproteggere_05.png|none|489x326px]]
e
[[File:Excel_sproteggere_06.png|none|221x49px]]

=Mappa e Link=
----
[[Windows7:Applicazioni, MS Office | MS Office]]
----
[[MS Power apps]]
----
'''Parole chiave''':