Risultati da 1 a 6 di 6

Discussione: Scalare un foglio è possibile?



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

    Question Scalare un foglio è possibile?

    mi ritrovo con un foglio passatomi da terzi che ha un problema
    è stato dimensionato tutto enormemente grande
    tipo i font che normalmente sono da 10 qui sono da 24
    quindi anche le caselle sono grandi
    ora c'è un problema le lettere ed i numeri di intestazione riga e colonna sono piccolissimi
    come pure i 'convalida dati', praticamente non leggibili

    chiedo se è possibile scalare il tutto diciamo portare il tutto ad 1/3
    cioè larghezze colonne (non sono tutte uguali)altezze righe (anche queste non tutte uguali)
    altezza font (di varie altezze)

    altezza delle intestazione mi sembra che sono di sistema come pure quello del convalida dati, e non modificabili
    sarebbe la strada più semplice...

    oppure modificare tutte le larghezze colonne , altezze righe, altezze font a mano e singolarmente

    oppure una macro che legge i valori (h righe, L colonne, h font) e li moltiplica per 0.33
    magari fissando la zona da intervenire....

    c'è pure il problema che tutto il resto del foglio ha altezze riga e larghezza colonne maggiorate
    quindi penso che bisognerebbe ridimensionare TUTTO il foglio e non solo una zona
    in modo che le intestazioni ritornini leggibili, così suppongo

  2. #2
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2074
    Versione Office
    office pro 2010
    Likes ricevuti
    440
    Likes dati
    241

    Re: Scalare un foglio è possibile?

    ciao zio.
    credo che una strada potrebbe essere dalla finestra immediato attraverso

    cells.proprietà... = valore desiderato.

    perche non mi sembra che esista qualcosa del tipo worksheets().default per portare il foglio ad uno stato, diciamo, originale.

    se lo fai dall immediato, puoi portare, un passo alla volta, tutte le proprietà che ti interessano a valori accettabili.
    ricorda che anche lo zoom ;)

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

    Re: Scalare un foglio è possibile?

    ho risolto brutalmente con una macro, e con piccoli aggiustamenti sulla dimensione dei font di alcuni Button, è andato tutto a posto
    anche se non ho ridimensionato tutto il foglio
    so che qualcuno storcerà il naso, in quanto non ci sono le variabili dimensionate ed altro, brutto (brutale) codice ma mi ha risolto il problema
    se ci fosse qualcosa di più elegante e generico, per tutte le proprietà ecc.... ben accetto
    Codice: 
    Sub scansione()
    K = 0.42 'moltiplicatore
    Nr = 50: Nc = 70
    'scansione colonne
        For i = 1 To Nc
           Lc = Columns(i).ColumnWidth
           'MsgBox ("Larghezza Colonna " & i & " = " & Lc)
           Columns(i).ColumnWidth = Lc * K
        Next i
    'righe
        For J = 1 To Nr
           hr = Rows(J).RowHeight
           'MsgBox ("Altezza Riga " & J & " = " & hr)
           Rows(J).RowHeight = hr * K
        Next J
    
    'celle
        For i = 1 To Nc
          For J = 1 To Nr
           hF = Cells(J, i).Font.Size
           'MsgBox ("Altezza Font Cella (" & J & ", " & i & " = " & hF)
           Cells(J, i).Font.Size = hF * K
          Next J
        Next i
    End Sub

  4. #4
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2074
    Versione Office
    office pro 2010
    Likes ricevuti
    440
    Likes dati
    241

    Re: Scalare un foglio è possibile?

    io storco il naso semplicemente perche NON c'è bisogno di "scansionare" ne celle ne colonne ne righe.

    basta prenderle TUTTE insieme.
    ed utilizzare le varie proprietà di Range(), tra le quali cè l altezza, la larghezza, il font etc.

    con una sola istruzioni formatti tutto il foglio

    ----------Post unito in automatico----------

    tra l altro, se eguagli le proprietà che ti interessano alle proprietà di un foglio nuovo, porti il worksheets a valori di default.

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

    Re: Scalare un foglio è possibile?

    caro amico FORSE non hai capito che le colonne, le righe, altezza font, sono di dimensioni diverse e DEVONO restare in rapporto fra loro
    NON sono e NON devono essere uguali
    NON voglio formattare TUTTO il foglio con le stesse proprietà
    DEVE diventare tutto più piccolo ma in proporzione

  6. #6
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2074
    Versione Office
    office pro 2010
    Likes ricevuti
    440
    Likes dati
    241

    Re: Scalare un foglio è possibile?

    sono ak cellulare e non riesco a provare quanto affermo. vado quindi a memoria:

    piuttosto che ciclare tutte le celle di un determinato range:
    Cells(J, i).Font.Size = hF * K

    non è forse meno brigoso e più intuitivo:
    selection.Font.Size = hF * K

    dove la selezione è TUTTO il range?

    ----------Post unito in automatico----------

    mi rispondo da solo... hai bisogno di sapere il valore iniziale della determinata cella... interessante... chissà se range.proprieta = range.proprieta * k
    funziona...

Discussioni Simili

  1. excel scalare ferie annuali mese mese ad ore
    Di babi66v nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 09/03/17, 14:26
  2. UDF matriciale: E' possibile implementarla?
    Di dracoscrigno nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 06/03/17, 19:25
  3. [Risolto] Ciclo For e Quesry Web è possibile?
    Di paciola nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 27/10/16, 12:49
  4. [Risolto] Ultimo aiutino se possibile
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 22/10/16, 01:53
  5. delta progressivi a scalare con valori vuoti
    Di sly1982 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 24/11/15, 19:20

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
  •