Risultati da 1 a 30 di 30

Discussione: Userform a (s)comparsa su posizionamento mouse



  1. #1
    L'avatar di ouebgi
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    italia
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Userform a (s)comparsa su posizionamento mouse

    Ciao a tutti,
    qualcuno sa se è possibile realizzare una userform a comparsa/scomparsa su posizionamento del mouse?

    Non voglio usare un button nel ribbon, ma vorrei che la userform comparisse a sinistra dello schermo quando porto il mouse a toccare il bordo sinistro e scomparisse poi quando porto il mouse fuori dall'area della userform.

    Grazie per l'aiuto.

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao ouebgi

    Il VBA di Excel non dispone dell'evento MouseMove in grado di rilevare lo spostamento del mouse; probabilmente qualcosa si riesce a fare con le API di Windows ma è strada piuttosto impervia.

    In alternativa potrei suggerirti l'utilizzo dell'evento Worksheet_SelectionChange che in base alla cella selezionatapuò fa rvisualizzare o meno la userform.

    Non so se sono stato chiaro; magari se alleghi un tuo piccolo file di esempio con la userform inserita potrei essere più preciso.

    Alfreod

  3. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao

    Ti allego un piccolo file di esempio.

    Posizionati su K1 e comparirà la userform; seleziona un'altra cella e questa scomparirà

    Alfredo
    File Allegati File Allegati

  4. #4
    L'avatar di ouebgi
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    italia
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    Grazie per il buon suggerimento Alf,
    questa possibilità non la conoscevo proprio.

    Purtroppo non so se fa al caso mio perché voglio poter richiamare la userform da qualsiasi foglio, anche creati dopo (senza dovermi ricordare di aggiungere il codice per ogni nuovo foglio che creo); inoltre comporta ricordare la cella che scatena l'evento o evidenziarla all'interno del foglio (e questo non lo posso fare per motivi di "pulizia" del foglio) e comunque doverla cercare di volta in volta all'interno del foglio.

    Ci vorrebbe un evento tipo "mouse a fine corsa, completamente a sinistra dello schermo". Ora vedo se si riesce magari a "leggere" la posizione del mouse.

    Ti faccio sapere.

  5. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Come dicevo prima l'evento MouseMove in VBA non esiste.

    Se puoi allegare un file di esempio che riproduca la tua situazione e dove spieghi quello che vuoi ottenere si può tentare di trovare un'alternativa.

    Alfredo

    P.S. Il discorso delle API di Windows lo lascerei perdere (salvo che qualcuno qui conosca l'argomento).

  6. #6

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Sto facendo qualche prova ma ho il timore non si possa fare a meno di dover scrivere il codice per ogni foglio della cartella di lavoro.

    Alfredo

  7. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Userform a (s)comparsa su posizionamento mouse

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Sto facendo qualche prova ma ho il timore non si possa fare a meno di dover scrivere il codice per ogni foglio della cartella di lavoro.

    Alfredo
    Ciao a tutti,

    @Alfredo
    si potrebbe usare l'evento di "This_Workbook" : Workbook_SheetSelectionChange
    e usare il codice che hai scritto prima:

    Codice: 
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Range("K1")) Is Nothing Then
    UserForm1.Show
    Else
    UserForm1.Hide
    End If
    End Sub
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  8. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Tore quell'evento me l'ero perso :167:

    Alfredo

  9. #9
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao OuebGi Se vuoi ci posso provare usando le api di Windows .
    Però io ho provato a fare questa semplice Operazione e funziona benissimo .
    Tu provalo e poi all'occorrenza fammi sapere ; Ciao da Maurizio


    'In pratica non ho fatto altro che scrivere questo :

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    UserForm1.Show
    End Sub
    'e All'interno dell' Userform 1 quest'altro :

    Codice: 
    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Unload Me
    End Sub
    Funziona su tutti i fogli di Lavoro
    File Allegati File Allegati
    Ultima modifica fatta da:cromagno; 12/04/16 alle 17:30 Motivo: Inserito codice tra i tag CODE...

  10. #10

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao Maurizio

    Puoi spiegare come funziona il tuo file? Non sono riuscito a capirlo.

    Alfredo

  11. #11
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    E molto Semplice ; in qualsiasi foglio tu ti possa trovare basta fare un Click con il Mouse e l'userform si Apre poi Basta spostare il mouse fuori dall'userform ed esso si Chiude da sé.
    Tutto qui ciao

  12. #12

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Io faccio clic sui fogli ma non succede nulla.

    Alfredo

  13. #13
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17

    Re: Userform a (s)comparsa su posizionamento mouse

    so che é possibile inserire una macro e quindi una userform nel menú contestuale che si apre con tasto destro del mouse
    io l'ho usato per aprire il calendario per inserire data e per inserire orario
    al momento non mi ricordo la procedura, dovrei fare una ricerca

  14. #14

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao zio_tom

    Ti riferisci a questa discussione?

    http://www.forumexcel.it/forum/7-dom...stuale-un-idea

    Alfredo

  15. #15
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1114
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Userform a (s)comparsa su posizionamento mouse

    Citazione Originariamente Scritto da A.Maurizio Visualizza Messaggio
    E molto Semplice ; in qualsiasi foglio tu ti possa trovare basta fare un Click con il Mouse e l'userform si Apre poi Basta spostare il mouse fuori dall'userform ed esso si Chiude da sé.
    Tutto qui ciao
    mi sembra il contrario di quanto è stato richiesto

  16. #16
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    Scusatemi tutti e anche tu Afrimpa , ma avevo Fatto una procedura poco Consona a quello che aveva chiesto OuebGi .
    Ora funziona , Ciao a Tutti
    File Allegati File Allegati

  17. #17

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6807
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Userform a (s)comparsa su posizionamento mouse

    Ora la form compare ma poi non scompare più; bisogna chiuderla in maniera tradizionale cliccando sulla "x" e, peraltro, è cosa completamente diversa da quanto richiesto dall'utente ouebgi.

    Alfredo

  18. #18
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17

    Re: Userform a (s)comparsa su posizionamento mouse

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao zio_tom

    Ti riferisci a questa discussione?

    http://www.forumexcel.it/forum/7-dom...stuale-un-idea

    Alfredo
    si
    grazie

  19. #19
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao a tutti,
    io farei come da allegato:

    1 textbox lungo il lato sinistro del foglio (l'ho posizionata fino alla riga 30), e 4 lungo i lati del Form tutte con larghezza 2 o 3.
    Quella sul foglio, se posizionata correttamente nenche si vede, quelle sul form sembrano un Frame:269:

    Le textbox contemplano il MouseMove e basta impostare l'evento nel modo voluto.

    L'unico inconveniente è che quando si entra nel Form con il mouse, il movimento dal foglio al Form deve essere abbastanza veloce altrimenti lo chiude senza dare la possibilità di utilizzarlo.

    Ciao
    Frank
    File Allegati File Allegati
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  20. #20
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Userform a (s)comparsa su posizionamento mouse

    Citazione Originariamente Scritto da tanimon Visualizza Messaggio
    L'unico inconveniente è che quando si entra nel Form con il mouse, il movimento dal foglio al Form deve essere abbastanza veloce altrimenti lo chiude senza dare la possibilità di utilizzarlo.

    Ciao
    Frank
    a meno di non ritardare di qualche secondo la scomparsa, utilizzando il metodo OnTime.

    Ciao
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  21. #21
    L'avatar di ouebgi
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    italia
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao a tutti,
    ho parzialmente risolto con una useform quasi completamente nascosta sx del video: se ne vede solo il lato dx della user, quanto basta xchè andandoci sopra con il mouse e usando mousemove sulla user questa venga nascosta e poi fatta ricomparire tutta visibile a sx. Quando esco dalla user questa torna ad essere nascosta come all'inizio.
    non è bellissimo ma funziona su tutti i fogli, quindi è sempre disponibile, e x richiamare la useform/menu basta appoggiare il mouse a sx dello schermo.
    Domani allego il file nel caso possa servire a qualcuno.

    Sto guardando la soluzione di Tanimon e la user è completamente nascosta quando a riposo, esteticamente migliore della mia. Ora voglio vedere se posso integrare le due.

  22. #22
    L'avatar di ouebgi
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    italia
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    Ecco quanto sono riuscito a fare.
    E' necessario mettere un frame (o altro...) delle dimensioni simili alla user e che racchiuda eventuali chek/optionbox: se metto n oggetti separati ogni volta che, passando da uno all'altro, "vado" sulla user qs si chiude/apre.

    Credo sia da perferzionare con i suggerimenti di tanimon
    File Allegati File Allegati

  23. #23
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1114
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Userform a (s)comparsa su posizionamento mouse

    ottimo lavoro, mi piacerebbe vederlo anche quando l'hai terminato

  24. #24
    L'avatar di ouebgi
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    italia
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    Se ho capito bene la tecnica di Tanimon comporta una textbox e relativo codice in ogni foglio, quindi "ricordarsi" di fare la modifica x ogni nuovo foglio creato (e qs volevo evitarlo).
    Faccio altre prove

  25. #25

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao a tutti,
    ho fatto un pò di prove e credo di essermi avvicinato ma c'è ancora qualcosa che non mi quadra:256:

    In pratica si usa sempre la posizione del mouse per aprire la userform (posizionandosi alla sinistra dello schermo) ma per farla sparire una volta che si esce con il mouse dal campo della userform, si dovrebbe prendere la posizione del mouse applicando però un fattore di conversione dovuto alla risoluzione dello schermo.
    Cioè, per excel le misure di default dovrebbero riferirsi ad una risoluzione di 800x600, quindi in base alla risoluzione effettiva si dovrebbe dividere per 597 (per la larghezza) e 309 (per l'altezza). In base a questo e conoscendo la posizione e la grandezza della userform, si potrebbe farla chiudere se il mouse si trova al di fuori di queste coordinate.
    Per l'altezza più o meno ci siamo, ma la larghezza non mi corrisponde.

    Comunque, magari qualcuno di voi riesce a trovare l'inghippo....
    I codici usati (in un modulo standard):

    Codice: 
    Option Explicit
    
    
    Public Type tCursor
        left As Long
        top As Long
    End Type
    
    
    Private Declare PtrSafe Function GetCursorPos Lib "user32" (p As tCursor) As Long
    Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
    
    
    Public Function WhereIsTheMouseAt() As tCursor
        Dim mPos As tCursor, Wschermo As Double, Hschermo As Double
        Dim Wconv As Double, Hconv As Double
    
    
        GetCursorPos mPos
        WhereIsTheMouseAt = mPos
        Hschermo = WhereIsTheMouseAt.top
        Wschermo = WhereIsTheMouseAt.left
        Wschermo = Application.UsableWidth
        Hschermo = Application.UsableHeight
        Wconv = Wschermo / 597
        Hconv = Hschermo / 309
        If WhereIsTheMouseAt.left < 25 Then
            SetCursorPos (UserForm1.Width * Wconv) / 2, (UserForm1.Height * Hconv) / 2
            UserForm1.Show False
            UserForm1.left = 0
            UserForm1.top = 0
        End If
    End Function
    
    
    Public Function MouseinForm() As tCursor
        Dim mPos As tCursor, Wschermo As Double, Hschermo As Double
        Dim Wconv As Double, Hconv As Double
        
        GetCursorPos mPos
        MouseinForm = mPos
        Wschermo = Application.UsableWidth
        Hschermo = Application.UsableHeight
        Wconv = Wschermo / 597
        Hconv = Hschermo / 309
        If MouseinForm.left > UserForm1.Width + 80 Then
            Unload UserForm1
        ElseIf MouseinForm.top > UserForm1.Height * Hconv Then
            Unload UserForm1
        End If
    End Function
    
    
    Sub avvia()
    Dim x
    x = Time + TimeValue("00:00:01")
    Application.OnTime x, "posizione"
    WhereIsTheMouseAt
    End Sub
    
    
    Sub posizione()
    WhereIsTheMouseAt
    avvia
    End Sub
    Per la userform:

    Codice: 
    Option Explicit
    
    
    Private Sub CommandButton1_Click()
    Unload UserForm1
    Call avvia
    End Sub
    
    
    Private Sub UserForm_Click()
    Application.OnTime EarliestTime:=x, Procedure:="avvia", Schedule:=False
    End Sub
    
    
    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Call MouseinForm
    End Sub
    All'apertura del file:

    Codice: 
    Private Sub Workbook_Open()
    Call avvia
    End Sub
    N.B.
    a seconda della versione usata (32 o 64 bit) rimuovere "Ptrsafe" da queste due righe:

    Codice: 
    Private Declare PtrSafe Function GetCursorPos Lib "user32" (p As tCursor) As Long
    Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

    P.S.
    per la questione riguardante la "risoluzione" ho preso i "dati" da questo link:
    http://www.ennius.altervista.org/vba/vba71.php
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  26. #26
    L'avatar di ouebgi
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    italia
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    Grande lavoro Cromagno, la user è completamente invisibile!! Devo studiarmelo.

    Io,per il momento, più di quanto allegato nn sono riuscito. Mi sono convinto che il "vederla" un pezzettino mi aiuta a ricordare che esiste....

    Bisogna giocare sulla dimensione del frame pincipale interno alla user in modo da lasciare libera, a dx e in basso, una quantità di area perimetrale sufficiente per rilevare l'uscita del mouse. Ho lasciato il frame completamente allineato a sx e in alto in modo da evitare continui hide/show della user quando il mouse è posizionato a sx x richiamarla: certo così, se sposto il frame al centro, non rilevo più l'uscita del mouse a sx/sopra...
    File Allegati File Allegati

  27. #27

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4020
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: Userform a (s)comparsa su posizionamento mouse

    Ciao,
    sono di nuovo col cellulare :(

    Comunque, nel file che ho allegato prima ho messo il pulsante "Chiudi" per la userform ma anche spostandoti col coursore fuori dalla userform dovrebbe chiudersi.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  28. #28
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Userform a (s)comparsa su posizionamento mouse

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao a tutti,

    Comunque, magari qualcuno di voi riesce a trovare l'inghippo....
    Ciao Tore,
    mi sembrava strano di non essere riuscito a "stuzzicarti"..... Lol

    L'inghippo purtroppo lo lascio ad altri:
    - per me troppo difficile
    - e se non lo fosse, ma non credo, non ho il tempo per studiarmi il Tuo codice :-(

    A presto.
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  29. #29
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: Userform a (s)comparsa su posizionamento mouse

    Citazione Originariamente Scritto da ouebgi Visualizza Messaggio
    Se ho capito bene la tecnica di Tanimon comporta una textbox e relativo codice in ogni foglio, quindi "ricordarsi" di fare la modifica x ogni nuovo foglio creato (e qs volevo evitarlo).
    Faccio altre prove
    Premetto di non avere visionato nè il tuo file nè quello di Tore,
    ma se il problema è "solo" quello di evitare quanto sopra lo puoi automatizzare con un Command Button:
    Codice: 
    Private Sub CommandButton1_Click()
        Sheets("Foglio1").Select
        ActiveSheet.Shapes("TextBox1").Copy
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Paste
        Range("a1").Activate
        End Sub
    e nel codice appena sopra, ci puoi aggiungere un msgbox per "obbligarti" ad
    inserire il relativo codice per la textbox del nuovo foglio:

    Codice: 
    Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    UserForm1.Show
    End Sub

    Ciao
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  30. #30
    L'avatar di ouebgi
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    italia
    Messaggi
    15
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Userform a (s)comparsa su posizionamento mouse

    Ok, il risultato finale mi sembra più che buono e grazie ai consigli di tutti è personalizzabile in molti modi.

    Ringrazio tutto il forum per il prezioso aiuto.

    Ciao

Discussioni Simili

  1. Posizionamento Celle
    Di gio56 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 18/11/16, 12:28
  2. [Risolto] Posizionamento campi in maschera
    Di KARLO16 nel forum Domande su Microsoft Access
    Risposte: 3
    Ultimo Messaggio: 24/10/16, 16:55
  3. ri-comparsa di [RISOLTO]
    Di G.Bove nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 2
    Ultimo Messaggio: 18/09/16, 16:24
  4. Impedire comparsa messaggio errore foglio protetto
    Di Lcbsm nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 28/04/16, 11:15
  5. Posizione mouse e Colore su Immage in UserForm
    Di Marius44 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 16/04/16, 20:04

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •