Moderatori: Anthony47, Flash30005
Sub MesiInMaiuscolo2()
UR = Worksheets("foglio1").Range("A" & Rows.Count).End(xlUp).Row
Dim Vmese(12) As String
Vmese(1) = "Gennaio"
Vmese(2) = "Febbraio"
Vmese(3) = "Marzo"
Vmese(4) = "Aprile"
Vmese(5) = "Maggio"
Vmese(6) = "Giugno"
Vmese(7) = "Luglio"
Vmese(8) = "Agosto"
Vmese(9) = "Settembre"
Vmese(10) = "Ottobre"
Vmese(11) = "Novembre"
Vmese(12) = "Dicembre"
For RR = 2 To UR
Mese = Vmese(Val(Mid(Range("A" & RR).Value, 4, 2)))
Range("B" & RR).Value = Mese & " " & Year(Range("A" & RR).Value)
Next RR
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Value <> "" Then
Application.EnableEvents = False
Target.Value = Application.WorksheetFunction.Proper(Format(Target.Value, "mmmm-yyyy"))
End If
Application.EnableEvents = True
End Sub
Torna a Applicazioni Office Windows
Automatizzare numero settimane nel mese di un anno Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 3 |
Come nascondere I Numeri non Appartenenti Al Mese Deside Autore: Maury170419 |
Forum: Applicazioni Office Windows Risposte: 3 |
macro excel inserire caratteri nella cella e tutto maiuscolo Autore: turbonet |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 99 ospiti