Condividi:        

Maiuscola prima lettera cella formato ggg

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Maiuscola prima lettera cella formato ggg

Postdi Ricky0185 » 04/02/24 18:26

Buonasera, una serie di celle contenenti date hanno formato ggg (lunedì, martedì, etc). Vorrei formattarle con la prima lettera in maiuscolo (Lunedì, Martedì, etc), ma con la macro
Codice: Seleziona tutto
Sub Proper_Case()
     For Each x In Range("C1:C5")
      x.Value = Application.Proper(x.Value)
   Next
End Sub
trasforma solo le date nel loro numero seriale. Ho provato anche la strada Excel copia-Word incolla-Excel copia valori e funziona sostituendo ovviamente
Codice: Seleziona tutto
x.Value = Application.Proper(x.Value)
con
Codice: Seleziona tutto
cell.Value = UCase(Left(cell.Value, 1)) & Right(cell.Value, Len(cell.Value) - 1)
ma con le date sparpagliate su tutto il foglio è un lavoraccio. Esiste una via ?
Un saluto
R
Ricky0185
Utente Senior
 
Post: 252
Iscritto il: 10/12/19 20:38

Sponsor
 

Re: Maiuscola prima lettera cella formato ggg

Postdi Anthony47 » 04/02/24 23:31

Rispondo alla domanda "come fare": Invece che x.Value = Application.Proper(x.Value) prova a usare
Codice: Seleziona tutto
x.Value = Application.Proper(Format(x.Value, "dddd dd/mm/yyyy"))

Tieni presente che così facendo la cella perde in contenuto "Data" che viene commutato in Stringa; quindi SEI SICURO che e' quello che ti serve?

Quanto alla seconda domanda, potrebbe quindi (per quanto detto sopra) essere ALQUANTO PERICOLOSO FARLO AUTOMATICAMENTE su tutte le date del foglio, ma se vuoi dovrebbe essere possibile tramite ad esempio questo snippet:
Codice: Seleziona tutto
Dim myC As Range
For Each myC In ActiveSheet.UsedRange
    If IsDate(myC.Value) Then
        myC.Value = Application.Proper(Format(X.Value, "dddd dd/mm/yyyy"))
    End If
Next myC


Prova solo dopo aver meditato bene...
Avatar utente
Anthony47
Moderatore
 
Post: 19170
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Maiuscola prima lettera cella formato ggg

Postdi Ricky0185 » 05/02/24 07:02

In effetti la prima soluzione è da scartare, perchè oltre a trasformare il lun, mar, mer, etc in
Immagine
risultano intoccabili-testo. Il secondo suggerimento si blocca Errore 424 debug
Codice: Seleziona tutto
myC.Value = Application.Proper(Format(X.Value, "dddd dd/mm/yyyy"))

Ti ringrazio, ma lascia perdere, trasformarle ma poi non poter utilizzarle risulta inutile.
Ti saluto e ringrazio
R
Ricky0185
Utente Senior
 
Post: 252
Iscritto il: 10/12/19 20:38


Torna a Applicazioni Office Windows


Topic correlati a "Maiuscola prima lettera cella formato ggg":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti