Moderatori: Anthony47, Flash30005
Sub Normalizza()
Application.Calculation = xlManual
UR = Range("F" & Rows.Count).End(xlUp).Row
For RR = 4 To 5000
If Range("F" & RR).Value = "" Then GoTo Esci
Range("F" & RR).Value = DateSerial(Mid(Range("F" & RR).Value, 7, 4), Mid(Range("F" & RR).Value, 4, 2), Mid(Range("F" & RR).Value, 1, 2))
Next RR
Esci:
Application.Calculation = xlCalculationAutomatic
End Sub
Application.Calculation = xlManual
UR = Range("F" & Rows.Count).End(xlUp).Row
For RR = 4 To 5000
If Range("F" & RR).Value = "" Then GoTo Esci
Range("F" & RR).Value = DateSerial(Mid(Range("F" & RR).Value, 7, 4), Mid(Range("F" & RR).Value, 4, 2), Mid(Range("F" & RR).Value, 1, 2))
Next RR
Esci:
Application.Calculation = xlCalculationAutomatic
Range("F4:F5000").Select
Selection.NumberFormat = "dd/mm/yy;@"
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< togli tutto ciò che viene dopo
With Selection.Font
.Name = "Arial"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Fino qui
Range("F4").Select
End Sub
...
Range("F4:F5000").Select
Selection.NumberFormat = "dd/mm/yy;@"
Range("F4:F5000").Select
Selection.NumberFormat = "dd/mm/yy;@"
Torna a Applicazioni Office Windows
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Eliminare righe diverse dalla prima data del mese Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 5 ospiti