Excel Casella di controllo

[Statix]

Ciao a tutti,
ho una casella di controllo,nel formato controllo, il valore minino è 0 ,come posso fare per impostare un valore negativo,
cioè impostare valore compreso tra minimo - 1000 e massimo 1000
grazie

[Statix]

chiedo scusa intendevo casella di selezione

[Anthony47]

La casella ti da un valore >=0; se devi rappresentare un valore negativo lo potrai calcolare usando non il puro contenuto della cella collegata ma una sua elaborazione. Es, se la cella collegata e' H1, userai nel tuo caso (H1-1000), e come valori limite avrai impostato Min=0 e Max=2000

Ciao.

[Statix]

Ciao Anthony47, ho provato ma non ci riesco,in rete ho trovato questo

Codice: Seleziona tutto

Creare una nuova cartella di lavoro. 
2. Destro (CONTROL-click) l'area di barra in Microsoft Excel. Scegliere Moduli dal menu per visualizzare la barra Form. 
3. Fare clic sul controllo di selezione sulla barra Form e disegnare la casella di selezione del foglio accanto alla cella A1. 
4. Fare doppio clic sul controllo di selezione per visualizzare la finestra Formato oggetto. Fare clic sul controllo di cui digita tab. un valore minimo 0 E un valore massimo 20, e sceglie OK.

NOTA: Imposta il Massimo su 20 perché la differenza tra il minimo e tra i valori massimi che si desidera utilizzare è 20 (infatti 10-(-10)=20)) 
5. Destro (CONTROL-click) la casella di selezione e il clic Assegna macro. 
6. Scegliere Nuovo nella finestra di dialogo Assegna macro. 
7. Digitare la seguente macro nel modulo:       Const Diff = 10

      Sub Spinner1_Change()
          Range("A1").Value = _
              ActiveSheet.Spinners("Spinner 1").Value - Diff
      End Sub
                  
NOTA: Differenza, la costante, è uguale alla differenza tra 0 e tra il valore minimo che si desidera utilizzare ( infatti 0-(-10) = 10 ). 
8. Attivare il foglio di lavoro che contiene il controllo di selezione. Selezionare la cella A1. Eseguire il test del controllo di selezione facendo clic su esso. Si visualizzano i valori di cella A1 compresi tra --10 e 10.

mi fai un esempio di questo

--------------------------------------------------------------------------------

[gudmund]

E' un po' grezzo, ma io farei così:
se il range che vuoi ottenere è tra -1000 e +1000, imposti il valore massimo dell pulsante di selezione a 2000 ed il minimo a 0.
Poi, tramite la routine dell'evento "change" scrivi (in una casella, in una cella, in una variabile, ecc.) il risultato -1000
Per esempio, se vuoi il risultato nella cella F7 scriverai:

Codice: Seleziona tutto

Private Sub SpinButton1_Change()
    Range("F7").Value = SpinButton1 - 1000
End Sub


ciao

[Statix]

Ciao gudmund
ho provato come hai detto ma non va.
riepilogo il problema

Codice: Seleziona tutto

 in una cella A3 tramite una casella di selezione ,
devo visualizzare un valore da - 1000 a +1000 con incremento 1

[gudmund]

In Excel ci sono due gruppi di controlli, quelli della barra dei moduli e quelli della barra degli strumenti di controllo.
Confesso la mia ignoranza ma non so qual'è, in pratica, la differenza tra i due gruppi.
Evidentemente tu stai utilizzando quella dei moduli, mentre io utilizzo quella degli strumenti di controllo (che si chiama "Pulsante di selezione" invece che "Casella di selezione".
Se utilizzi il Pulsante di selezione preso dalla barra degli strumenti di controllo, quella la piccola macro che ho scritto funziona perfettamente.
Se poi hai necessità di usare la casella di selezione presa dalla barra dei moduli, purtroppo non so risponderti. Comunque me la studio un po' e ti faccio sapere se ci riesco
ciao

[Anthony47]

Per Statix:
Io la farei nel modo piu' semplice, senza macro, come detto nel post di ieri sera:
-associ alla casella di selezione (disponibile sui tools Moduli) il collegamento a una cella, es H1 (tramite Formato controllo, tab Controllo)
-imposti i valori Min=0 e Max=2000
-in A3 scrivi =H1-1000
Prova ancora, che hai fatto cose piu' complesse...

Per Gudmund: non ho una grande abilita' sugli strumenti di controllo; la differenza principale tra gli strumento "Modulo" e gli analoghi "Strumenti di controllo" e' che i secondi consentono maggiore automazione, con una serie di macro su eventi; li puoi vedere sul vba editor, doppioclick sul nome foglio; di intestazione ti presenta per default "(generale)"/"(dichiarazioni)", ma se hai gia' disegnato sul foglio excel uno strumento di controllo (es lo SpinButton=casella di controllo) puoi scegliere o Worksheet (e accanto gli eventi di foglio) oppure SpinButtonX (con accanto i suoi eventi) oppure altri strumenti di controllo presenti.

Ciao.

[Statix]

Ciao Anthony47
ho seguito alla lettera le tue indicazioni,tutto ok
risolto anche la procedura della selezione ruota con aggiornamento real time,
per il conteggio avanti/indietro ho applicato la casella di selezione,cosi quando premo la ruota desiderata, il record incrementa o decrementa in base al valore della cella di selezione, per lo stop di superamento dei record ho usato un case select,allego foto.

Codice: Seleziona tutto

Sub Napoli()
Dim Conta As Integer
Conta = Range("C3")

Range("Q9").Value = Range("Trino!B43").Value
Select Case Conta
Case Is > Range("G2")
Range("C3").Value = Range("G2")
Range("U15") = 250
MsgBox "Ultima Estrazione"
Case Is < 1
Range("C3").Value = 1
Range("U15") = 250
MsgBox "Prima estrazione"
End Select

Range("C3").Value = Range("C3").Value + Range("R15")
Range("Trino!B5:F5").Value = Range("D11:H11").Value

grazie