+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 6 su 6

Problematica alfanumerica excel-vba

  1. #1
    MR. XX non  in linea Novello
    Ciao a tutti

    Io anni fa ho giochiricchiato con excel-vba 2007 poi per tre anni niente
    adesso mi ritrovo a dover creare una sub che da un cella in cui io inserisco una sigla ( le possibili sigle che devo inserire sono "IPE-HE-UPN-L-T" in maiuscolo essendo sigle ) in un display a pixel fatto con le celle da 8x8 mi mostri rispettivamente alle sigle i profili (I-H ruotata di 90-C-L-T2).
    per colorare le celle rivedendo i vecchi esercizi sui display mi ricordo e le so colorare (utilizzavo RGB come sistema) ma non mi ricordo la sintassi e legata a if; answer, e altre funzioni che penso mi servano.

    Io adesso ho excel 2013 su windows 7 per fisso e portatile.

    Grazie in anticipo.

    ciao a tutti

  2. #2
    Ho capito poco di questa tua domanda ... in pratica, qual il problema? Puoi chiarire?
    ℹ️ Leggi di pi su AntonioG ...

  3. #3
    MR. XX non  in linea Novello
    ciao

    Devo colorare delle celle in base alla sigla che scrivo in un'altra cella di riferimento invece che nell'inputbox

  4. #4
    PaoloTalini non  in linea Scribacchino
    Quote Originariamente inviato da MR. XX Visualizza il messaggio
    ciao

    Devo colorare delle celle in base alla sigla che scrivo in un'altra cella di riferimento invece che nell'inputbox
    Il registratore di macro ti pu aiutare per definire/capire come impostare il codice.
    Successivamente potrai adattare il codice alle tue esigenze.
    Quando avrai un tuo codice, anche non funzionante, potremo aiutarti a perfezionarlo.
    ℹ️ Leggi di pi su PaoloTalini ...

  5. #5
    fcarboni non  in linea Scolaretto
    Se ho ben capito quello che ti serve, il codice in calce potrebbe quantomeno esserti di aiuto, un lavoretto che avevo fatto tempo fa in associazione ad un imput a mezzo scansione RF,
    sinceramente il lavoro pi grosso era stato creare le immagini(la mia griglia era 16x16).
    Ho pulito il codice cos che tu lo possa provare, non c' gestione errori ne altro.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then 'if in the cell B1 you type IPE, HE, UPN, L or T the picture appeaire on range F3:M10
        Exit Sub
        Else
        Application.EnableEvents = False
        Dim IPE_rgn As Range, HE_rgn As Range, UPN_rgn As Range, L_rgn As Range, T_rgn As Range
        Set IPE_rgn = Range("G4:L4,I5:I8,G9:L9")
        Set UPN_rgn = Range("G4:G6,H4:L4,L5:L6")
        Set L_rgn = Range("G4:L5,G6:H9")
        Set T_rgn = Range("K4:L9,G6:J7")
            'clear the pictur areas
            Range("F3:M10").Select
            With Selection.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        Select Case Target.Value
            Case "IPE"
                IPE_rgn.Select
                With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorDark1
                    .TintAndShade = -0.349986266670736
                    .PatternTintAndShade = 0
                End With
            Case "UPN"
                UPN_rgn.Select
                With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorDark1
                    .TintAndShade = -0.349986266670736
                    .PatternTintAndShade = 0
                End With
            Case "L"
                L_rgn.Select
                With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorDark1
                    .TintAndShade = -0.349986266670736
                    .PatternTintAndShade = 0
                End With
            Case "T"
                T_rgn.Select
                With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorDark1
                    .TintAndShade = -0.349986266670736
                    .PatternTintAndShade = 0
                End With
        End Select
    End If
    Range("B1").Select
    Application.EnableEvents = True
    End Sub
    
    ℹ️ Leggi di pi su fcarboni ...

  6. #6
    MR. XX non  in linea Novello
    Grazie fcarboni

    tempo di metterlo nel foglio di lavoro e fare qualche prova e poi carico il risultato

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Chiave primaria semplice alfanumerica
    Da simop_075 nel forum Microsoft Access
    Risposte: 14
    Ultimo Post: 22-02-2016, 13:41
  2. Case select su variabile stringa alfanumerica
    Da Marco73 nel forum Microsoft Access
    Risposte: 7
    Ultimo Post: 23-01-2011, 12:43
  3. Problematica PHP su Host Gratuito
    Da motoboy nel forum Altri linguaggi e strumenti
    Risposte: 4
    Ultimo Post: 03-09-2009, 22:36
  4. Problematica invio mail
    Da motoboy nel forum Delphi
    Risposte: 7
    Ultimo Post: 29-06-2009, 18:31
  5. Flexgrid problematica
    Da Mokor nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 24-09-2003, 12:42