Vba alla casella di testo

Hai un problema con Excel?

Nuova discussione

Vba alla casella di testo
di Danny data: 25/02/2016 16:42:43
Ciao
Dovrei realizzare un calendario settimanale ma per vari motivi non mi è possibile lavorare direttamente sulle celle
con la formattazione condizionale , volevo chiederevi se é possibile creare un vba che riesca a colorarmi il numero contenuto nella casella di testo. esempio, se inferiore alla settimana attuale mi colori di nero se invece superiore me le colori di blu lasciando la settimana attuale in color rosso. Come da esempio allegato

Grazie a tutti, Danny
di patel data: 25/02/2016 17:35:40
sarebbe più semplice se il numero della casella corrispondesse al numero della settimana
di Danny data: 25/02/2016 19:04:48
Scusate non avevo fatto caso. Ho allegato il file corretto. Grazie
saluti
Danny

di patel data: 25/02/2016 19:35:35
le caselle devono avere tutti numeri di 2 cifre (01 02 .... 52)

Sub Macro1()
settimana = Application.WorksheetFunction.WeekNum(Date) - 2
For n = 1 To 52
    ActiveSheet.Shapes.Range(Array("TextBox " & n)).Select
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 2).Font.Fill
        .Visible = msoTrue
        If n = settimana Then
          .ForeColor.RGB = RGB(255, 0, 0) ' rosso
        ElseIf n > settimana Then
          .ForeColor.RGB = RGB(0, 112, 192)
        Else
          .ForeColor.RGB = RGB(0, 0, 0) ' nero
        End If
        .Transparency = 0
        .Solid
    End With
Next
End Sub

di Danny data: 25/02/2016 20:37:47
Fantastico ! Grazie Mille

Vuoi Approfondire?