barra di scorrimento formato controllo negativo

[neeuro]

ciao a tutti

per caso potrebbe esser possibile realizzare il formato controllo
della barra di scorrimento (che mi pare accetti solo da 0 a 30000) da
-100 a +100?

grazie

[Mauro Gamberini]

Post by neeuro
per caso potrebbe esser possibile realizzare il formato controllo
della barra di scorrimento (che mi pare accetti solo da 0 a 30000) da
-100 a +100?

Mi viene da pensare che non hai provato
o che io non ho capito la domanda.
UserForm(e già tu non dici
quale Barra di scorrimento vuoi utilizzare),
aggiungo una barra di scorrimento.
Nelle sue prorietà setto:

Min: -100
Max: 100

Aggiungo, per provare, una Label
e nel modulo di codice della UserForm
questo:

Private Sub UserForm_Initialize()
Me.Label1.Caption = 0
End Sub

Private Sub ScrollBar1_Change()
Call mValore
End Sub

Private Sub ScrollBar1_Scroll()
Call mValore
End Sub

Private Sub mValore()
With Me
.Label1.Caption = _
.ScrollBar1.Value
End With
End Sub


Peril controllo Barra di scorrimento
del foglio, le regole sono le stesse
(Provato su Excel2003/2007).

[neeuro]

On 15 Mag, 19:12, "Mauro Gamberini"

Post by Mauro Gamberini

Post by neeuro
per caso potrebbe esser possibile realizzare il formato controllo
della barra di scorrimento (che mi pare accetti solo da 0 a 30000) da
-100 a +100?

Mi viene da pensare che non hai provato
o che io non ho capito la domanda.
UserForm(e già tu non dici
quale Barra di scorrimento vuoi utilizzare),
aggiungo una barra di scorrimento.
Min: -100
Max: 100
Aggiungo, per provare, una Label
e nel modulo di codice della UserForm
Private Sub UserForm_Initialize()
    Me.Label1.Caption = 0
End Sub
Private Sub ScrollBar1_Change()
    Call mValore
End Sub
Private Sub ScrollBar1_Scroll()
    Call mValore
End Sub
Private Sub mValore()
    With Me
        .Label1.Caption = _
            .ScrollBar1.Value
    End With
End Sub
Peril controllo Barra di scorrimento
del foglio, le regole sono le stesse
(Provato su Excel2003/2007).
--
---------------------------
Mauro Gamberinihttp://www.riolab.org/http://blog.maurogsc.eu/

grazie amico per la tua risposta.

sì hai ragione, imprecisa ed indefinita la domanda, scusami.

su questo link http://www.prodomosua.it/zips/dynamic.xls
relativo a questa discussione
http://groups.google.it/group/microsoft.public.it.office.excel/browse_thread/thread/2be9531f11c6b001/e11b00048d6e7d9f?lnk=gst&q=barra+di+scorrimento#e11b00048d6e7d9f
nel formato controllo, non è possibile inserire un valore minimo
negativo.

[Mauro Gamberini]

sì hai ragione, imprecisa ed indefinita la domanda, scusami.

su questo link http://www.prodomosua.it/zips/dynamic.xls
relativo a questa discussione
http://groups.google.it/group/microsoft.public.it.office.excel/browse_thread/thread/2be9531f11c6b001/e11b00048d6e7d9f?lnk=gst&q=barra+di+scorrimento#e11b00048d6e7d9f
nel formato controllo, non è possibile inserire un valore minimo
negativo.
*********************************************************

Scusa ma sinceramente non ho capito cosa devi fare.
Puoi provare a spiegarti bene e per esteso.
Grazie.

[neeuro]

On 18 Mag, 11:31, "Mauro Gamberini"

Post by neeuro
sì hai ragione, imprecisa ed indefinita la domanda, scusami.
su questo linkhttp://www.prodomosua.it/zips/dynamic.xls
relativo a questa discussionehttp://groups.google.it/group/microsoft.public.it.office.excel/browse...
nel formato controllo, non è possibile inserire un valore minimo
negativo.
*********************************************************
Scusa ma sinceramente non ho capito cosa devi fare.
Puoi provare a spiegarti bene e per esteso.
Grazie.
--
---------------------------
Mauro Gamberinihttp://www.riolab.org/http://blog.maurogsc.eu/

allora...

visualizza->barra degli strumenti->moduli->barra di scorrimento

mi viene proposta nel foglio, una barra di scorrimento cui devo
attribuire un formato,
relative dimensioni, etc etc...

nell'etichetta di controllo, non c'è però la possibilità di inserire
un valore minimo
negativo, in quanto accetta solo valori compresi fra min 0 e max
30000.

l'esempio è nel link di cui sopra (http://www.prodomosua.it/zips/
dynamic.xls), dove,
nella barra di scorrimento, quella in testa al grafico, la stessa che
vorrei utilizzare io,
non consente valori negativi nel formato di controllo.

mi sono spiegato?

non conosco excel da capire da dove si inserisce il codice che mi hai
mandato gentilmente

per l'uso è molto semplice, calcolare nelle diverse ipotesi dei valori
compresi
fra -100 e +100, per esempio, la simulazione di calcoli e confronti
fra progressivi
che derivano da un data base...

[Mauro Gamberini]

visualizza->barra degli strumenti->moduli->barra di scorrimento

mi viene proposta nel foglio, una barra di scorrimento cui devo
attribuire un formato,
relative dimensioni, etc etc...
<cut>
************************************************

Non utilizzare *quella* barra di scorrimento,
ma questa:

Visualizza-->Barre degli strumenti-->
Strumenti di controllo

Metti la tua barra sul foglio.
Click con il tasto dx
del mouse sulla barra-->Prorprietà
Setta Min e Max.

ALT+F11 e sei nell'editor del vb di Excel
Individua: Progetto-VBAProject
Doppio click sul foglio sul quale hai
inserito la barra.
Copia/incolla questo:

Private Sub ScrollBar1_Change()
Call mValore
End Sub

Private Sub ScrollBar1_Scroll()
Call mValore
End Sub

Private Sub mValore()
With Me
.Range("A1").Value = _
.ScrollBar1.Value
End With
End Sub

Esci dalla modalità di progettazione
(pulsantino nella finestra da dove hai
preso la barra).
Prova a muovere la barra e dai un'occhiatina
alla cella A1.

[neeuro]

On 18 Mag, 13:07, "Mauro Gamberini"

Post by neeuro
visualizza->barra degli strumenti->moduli->barra di scorrimento
mi viene proposta nel foglio, una barra di scorrimento cui devo
attribuire un formato,
relative dimensioni, etc etc...
<cut>
************************************************
Non utilizzare *quella* barra di scorrimento,
Visualizza-->Barre degli strumenti-->
Strumenti di controllo
Metti la tua barra sul foglio.
Click con il tasto dx
del mouse sulla barra-->Prorprietà
Setta Min e Max.
ALT+F11 e sei nell'editor del vb di Excel
Individua: Progetto-VBAProject
Doppio click sul foglio sul quale hai
inserito la barra.
Private Sub ScrollBar1_Change()
    Call mValore
End Sub
Private Sub ScrollBar1_Scroll()
    Call mValore
End Sub
Private Sub mValore()
    With Me
        .Range("A1").Value = _
            .ScrollBar1.Value
    End With
End Sub
Esci dalla modalità di progettazione
(pulsantino nella finestra da dove hai
preso la barra).
Prova a muovere la barra e dai un'occhiatina
alla cella A1.
--
---------------------------
Mauro Gamberinihttp://www.riolab.org/http://blog.maurogsc.eu/

eccoti lì... grandeeeeeeeee

ma mica avevo dubbi... :)

grazie per la pazienza e la disponibilità

[neeuro]

Post by neeuro
On 18 Mag, 13:07, "Mauro Gamberini"

Post by neeuro
visualizza->barra degli strumenti->moduli->barra di scorrimento
mi viene proposta nel foglio, una barra di scorrimento cui devo
attribuire un formato,
relative dimensioni, etc etc...
<cut>
************************************************
Non utilizzare *quella* barra di scorrimento,
Visualizza-->Barre degli strumenti-->
Strumenti di controllo
Metti la tua barra sul foglio.
Click con il tasto dx
del mouse sulla barra-->Prorprietà
Setta Min e Max.
ALT+F11 e sei nell'editor del vb di Excel
Individua: Progetto-VBAProject
Doppio click sul foglio sul quale hai
inserito la barra.
Private Sub ScrollBar1_Change()
    Call mValore
End Sub
Private Sub ScrollBar1_Scroll()
    Call mValore
End Sub
Private Sub mValore()
    With Me
        .Range("A1").Value = _
            .ScrollBar1.Value
    End With
End Sub
Esci dalla modalità di progettazione
(pulsantino nella finestra da dove hai
preso la barra).
Prova a muovere la barra e dai un'occhiatina
alla cella A1.
--
---------------------------
Mauro Gamberinihttp://www.riolab.org/http://blog.maurogsc.eu/

eccoti lì... grandeeeeeeeee
ma mica avevo dubbi... :)
grazie per la pazienza e la disponibilità

perdona mauro,

ma mi servirebbe ancora la tua cortesia...

nella barra che utilizzavo, trovavo nel formato controllo, il range
che tu mi hai indicato invece tramite il codice che hai scritto, ed è
chiaro che potrei modificare "Range("A1").Value" con per esempio
un'altra cella su cui vedere i valori attribuiti alla barra.

ma se inserisco nello stesso foglio ulteriori barre, come faccio a
identificare la cella di riferimento per ogni barra?

[Mauro Gamberini]

nella barra che utilizzavo, trovavo nel formato controllo, il range
che tu mi hai indicato invece tramite il codice che hai scritto, ed è
chiaro che potrei modificare "Range("A1").Value" con per esempio
un'altra cella su cui vedere i valori attribuiti alla barra.

ma se inserisco nello stesso foglio ulteriori barre, come faccio a
identificare la cella di riferimento per ogni barra?
**********************************************

Mettiamo che sul Foglio tu abbia 2 ScrollBar,
ScrollBar1 e ScrollBar2. La prima *scrive* in
A1 e la seconda in A2.
Questo il codice:


Private Sub ScrollBar1_Change()
Call mValore("ScrollBar1", "A1")
End Sub

Private Sub ScrollBar1_Scroll()
Call mValore("ScrollBar1", "A1")
End Sub

Private Sub ScrollBar2_Change()
Call mValore("ScrollBar2", "A2")
End Sub

Private Sub ScrollBar2_Scroll()
Call mValore("ScrollBar2", "A2")
End Sub


Private Sub mValore( _
ByVal sControllo As String, _
ByVal sRange As String)

With Me
.Range(sRange).Value = _
.OLEObjects(sControllo).Object.Value
End With
End Sub

Credo ci sia poco da spiegare.
Ma se hai dubbi, chiedi pure.

[neeuro]

On 18 Mag, 14:43, "Mauro Gamberini"

Post by neeuro
nella barra che utilizzavo, trovavo nel formato controllo, il range
che tu mi hai indicato invece tramite il codice che hai scritto, ed è
chiaro che potrei modificare "Range("A1").Value" con per esempio
un'altra cella su cui vedere i valori attribuiti alla barra.
ma se inserisco nello stesso foglio ulteriori barre, come faccio a
identificare la cella di riferimento per ogni barra?
**********************************************
Mettiamo che sul Foglio tu abbia 2 ScrollBar,
ScrollBar1 e ScrollBar2. La prima *scrive* in
A1 e la seconda in A2.
Private Sub ScrollBar1_Change()
    Call mValore("ScrollBar1", "A1")
End Sub
Private Sub ScrollBar1_Scroll()
    Call mValore("ScrollBar1", "A1")
End Sub
Private Sub ScrollBar2_Change()
    Call mValore("ScrollBar2", "A2")
End Sub
Private Sub ScrollBar2_Scroll()
    Call mValore("ScrollBar2", "A2")
End Sub
Private Sub mValore( _
    ByVal sControllo As String, _
    ByVal sRange As String)
    With Me
        .Range(sRange).Value = _
            .OLEObjects(sControllo).Object.Value
    End With
End Sub
Credo ci sia poco da spiegare.
Ma se hai dubbi, chiedi pure.
--
---------------------------
Mauro Gamberinihttp://www.riolab.org/http://blog.maurogsc.eu/

sì perfetto. grazie ancora, buona giornata