Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 2 su 2

WORD - Macro calcolo data futura con selezione intervallo da Listbox

  1. #1
    enric980 non è in linea Novello
    Post
    1
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ciao a tutti,
    sono nuovo del forum e (purtroppo) anche di programmazione ... ho un problema:
    in Word (2007) devo far calcolare al sistema la data futura partendo da una data da me scritta sul foglio (al momento marcata tramite segnalibro, poi vedremo se inserisco un oggetto controllo activex di tipo data), e selezionando un intervallo da una Listbox (creata sempre tramite il menù Controlli).
    Guardando in internet e la guida di VBA, ho scritto (/copiato dalla guida ecc..) un po' di codice e qualcosa ho combinato.
    Se metto solo dei bookmark la macro funziona correttamente, se invece cerco di inserire dei riferimenti ai controlli (es.: la Listbox sopra menzionata) mi dà errore "424 - necessario oggetto". Probabilmente devo definire in VBA il controllo come oggetto, ma non essendo al momento capace chiedo a voi:

    
    Sub data_futura()
    '
    ' data_futura Macro
    
    Dim FirstDate As Date        ' Dichiara le variabili.
    Dim IntervalType As String
    Dim Number As Byte
    Dim Msg
    
    
    
    ' Dim objCC As ContentControl                   '----- questa parte l'ho utilizzata per far creare la listbox  a VBA, ma vorrei rimanesse parte integrata del modulo. 
    ' Dim objCE As ContentControlListEntry
    ' Set objCC = ActiveDocument.ContentControls.Item("intervallo")
    ' objCC.Title = "Intervallo"
    ' If objCC.ShowingPlaceholderText Then _
    ' objCC.SetPlaceholderText , , "Intervallo: "
    'List entries
    ' objCC.DropdownListEntries.Add "0", 0, 1
    ' objCC.DropdownListEntries.Add "6 mesi", 6, 2
    ' objCC.DropdownListEntries.Add "1 anno", 12, 3
    ' objCC.DropdownListEntries.Add "1 anno e 1/2", 18, 4
    ' objCC.DropdownListEntries.Add "2 anni", 24, 5
    
    
    
    IntervalType = "m"            ' "m" specifica i mesi come intervallo.
    FirstDate = CDate(ActiveDocument.Bookmarks("Data_misure").Range.Text)
    
    Number = Listbox1.Value    '- questa riga di comando mi da errore 424 - necessario oggetto
    
    MsgBox Listbox1.Value
    
    Msg = "Nuova data: " & DateAdd(IntervalType, Number, FirstDate)
    MsgBox Msg
    
    
    End Sub
    

  2. #2
    L'avatar di dragone bianco
    dragone bianco non è in linea Moderatore Globale
    Post
    7,739
    Like Inviati  
    0
    Like Ricevuti  
    1
    Ciao
    non ben capito cosa vuoi ottenere
    una semplice calcolo avendo una data inserita o cosa
    Queste due date sono vicine tra loro
    Prima di usare il VBA potresti prendere in considerazione di inserire una tabella Excel con 2 celle e quindi fare i calcoli nella seconda cella
    Ciao
    ℹ️ Leggi di più su dragone bianco ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Calcolo della data inizio e data fine di un finanziamento
    Da h0m3r nel forum Microsoft Access
    Risposte: 10
    Ultimo Post: 03-04-2020, 18:04
  2. Risposte: 5
    Ultimo Post: 01-04-2020, 18:15
  3. calcolo dell'intervallo medio tra valori positivi
    Da matteomors nel forum Microsoft Excel
    Risposte: 7
    Ultimo Post: 15-10-2012, 18:59
  4. Risposte: 4
    Ultimo Post: 13-02-2012, 11:36
  5. [VBA excel e word] lanciare macro di word da macro di exel
    Da malabrot nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 07-08-2011, 19:52