Spessore Bordi Celle

Question

Buongiorno,

Office 365 Aggiornato, Excel

-Ho una cella composta da una formula che coinvolge altre celle

-Se seleziono questa cella, in automatico mi evidenzia anche le "altre celle" che la formula coinvolge.

Avrei necessità di aumentare lo spessore con cui vengono evidenziate dette celle, in modo da avere un maggiore contrasto visivo e individuarle con più facilità, le mio monitor vedo questo spessore e i "quadratini" che compaiono negli angolili molto piccoli, in quanto con risoluzione 4k sebbene sia impostato lo zoom degli elementi, questi sembrano non essere zommati nell'applicazione.

Sono stato sicuramente poco chiaro, guardate i 2 allegati, stesso pc, risoluzione 4k nel primo screnn, 1080p nel secondo e capirete la differenza,  nel secondo le celle sono evidenziate meglio e i quadratini a cui mi riferivo sono ben visibili, ho modo di ottenere lo stesso effetto con risoluzione 4k? magari settando un qualche parametro?

Grazie.

Answer 1

Ciao SinergoSrl,

Mi corrego:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal menu contestuale risultante
• Incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim rDependents As Range, rCell As Range

    Cancel = True

    If Not rngOld Is Nothing Then

        rngOld.FormatConditions.Delete

    End If

    If Target.HasFormula Then

        On Error Resume Next

        Set rDependents = Target.Precedents

        On Error GoTo 0

    End If

    If Not rDependents Is Nothing Then

        Set rngOld = rDependents

        With rDependents.FormatConditions

            .Delete

            .Add Type:=xlExpression, Formula1:=True

            With .Item(1)

                With .Font

                    .Bold = True

                    .Italic = False

                    .Color = vbRed

                    .TintAndShade = 0

                End With

                With .Interior

                    .PatternColorIndex = xlAutomatic

                    .Color = 65535

                    .TintAndShade = 0

                End With

            End With

        End With

    End If

End Sub

'--------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not rngOld Is Nothing Then

        rngOld.FormatConditions.Delete

    End If

End Sub

'<<=========

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

Public rngOld As Range

• Ctrl+R per accedere alla finestra Project Explorer ('Gestione progetti')

Fai doppio clic sul modulo ThisWorkbook (Questa_cartella_di_Lavoro) del file e incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If Not rngOld Is Nothing Then

        rngOld.FormatConditions.Delete

    End If

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm

Ho aggiornato il file di prova.

===

Regards,

Norman

Answer 2

Ciao SinergoSrl,

Benvenuto alla Community,

Office 365 Aggiornato, Excel

-Ho una cella composta da una formula che coinvolge altre celle

-Se seleziono questa cella, in automatico mi evidenzia anche le "altre celle" che la formula coinvolge.

Avrei necessità di aumentare lo spessore con cui vengono evidenziate dette celle, in modo da avere un maggiore contrasto visivo e individuarle con più facilità, le mio monitor vedo questo spessore e i "quadratini" che compaiono negli angolili molto piccoli, in quanto con risoluzione 4k sebbene sia impostato lo zoom degli elementi, questi sembrano non essere zommati nell'applicazione.

Sono stato sicuramente poco chiaro, guardate i 2 allegati, stesso pc, risoluzione 4k nel primo screnn, 1080p nel secondo e capirete la differenza,  nel secondo le celle sono evidenziate meglio e i quadratini a cui mi riferivo sono ben visibili, ho modo di ottenere lo stesso effetto con risoluzione 4k? magari settando un qualche parametro?

Per quanto ne sio io, non esiste un modo nativo per risolvere il tuo problema.

Pertanto, forse prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim rDependents As Range, rCell As Range

    Cancel = True

    If Not rngOld Is Nothing Then

        rngOld.FormatConditions.Delete

    End If

    If Target.HasFormula Then

        On Error Resume Next

        Set rDependents = Target.Precedents

        On Error GoTo 0

    End If

    If Not rDependents Is Nothing Then

        Set rngOld = rDependents

        With rDependents.FormatConditions

            .Delete

            .Add Type:=xlExpression, Formula1:=True

            With .Item(1)

                With .Font

                    .Bold = True

                    .Italic = False

                    .Color = vbRed

                    .TintAndShade = 0

                End With

                With .Interior

                    .PatternColorIndex = xlAutomatic

                    .Color = 65535

                    .TintAndShade = 0

                End With

            End With

        End With

    End If

End Sub

'--------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    rngOld.FormatConditions.Delete

End Sub

'<<=========

• Alt+F11 per aprire l'editor di VBA
• Alt+IMper inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

Public rngOld As Range

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm

Potresti scaricare il mio file di prova SinergoSrl2070807.xlsm

Con questo file,  in risposta ad un doppio clic su qualunque delle cella A2:A10, le celle precedente ella cella did interesse saranno evidenziate con uno sfondo giallo e testo rosso. Con la selezione di qualsiasi altra cella, questa evidenziazione precedente sparirà.

===

Regards,

Norman

Answer 3

Potresti zoomare la vista del foglio in modo da ingrandire tutti gli elementi del foglio.

Se lo faccio, perdo di vista la cartella di lavoro nel suo insieme, ho computi con migliaia di righe, dovrei fare continue operazioni di ingrandimento/rimpicciolimento con annesse perdite di tempo

Answer 4

Potresti zoomare la vista del foglio in modo da ingrandire tutti gli elementi del foglio.