Nascondere Colonne con Macro

Discussioni sull'applicazione per i fogli di calcolo
Rispondi
Bucur Vlad Mihai
Messaggi: 46
Iscritto il: lunedì 27 marzo 2017, 9:16

Nascondere Colonne con Macro

Messaggio da Bucur Vlad Mihai »

Buongiorno a tutti.

Gentilmente esiste qualche macro che nasconde le colonne? ho provato con registra macro , ma nada :(

Cordiali saluti
Ultima modifica di Bucur Vlad Mihai il venerdì 28 aprile 2017, 10:09, modificato 1 volta in totale.
OppenOffice 4.1.3. / Windows 10
patel
Volontario attivo
Volontario attivo
Messaggi: 4020
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Nascondere Colonne con Macro

Messaggio da patel »

Codice: Seleziona tutto

sub nascondi_colonne
Doc = ThisComponent
Sheet = Doc.Sheets(0) 
For j = 0 To 2
  sheet.Columns(j).IsVisible = False
Next
End Sub
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Bucur Vlad Mihai
Messaggi: 46
Iscritto il: lunedì 27 marzo 2017, 9:16

Re: Nascondere Colonne con Macro

Messaggio da Bucur Vlad Mihai »

WOW ... GRAZIE milleee

invece per renderle visibile ???


grazie ancora
OppenOffice 4.1.3. / Windows 10
patel
Volontario attivo
Volontario attivo
Messaggi: 4020
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Nascondere Colonne con Macro

Messaggio da patel »

non ci arrivi da solo ?
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Bucur Vlad Mihai
Messaggi: 46
Iscritto il: lunedì 27 marzo 2017, 9:16

Re: Nascondere Colonne con Macro

Messaggio da Bucur Vlad Mihai »

purtroppo no :( supera il mio limite ... cio provato con scarso risultato ovviamente :(
OppenOffice 4.1.3. / Windows 10
Gaetanopr
Volontario
Volontario
Messaggi: 3300
Iscritto il: mercoledì 21 novembre 2012, 20:07

Re: Nascondere Colonne con Macro

Messaggio da Gaetanopr »

patel ha usato False per nasconderle, quindi per renderle visibili devi usare il contrario di False
Fai un altro tentativo
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
Bucur Vlad Mihai
Messaggi: 46
Iscritto il: lunedì 27 marzo 2017, 9:16

Re: Nascondere Colonne con Macro

Messaggio da Bucur Vlad Mihai »

true :P grazie

solo che se uso il macro , non nasconde per esempio le colonne C,D,F ma nasconde le colonne A,B,C
Allegati
nascondi colonne.ods
(8.61 KiB) Scaricato 147 volte
OppenOffice 4.1.3. / Windows 10
Bucur Vlad Mihai
Messaggi: 46
Iscritto il: lunedì 27 marzo 2017, 9:16

Re: Nascondere Colonne con Macro

Messaggio da Bucur Vlad Mihai »

Trovato , basta cambiare
For j = 0 To 2 ( 5 to 7 --- per esempio) solo che nasconde fino alla colonna 9 ...e non 7
sheet.Columns(j).IsVisible = False


ma il "j" sta per ?????
Ultima modifica di Bucur Vlad Mihai il venerdì 28 aprile 2017, 10:05, modificato 1 volta in totale.
OppenOffice 4.1.3. / Windows 10
patel
Volontario attivo
Volontario attivo
Messaggi: 4020
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Nascondere Colonne con Macro

Messaggio da patel »

tu hai chiesto una macro per nascondere colonne, non hai detto quali, se lo dicevi subito avresti ottenuto la macro corretta.
le colonne possono essere chiamate con le lettere A,B,C oppure con numeri 0,1,2
A = 0, B = 1 ecc
in un ciclo For next occorre un contatore e j è il contatore, ma puoi metterci qualsiasi variabile.
Chiaramente per imparare il basic occorre studiare un poco, ad es.
http://professoressa.altervista.org/Dis ... re_OOo.pdf
http://www.plio.it/sites/default/files/ ... _Macro.pdf
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Bucur Vlad Mihai
Messaggi: 46
Iscritto il: lunedì 27 marzo 2017, 9:16

Re: Nascondere Colonne con Macro

Messaggio da Bucur Vlad Mihai »

grazie mille Patel , adesso ho capito ... infatti la mia domanda non era completa , e chiedo scusa ... poi visto che a = 0 , capisco perche il mio a non era 1 :) adesso scarico il pdf ... grazie mille ...
OppenOffice 4.1.3. / Windows 10
Rispondi