+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 8 su 8

macro per formattazione colonna calc di OpenOffice

  1. #1
    antivirus77 non  in linea Novello
    Post
    22
    Like Inviati  
    0
    Like Ricevuti  
    0
    ciao a tutti
    sto scrivendo una macro per un foglio di calcolo e non riesco a scrivere il codice visual basic all'interno dell'editor della macro per formattare in automatico la colonna "O" che contiene numeri come %.
    Inoltre mi piarebbe aggiungere una stringa in modo tale che l'intestazione del foglio (riga 1) fosse fissa anche se scorro gi il foglio.

    Qualcuno per favore sa aiutarmi o indicarmi dove posso trovare la soluzione ?
    grazie anticipatamente !

    Riccardo

  2. #2
    antivirus77 non  in linea Novello
    Post
    22
    Like Inviati  
    0
    Like Ricevuti  
    0
    Nessuno per favore s darmi una dritta !
    registrando la macro non funziona e non trovo un codice basic da scrivere per far fare quello che ho chiesto
    aiuto !!!!!

  3. #3
    L'avatar di dragone bianco
    dragone bianco non  in linea Amanuense
    Post
    7,753
    Like Inviati  
    0
    Like Ricevuti  
    2
    Ciao antivirus77

    Per la riga fissa lo puoi fare a mano
    In alto a destra vedrai una riga Nera pi spessa Appena sopra le celle
    La trascini in basso e vai su Finestra e scegli Fissa ( lo stessa cosa del blocca riquadri di Excel)

    Per l'automazione non ho ben capito cosa devi fare?

    Ciao
    ℹ️ Leggi di pi su dragone bianco ...

  4. #4
    antivirus77 non  in linea Novello
    Post
    22
    Like Inviati  
    0
    Like Ricevuti  
    0
    ciao grazie per la tua risposta. Ho scritto una macro sull'editor basic di calc openoffice per modificare un foglio xls di ordini. Quello che vorrei ottenere :

    1) all'interno della macro scrivere un codice che mi formatti i valori contenuti nelle celle della colonna "N" come percentuale in automatico

    2) scrivere un codice che mi permetta di fermare l'intestazione delle colonne (riga 1 del foglio di calcolo) in modo tale che se scorro la pagina in giu' non sparisce la riga 1. A mano si fa con opzione finestra e selez. fissa ma non ho trovato una stringa in starbasic per farlo fare in automatico

    grazie anticipatamente

    Riccardo

  5. #5
    L'avatar di dragone bianco
    dragone bianco non  in linea Amanuense
    Post
    7,753
    Like Inviati  
    0
    Like Ricevuti  
    2
    ciao
    non tutta farina del mio sacco
    ho adattato il codice di questa guida
    LINK la sezione "Formati di numeri, data e testo"

    per formattazione della cella
    Sub Prova
    Dim Doc as object
    Dim Sheet as object
    Dim Cell as object
    Dim I as long

    Doc = stardesktop.currentcomponent
    Sheet = Doc.Sheets(0)

    for i=0 to 9
    Cell= sheet.getcellbyposition(0,I) 'A2
    cell.numberformat=11
    next i
    End Sub

    Questo codice formatta dalla Cella A1 alla cella A10
    Per il secondo punto devo fare alcune ricerche in merito

    PS:
    Mettiti tra i segnalibri questo link (Guida alla programmazione in BASIC in StarOffice 8)
    ℹ️ Leggi di pi su dragone bianco ...

  6. #6
    antivirus77 non  in linea Novello
    Post
    22
    Like Inviati  
    0
    Like Ricevuti  
    0
    Grande ! Grazie mille funziona perfettamente e non riuscivo a trovare ingiro una formula che andasse bene ....
    Per l'altra cosa sto guardando ma sinceramente non so se si possa fare ...
    intanto grazie mille ancora

    riccardo

  7. #7
    L'avatar di dragone bianco
    dragone bianco non  in linea Amanuense
    Post
    7,753
    Like Inviati  
    0
    Like Ricevuti  
    2
    Ciao
    io usando il registratore di macro riesco solo a bloccare i riquadri ma non ha inserirli
    l'unica farlo a mano

    in excels sono chiamati
    ActiveWindow.SplitRow = 1
    ActiveWindow.FreezePanes = True

    usando il registratore di macro questi termini li trovo (splitWindows e Freepanes)
    dim document   as object
    dim dispatcher as object
    rem ----------------------------------------------------------------------
    rem get access to the document
    document = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    rem ----------------------------------------------------------------------
    dispatcher.executeDispatch(document, ".uno:SplitWindow", "", 0, Array())
    dispatcher.executeDispatch(document, ".uno:FreezePanes", "", 0, Array())


    EDIT:
    questo fa al caso tuo
    Dim Doc as object

    Doc = stardesktop.currentcomponent
    Doc.CurrentController.FreezeAtPosition(0,1)

    funziona sul foglio corrente

    Ciao
    Ultima modifica di dragone bianco; 20-04-2011 22:43 
    ℹ️ Leggi di pi su dragone bianco ...

  8. #8
    antivirus77 non  in linea Novello
    Post
    22
    Like Inviati  
    0
    Like Ricevuti  
    0
    funziona !
    grazie mille !

    ciao

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. OpenOffice Calc - men a tendina
    Da Tazmanimal nel forum LibreOffice, OpenOffice e altro
    Risposte: 4
    Ultimo Post: 29-05-2020, 16:05
  2. Migrare da Microsoft Excel a Openoffice Calc
    Da seppax nel forum Visual Basic .Net
    Risposte: 0
    Ultimo Post: 28-12-2013, 23:36
  3. openoffice calc automation
    Da jankarlo nel forum LibreOffice, OpenOffice e altro
    Risposte: 6
    Ultimo Post: 06-08-2009, 11:11
  4. [calc] eliminare una colonna mediante macro
    Da antivirus77 nel forum LibreOffice, OpenOffice e altro
    Risposte: 8
    Ultimo Post: 15-07-2009, 14:13
  5. combo box in openoffice calc
    Da stefano_ nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 21-12-2006, 23:38