Tra 1-2 settimane il link non sara' piu' disponibile e pertanto la soluzione postata non sara' piu' comprensibile; ti chiedo pertanto di inserire nel testo della discussione la domanda posta.
Ciao e grazie.
Moderatori: Anthony47, Flash30005
ahidai ha scritto:Ciao Scossa, come dicevo nel post precedente funziona alla perfezione, scusami se approfitto della tua disponibilità, ....
scossa ha scritto:
Siamo in un forum, sarebbe corretto non rivolgere le richieste ad un singolo utente ma alla comunità, anche perché al momento non posso prendere in esame la richiesta e così facendo rischi di precluderti l'aiuto di altri.
ahidai ha scritto:Ciao Scossa, come dicevo nel post precedente funziona alla perfezione, scusami se approfitto della tua disponibilità, avrei bisogno di incrementare il codice, non so se è possibile farlo, comunque allego il file, dove è spiegato tutto.
Grazie ancora e buona serata.
http://www.filedropper.com/note3
ahidai ha scritto:Grazie per la risposta Scossa, allego di nuovo il file http://www.filedropper.com/note3_1.
Saluti e buon fine settimana.
ahidai ha scritto:Ci riprovo http://www.filedropper.com/note2
Buon domenica a tutti.
ahidai ha scritto:Ciao Scossa, ci avevo pensato anche io con la formattazione condizionale, purtroppo non mi fa selezionare le diagonali.
Uso Excel 2007, forse il problema è questo? C'è qualche altra soluzione che posso adottare?
Grazie di nuovo.
Ciao.
ahidai ha scritto:Grazie di nuovo per la risposta, i due oggetti grafici erano solo degli esempi, io avrei bisogno che ci sia una "x" o dei bordi diagonali sovrapposti sul numero.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim CheckArea As Range
Dim XArea As Range
Dim rArea As Range
Dim j As Long
Set CheckArea = Me.Range("M7:N16, M17:N26, M27:N36, M37:N46, M47:N56, M57:N66, M67:N76")
Set XArea = Me.Range("G11:H12, G21:H22, G31:H32, G41:H42, G51:H52, G61:H62, G71:H72")
If Not Application.Intersect(Target(1, 1), CheckArea) Is Nothing Then
For Each rArea In CheckArea.Areas
j = j + 1
If Not Intersect(Target(1, 1), rArea) Is Nothing Then
If Target(1, 1).Value = "x" Then
Target.ClearContents
Target.Offset(0, 1).Select
With XArea.Areas(j).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlThin
End With
With XArea.Areas(j).Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlThin
End With
Exit For
Else
If rArea.Find(what:="x", searchdirection:=xlPrevious) Is Nothing Then
Target(1, 1).Value = "x"
With XArea.Areas(j).Borders(xlDiagonalDown)
.LineStyle = xlNone
End With
With XArea.Areas(j).Borders(xlDiagonalUp)
.LineStyle = xlNone
End With
Target.Offset(0, 1).Select
Exit For
End If
End If
End If
Next
Cancel = True
End If
Set CheckArea = Nothing
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
>>>>>>>>>Dim CheckArea As Range 1
>>>>>>>>>Dim CheckArea As Range 2
>>>>>>>>>Dim CheckArea As Range 3
Torna a Applicazioni Office Windows
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Maiuscola prima lettera cella formato ggg Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Access 2003: creare maschera per inserire dati su più tabell Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Cella con formato personalizzato: inserire "a capo" Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 15 |
[EXCEL] Inserire righe in base ad una scelta Autore: robist84@gmail.com |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: systemcrack e 77 ospiti