Risultati da 1 a 9 di 9

Discussione: Messaggio



  1. #1
    L'avatar di nicocaporale
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Omignano Scalo (SA)
    EtÓ
    43
    Messaggi
    207
    Versione Office
    2007 Win
    Likes ricevuti
    0
    Likes dati
    79

    Messaggio

    Salve, vorrei un aiuto per l'apertura di Excel.
    Siccome il programma su cui devo lavorare viene aperto anche da altri utenti, vorrei che all'apertura del file venissero date delle indicazioni sulle procedure da fare prima di modificare le tabelle.
    Cosa posso fare?
    :186:

  2. #2
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Ciao Nico
    credo che questo problema si possa risolvere con il VBA, ti sposto questa discussione nella seziona giusta
    ciao

  3. #3

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Nel file allegato, all'avvio si apre una form.
    Ho nascosto il foglio con le indicazioni che si possono modificare
    File Allegati File Allegati

  4. I seguenti 2 utenti hanno dato un "Like" a Rubik72 per questo post:


  5. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Como
    EtÓ
    53
    Messaggi
    7153
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300
    Se vuoi semplicemente un messaggio che si visualizzi a schermo basta solo che inserisci questa sub in Thisworkbook:
    Codice: 
    Private Sub Workbook_Open()
    MsgBox "Attenzione! Prima di modificare le tabelle devono essere eseguite le seguenti istruzioni:  blablablablablablablabla...."
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se pu˛ sembrare improbabile, non pu˛ che essere quella giusta!

  6. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Nel file allegato, all'avvio si apre una form.
    Ho nascosto il foglio con le indicazioni che si possono modificare
    Ho dimenticato di postare il codice della form (l'avevo omesso in quanto troppo lungo) ma prima di essere ripreso dai moderatori eccolo:
    Codice: 
    Option Explicit
    Dim TopicCount As Integer
    Dim CurrentTopic As Integer
    Dim HelpSheet As Worksheet
    Const HelpSheetName As String = "HelpSheet"
    Const HelpFormCaption As String = "Aiuto"
    
    
    Private Sub UserForm_Initialize()
        Dim Row As Integer
        Set HelpSheet = ThisWorkbook.Sheets(HelpSheetName)
        TopicCount = Application.WorksheetFunction.CountA(HelpSheet.Range("A:A"))
        For Row = 1 To TopicCount
            ComboBoxTopics.AddItem HelpSheet.Cells(Row, 1)
        Next Row
        ComboBoxTopics.ListIndex = 0
        CurrentTopic = 1
        UpdateForm
    End Sub
    Private Sub UpdateForm()
        ComboBoxTopics.ListIndex = CurrentTopic - 1
        Me.Caption = HelpFormCaption & " [" & CurrentTopic & " di " & TopicCount & "]"
        With LabelTopic
            .Caption = HelpSheet.Cells(CurrentTopic, 2)
            .AutoSize = False
            .Width = 212
            .AutoSize = True
        End With
        Frame1.ScrollTop = 1
        Frame1.ScrollHeight = LabelTopic.Height + 5
        If CurrentTopic = 1 Then PreviousButton.Enabled = False Else PreviousButton.Enabled = True
        If CurrentTopic = TopicCount Then NextButton.Enabled = False Else NextButton.Enabled = True
        On Error Resume Next
        If NextButton.Enabled Then NextButton.SetFocus Else PreviousButton.SetFocus
    End Sub
    Private Sub ComboBoxTopics_Click()
        CurrentTopic = ComboBoxTopics.ListIndex + 1
        UpdateForm
    End Sub
    Private Sub PreviousButton_Click()
        If CurrentTopic <> 1 Then
            CurrentTopic = CurrentTopic - 1
            UpdateForm
        End If
    End Sub
    Private Sub NextButton_Click()
        If CurrentTopic <> TopicCount Then
            CurrentTopic = CurrentTopic + 1
            UpdateForm
        End If
    End Sub
    Private Sub ExitButton_Click()
        Unload Me
    End Sub
    Private Function SheetExists(sht) As Boolean
        Dim TempSheet As Worksheet
        On Error Resume Next
        Set TempSheet = ThisWorkbook.Worksheets(sht)
        If Err = 0 Then SheetExists = True Else SheetExists = False
    End Function
    La form va attivata:
    Codice: 
    Private Sub Workbook_Open()
           FormHelp.Show
    End Sub

  7. I seguenti utenti hanno dato un "Like"


  8. #6
    L'avatar di nicocaporale
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Omignano Scalo (SA)
    EtÓ
    43
    Messaggi
    207
    Versione Office
    2007 Win
    Likes ricevuti
    0
    Likes dati
    79
    Scusami ma non avevo aggiornato la pagina e non mi usciva il messaggio

  9. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Citazione Originariamente Scritto da Gerardo ZuccalÓ Visualizza Messaggio
    ti ha giÓ risposto rubick72
    In mio nick Ŕ Rubik72 senza "c" in onore al matematico inventore del famoso rompicapo:292:

  10. I seguenti utenti hanno dato un "Like"


  11. #8
    L'avatar di nicocaporale
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Omignano Scalo (SA)
    EtÓ
    43
    Messaggi
    207
    Versione Office
    2007 Win
    Likes ricevuti
    0
    Likes dati
    79
    Grazie ho visto la form ma non riesco a capire come farla funzionare

  12. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    La form si avvia all'apertura del file.
    Le istruzioni sono in un foglio nascosto.
    Scopri il foglio.
    Le istruzioni basta modificarle secondo le esigenze.

Discussioni Simili

  1. Messaggio all' amministratore
    Di franky nel forum Domande sul Microsoft Word
    Risposte: 4
    Ultimo Messaggio: 21/10/16, 15:41
  2. [Risolto] Creare messaggio di errore
    Di Jabets nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 07/09/16, 15:10
  3. Messaggio fisso su cella
    Di simone90 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 25/05/16, 09:48
  4. Messaggio
    Di nicocaporale nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 09/02/16, 15:05
  5. test segnala messaggio
    Di Gerardo ZuccalÓ nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 04/07/15, 21:06

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
  •