Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Formato Bold per parte di un testo

365 views
Skip to first unread message

Ricky

unread,
Sep 17, 2009, 9:36:49 AM9/17/09
to

Ciao,
con una macro inserisco un testo in una cella.
Vorrei poter impostare il carattere grasseto per una parte del testo.

La semplice macro è la seguente:

Sheet14.Select
Range("B3") = "Mio testo....mese di competenza " & Format(Range
("G17"), "mmmm yyyy")
dove Format(Range("G17"), "mmmm yyyy") restituisce "Luglio 2009"

Ho provato sia con
Range("B3") = "Mio testo....mese di competenza " & Format(Range
("G17"), "mmmm yyyy").Font.Bold = True

che con

Right(Sheet14.Range("B3"),11).Select
Selection.Font.Bold = True

Qualcuno sa come fare?

Buona giornata
Ricky


r

unread,
Sep 17, 2009, 10:15:01 AM9/17/09
to
"Ricky" ha scritto:

guarda:

Class Characters
Membro di Excel
e

Property Characters([Start], [Length]) As Characters
sola lettura
Membro di Excel.Range

saluti
r


--
Come e dove incollare il codice:
http://www.rondebruin.nl/code.htm

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/index.php/Excel-VBA/UsedRange-eccezioni-e-alternative.html


r

unread,
Sep 17, 2009, 10:23:01 AM9/17/09
to
un esempio:

Sub testBold()
Dim rng As Excel.Range
Set rng = [a1]
Dim s1 As String
Dim s2 As String
s1 = "Mio testo....mese di competenza "
s2 = Format(#1/1/2009#, "mmmm yyyy")

With rng
.Value = s1 & s2
.Characters(Len(s1) + 1, Len(s2)).Font.Bold = True
End With

0 new messages