Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

excel2003:formattare stringa con caratteri speciali

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

excel2003:formattare stringa con caratteri speciali

Postdi karug64 » 28/11/11 18:37

Salve a tutti.
Nell'ambito di una macro VBA compongo una stringa (per esempio "Oggi ho venduto 3.000 euro di BTP")
Vorrei, pero' far in modo che quando andro a mettere la stringa su una cella quest fosse scritta con 3.000 in grassetto.
C'e' qualche formattazione da usare nella composizione della stringa ?
Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: excel2003:formattare stringa con caratteri speciali

Postdi Flash30005 » 28/11/11 18:56

Dopo averla scritta puoi fare tutto ciò che vuoi attraverso il VBA
(analizzando bene se è possibile trovare una chiave comune negli importi).

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: excel2003:formattare stringa con caratteri speciali

Postdi karug64 » 28/11/11 19:41

Ciao. Il problema e' che non so quali codici inserire in VBA per far fare il grassetto e toglierlo ....
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: excel2003:formattare stringa con caratteri speciali

Postdi Anthony47 » 28/11/11 22:07

Ad esempio questa macro cerca nella cella attiva una stringa (scritta in HlWrd) e ne modifica il formato:
Codice: Seleziona tutto
Sub Wordform()
HlWrd = " 3000 "
SrtHl = InStr(1, ActiveCell.Value, HlWrd)
If SrtHl > 0 Then
    With ActiveCell.Characters(Start:=SrtHl, Length:=Len(HlWrd)).Font
        .Subscript = False
        .Superscript = False
        .Strikethrough = False
        .Name = "Arial"
        .FontStyle = "Normale"
        .Size = 12
        .ColorIndex = xlAutomatic
        .Shadow = False
        .Bold = True
        .Italic = False
        .Underline = False
    End With
End If
End Sub

Modifica il valore attibuito alle singole proprieta' del font secondo la tua preferenza; probabilmente prima di eseguire questa parte di macro potrebbe essere utile, me dipende dai tuoi ragionamenti, eliminare tutte le formattazioni sul contenuto della cella; questo lo fai con una sequenza With ActiveCell.Font /End with all' interno della quale metti tutti i parametri che ti interessa impostare sul valore di defaut, es " .Strikethrough = False", " .Superscript = False", etc.
Lavora su celle contenenti stringhe.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "excel2003:formattare stringa con caratteri speciali":


Chi c’è in linea

Visitano il forum: cromagno e 9 ospiti